右クリックのコンテキストメニュー上のマウスジェスチャーを無効にできるオプションを追加。

[gikonavigoeson/gikonavi.git] / GikoDataModule.pas

diff --git a/GikoDataModule.pas b/GikoDataModule.pas
index 4a90b7f..4597cb7 100644 (file)
--- a/GikoDataModule.pas
+++ b/GikoDataModule.pas
@@ -229,6 +229,7 @@ type
     StoredTaskTrayAction: TAction;
     AllImageLinkToClipbordAction: TAction;
     NewImageLinkToClipBoardAction: TAction;
+    SetForcusForAddresBarAction: TAction;
        procedure EditNGActionExecute(Sender: TObject);
        procedure ReloadActionExecute(Sender: TObject);
        procedure GoFowardActionExecute(Sender: TObject);
@@ -430,6 +431,7 @@ type
     procedure RightmostTabSelectActionUpdate(Sender: TObject);
     procedure NewImageLinkToClipBoardActionExecute(Sender: TObject);
     procedure AllImageLinkToClipbordActionExecute(Sender: TObject);
+    procedure SetForcusForAddresBarActionExecute(Sender: TObject);
   private
        { Private \90é\8c¾ }
        procedure ClearResFilter;
@@ -4301,6 +4303,16 @@ begin
         end;
     end;
 end;
+{
+\brief  \83A\83h\83\8c\83X\83o\81[\82É\83t\83H\81[\83J\83X\82ð\93\96\82Ä\82é
+\param  Sender   \83C\83x\83\93\83g\82Ì\94­\90¶\8c³
+}
+procedure TGikoDM.SetForcusForAddresBarActionExecute(Sender: TObject);
+begin
+    if ( GikoForm.AddressToolBar.Visible ) then begin
+        GikoForm.AddressComboBox.SetFocus;
+    end
+end;
 
 end.