全てのタブ閉じるの処理の微調整。

アクションリストに登録されたアクションがキー設定で出てこない不具合の修正

diff --git a/Giko.dfm b/Giko.dfm
index ebf0629..e332ca8 100644 (file)
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -1,6 +1,6 @@
 object GikoForm: TGikoForm
-  Left = 191
-  Top = 99
+  Left = 309
+  Top = 167
   HorzScrollBar.Visible = False
   VertScrollBar.Visible = False
   AutoScroll = False
@@ -7861,7 +7861,6 @@ object GikoForm: TGikoForm
       OnExecute = MsgBarVisibleActionExecute
     end
     object MsgBarCloseAction: TAction
-      Tag = -1
       Category = #34920#31034
       Caption = #38281#12376#12427'(&C)'
       Hint = #12513#12483#12475#12540#12472#12496#12540#12434#38281#12376#12427
@@ -7875,7 +7874,6 @@ object GikoForm: TGikoForm
       OnExecute = StatusBarVisibleActionExecute
     end
     object CabinetBBSAction: TAction
-      Tag = -1
       Category = #34920#31034
       AutoCheck = True
       Caption = #25522#31034#26495'(&N)'
@@ -7925,13 +7923,11 @@ object GikoForm: TGikoForm
       OnUpdate = UpFolderActionUpdate
     end
     object CabinetCloseAction: TAction
-      Tag = -1
       Category = #34920#31034
       Caption = #38281#12376#12427'(&C)'
       Hint = #12461#12515#12499#12493#12483#12488#12434#38281#12376#12427
     end
     object IconStyle: TAction
-      Tag = -1
       Category = #34920#31034
       Caption = #34920#31034'(&V)'
       Hint = #34920#31034
@@ -8096,7 +8092,6 @@ object GikoForm: TGikoForm
       OnUpdate = EditorActionUpdate
     end
     object IEAction: TAction
-      Tag = -1
       Category = #12473#12524#12483#12489
       Caption = #12502#12521#12454#12470#12391#34920#31034'(&B)'
       Hint = #12473#12524#12434#12502#12521#12454#12470#12391#34920#31034#12377#12427
@@ -8266,7 +8261,6 @@ object GikoForm: TGikoForm
       OnExecute = TreeSelectURLCopyExecute
     end
     object SelectReservAction: TAction
-      Tag = -1
       Category = #26495
       Caption = #12473#12524#12483#12489#24033#22238#20104#32004'(&R)'
       Hint = #12473#12524#12483#12489#24033#22238#20104#32004
@@ -8276,13 +8270,13 @@ object GikoForm: TGikoForm
     end
     object SelectNewRoundName: TAction
       Category = #26495
-      Caption = 'SelectNewRoundName'
+      Caption = #26032#12375#12356#21517#21069#12391#24033#22238#20104#32004
       Hint = #36984#25246#12373#12428#12390#12356#12427#12473#12524#12483#12489#12395#26032#12375#12356#21517#21069#12391#24033#22238#12434#25351#23450#12377#12427
       OnExecute = SelectNewRoundNameExecute
     end
     object SelectDeleteRound: TAction
       Category = #26495
-      Caption = 'SelectDeleteRound'
+      Caption = #24033#22238#20104#32004#21066#38500
       Hint = #36984#25246#12373#12428#12390#12356#12427#12473#12524#12483#12489#12398#24033#22238#12434#21066#38500#12377#12427
       OnExecute = SelectDeleteRoundExecute
     end
@@ -8603,8 +8597,10 @@ object GikoForm: TGikoForm
       OnUpdate = UpBoardActionUpdate
     end
     object KoreCopy: TAction
+      Tag = -1
       Category = #12502#12521#12454#12470#12509#12483#12503#12450#12483#12503
       Caption = #12371#12398#12524#12473#12467#12500#12540
+      Hint = #36984#25246#12375#12383#12524#12473#12434#12467#12500#12540#12377#12427
       OnExecute = KoreCopyExecute
     end
     object TreeSelectNameCopy: TAction

diff --git a/Giko.pas b/Giko.pas
index 66c0b49..f410d26 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -5317,9 +5317,12 @@ procedure TGikoForm.AllTabCloseActionExecute(Sender: TObject);
 var
        i: Integer;
 begin
+    SetContent(nil);
+       BrowserTab.OnChange := nil;
        for i := BrowserTab.Tabs.Count - 1 downto 0 do
                BrowserTab.Tabs.Delete(i);
-       SetContent(nil);
+       BrowserTab.OnChange := BrowserTabChange;
+
 end;
 
 procedure TGikoForm.TreeSelectBoradReloadExecute(Sender: TObject);