| 221 |
CloseAllEditorAction: TAction; |
CloseAllEditorAction: TAction; |
| 222 |
PrevMoveHistory: TAction; |
PrevMoveHistory: TAction; |
| 223 |
NextMoveHistory: TAction; |
NextMoveHistory: TAction; |
| 224 |
|
ClickActiveElementAction: TAction; |
| 225 |
|
VKDownAction: TAction; |
| 226 |
|
VKUpAction: TAction; |
| 227 |
|
VKRightAction: TAction; |
| 228 |
|
VKLeftAction: TAction; |
| 229 |
procedure EditNGActionExecute(Sender: TObject); |
procedure EditNGActionExecute(Sender: TObject); |
| 230 |
procedure ReloadActionExecute(Sender: TObject); |
procedure ReloadActionExecute(Sender: TObject); |
| 231 |
procedure GoFowardActionExecute(Sender: TObject); |
procedure GoFowardActionExecute(Sender: TObject); |
| 417 |
procedure PrevMoveHistoryExecute(Sender: TObject); |
procedure PrevMoveHistoryExecute(Sender: TObject); |
| 418 |
procedure NextMoveHistoryUpdate(Sender: TObject); |
procedure NextMoveHistoryUpdate(Sender: TObject); |
| 419 |
procedure NextMoveHistoryExecute(Sender: TObject); |
procedure NextMoveHistoryExecute(Sender: TObject); |
| 420 |
|
procedure ClickActiveElementActionExecute(Sender: TObject); |
| 421 |
|
procedure VKDownActionExecute(Sender: TObject); |
| 422 |
|
procedure VKUpActionExecute(Sender: TObject); |
| 423 |
|
procedure VKRightActionExecute(Sender: TObject); |
| 424 |
|
procedure VKLeftActionExecute(Sender: TObject); |
| 425 |
private |
private |
| 426 |
{ Private 宣言 } |
{ Private 宣言 } |
| 427 |
procedure ClearResFilter; |
procedure ClearResFilter; |
| 3690 |
// ************************************************************************* |
// ************************************************************************* |
| 3691 |
procedure TGikoDM.SetFocusForBrowserActionExecute(Sender: TObject); |
procedure TGikoDM.SetFocusForBrowserActionExecute(Sender: TObject); |
| 3692 |
begin |
begin |
| 3693 |
GikoForm.ActiveContent.Browser.SetFocus; |
GikoForm.ActiveContent.Browser.SetFocus; |
| 3694 |
end; |
end; |
| 3695 |
// ************************************************************************* |
// ************************************************************************* |
| 3696 |
//! ブラウザにフォーカスを当てるUpdateイベント |
//! ブラウザにフォーカスを当てるUpdateイベント |
| 4120 |
begin |
begin |
| 4121 |
BackToHistory(MoveHisotryManager.getNextItem); |
BackToHistory(MoveHisotryManager.getNextItem); |
| 4122 |
end; |
end; |
| 4123 |
|
// ************************************************************************* |
| 4124 |
|
//! アクティブ要素のクリック |
| 4125 |
|
// ************************************************************************* |
| 4126 |
|
procedure TGikoDM.ClickActiveElementActionExecute(Sender: TObject); |
| 4127 |
|
var |
| 4128 |
|
browser : TWebBrowser; |
| 4129 |
|
elem : IHTMLElement; |
| 4130 |
|
begin |
| 4131 |
|
if (GikoForm.GetActiveContent <> nil) then begin |
| 4132 |
|
if (GikoForm.BrowserTab.Tabs.Count > 0) and |
| 4133 |
|
(GikoForm.BrowserTab.TabIndex >= 0) then begin |
| 4134 |
|
browser := TBrowserRecord(GikoForm.BrowserTab.Tabs |
| 4135 |
|
.Objects[GikoForm.BrowserTab.TabIndex]).Browser; |
| 4136 |
|
if (browser <> nil) then begin |
| 4137 |
|
try |
| 4138 |
|
elem := IHTMLDocument2(browser.Document).activeElement; |
| 4139 |
|
elem.click; |
| 4140 |
|
except |
| 4141 |
|
end; |
| 4142 |
|
end; |
| 4143 |
|
|
| 4144 |
|
end; |
| 4145 |
|
end; |
| 4146 |
|
end; |
| 4147 |
|
//! ↓キーのエミュレートアクション |
| 4148 |
|
procedure TGikoDM.VKDownActionExecute(Sender: TObject); |
| 4149 |
|
begin |
| 4150 |
|
keybd_event(VK_DOWN, 0, KEYEVENTF_EXTENDEDKEY, 0); |
| 4151 |
|
keybd_event(VK_DOWN, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0); |
| 4152 |
|
end; |
| 4153 |
|
//! ↑キーのエミュレートアクション |
| 4154 |
|
procedure TGikoDM.VKUpActionExecute(Sender: TObject); |
| 4155 |
|
begin |
| 4156 |
|
keybd_event(VK_UP, 0, KEYEVENTF_EXTENDEDKEY, 0); |
| 4157 |
|
keybd_event(VK_UP, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0); |
| 4158 |
|
end; |
| 4159 |
|
//! →キーのエミュレートアクション |
| 4160 |
|
procedure TGikoDM.VKRightActionExecute(Sender: TObject); |
| 4161 |
|
begin |
| 4162 |
|
keybd_event(VK_RIGHT, 0, KEYEVENTF_EXTENDEDKEY, 0); |
| 4163 |
|
keybd_event(VK_RIGHT, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0); |
| 4164 |
|
end; |
| 4165 |
|
//! ←キーのエミュレートアクション |
| 4166 |
|
procedure TGikoDM.VKLeftActionExecute(Sender: TObject); |
| 4167 |
|
begin |
| 4168 |
|
keybd_event(VK_LEFT, 0, KEYEVENTF_EXTENDEDKEY, 0); |
| 4169 |
|
keybd_event(VK_LEFT, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0); |
| 4170 |
|
end; |
| 4171 |
|
|
| 4172 |
end. |
end. |
| 4173 |
|
|