Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoDataModule.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.43 by h677, Sun Jul 30 17:25:32 2006 UTC revision 1.44 by h677, Mon Jul 31 16:05:13 2006 UTC
# Line 221  type Line 221  type
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);
# Line 412  type Line 417  type
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;
# Line 3680  end; Line 3690  end;
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イベント
# Line 4110  procedure TGikoDM.NextMoveHistoryExecute Line 4120  procedure TGikoDM.NextMoveHistoryExecute
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    

Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26