・ツールバーを右クリックしたとき全てのツールバーに対して一括で管理できるようになった。

・上記メニューに「ツールバー設定」を追加。

diff --git a/Giko.dfm b/Giko.dfm
index 3e4dac7..c78e913 100644 (file)
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -310,7 +310,7 @@ object GikoForm: TGikoForm
               end>
             EdgeBorders = [ebLeft, ebTop, ebRight]
             EdgeInner = esLowered
-            PopupMenu = ListCoolBarPopupMenu
+            PopupMenu = MainCoolBarPopupMenu
             OnBandInfo = ListCoolBarBandInfo
             OnChevronClick = ListCoolBarChevronClick
             object ListToolBar: TToolBar
@@ -548,7 +548,7 @@ object GikoForm: TGikoForm
               end>
             EdgeBorders = [ebLeft, ebTop, ebRight]
             EdgeInner = esLowered
-            PopupMenu = BrowserCoolBarPopupMenu
+            PopupMenu = MainCoolBarPopupMenu
             OnBandInfo = BrowserCoolBarBandInfo
             OnChevronClick = BrowserCoolBarChevronClick
             object BrowserToolBar: TToolBar
@@ -9495,62 +9495,66 @@ object GikoForm: TGikoForm
       Action = LinkBarVisibleAction
       AutoCheck = True
     end
-  end
-  object ListCoolBarPopupMenu: TPopupMenu
-    Left = 100
-    Top = 260
-    object L8: TMenuItem
+    object N44: TMenuItem
+      Caption = '-'
+    end
+    object L9: TMenuItem
       Action = ListToolBarVisibleAction
       AutoCheck = True
     end
-    object I2: TMenuItem
+    object I3: TMenuItem
       Action = ListNameBarVisibleAction
       AutoCheck = True
     end
-  end
-  object BrowserCoolBarPopupMenu: TPopupMenu
-    Left = 100
-    Top = 291
-    object B7: TMenuItem
+    object N45: TMenuItem
+      Caption = '-'
+    end
+    object B9: TMenuItem
       Action = BrowserToolBarVisibleAction
       AutoCheck = True
     end
-    object R4: TMenuItem
+    object R5: TMenuItem
       Action = BrowserNameBarVisibleAction
       AutoCheck = True
     end
-    object T10: TMenuItem
+    object T12: TMenuItem
       Caption = #12502#12521#12454#12470#12479#12502'(&T)'
-      object Show2: TMenuItem
+      object Show3: TMenuItem
         Action = BrowserTabVisibleAction
         AutoCheck = True
       end
-      object N41: TMenuItem
+      object N46: TMenuItem
         Caption = '-'
       end
-      object T11: TMenuItem
+      object T13: TMenuItem
         Action = BrowserTabTopAction
         AutoCheck = True
       end
-      object B8: TMenuItem
+      object B10: TMenuItem
         Action = BrowserTabBottomAction
         AutoCheck = True
       end
-      object N42: TMenuItem
+      object N47: TMenuItem
         Caption = '-'
       end
-      object A11: TMenuItem
+      object A12: TMenuItem
         Action = BrowserTabTabStyleAction
         AutoCheck = True
       end
-      object U3: TMenuItem
+      object U4: TMenuItem
         Action = BrowserTabButtonStyleAction
         AutoCheck = True
       end
-      object F3: TMenuItem
+      object F4: TMenuItem
         Action = BrowserTabFlatStyleAction
         AutoCheck = True
       end
     end
+    object N48: TMenuItem
+      Caption = '-'
+    end
+    object T14: TMenuItem
+      Action = ToolBarSettingAction
+    end
   end
 end

diff --git a/Giko.pas b/Giko.pas
index b96123d..accffbf 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -424,24 +424,26 @@ type
     StdToolBarVisiblePMenu: TMenuItem;
     AddressToolBarVisiblePMenu: TMenuItem;
     LinkToolBarVisiblePMenu: TMenuItem;
-    ListCoolBarPopupMenu: TPopupMenu;
-    L8: TMenuItem;
-    I2: TMenuItem;
-    BrowserCoolBarPopupMenu: TPopupMenu;
-    B7: TMenuItem;
-    R4: TMenuItem;
-    T10: TMenuItem;
-    Show2: TMenuItem;
-    N41: TMenuItem;
-    T11: TMenuItem;
-    B8: TMenuItem;
-    N42: TMenuItem;
-    A11: TMenuItem;
-    U3: TMenuItem;
-    F3: TMenuItem;
     NG1: TMenuItem;
     NG2: TMenuItem;
     N43: TMenuItem;
+    N44: TMenuItem;
+    L9: TMenuItem;
+    I3: TMenuItem;
+    N45: TMenuItem;
+    B9: TMenuItem;
+    R5: TMenuItem;
+    T12: TMenuItem;
+    Show3: TMenuItem;
+    N46: TMenuItem;
+    T13: TMenuItem;
+    B10: TMenuItem;
+    N47: TMenuItem;
+    A12: TMenuItem;
+    U4: TMenuItem;
+    F4: TMenuItem;
+    N48: TMenuItem;
+    T14: TMenuItem;
                procedure FormCreate(Sender: TObject);
                procedure FormDestroy(Sender: TObject);
                procedure CabinetPanelHide(Sender: TObject);