ToolButtonの一時保管用の関数を作った

diff --git a/ToolBarUtil.pas b/ToolBarUtil.pas
index 7878bf4..f881923 100644 (file)
--- a/ToolBarUtil.pas
+++ b/ToolBarUtil.pas
@@ -38,7 +38,7 @@ const
                                                                                                                                                                        '',
                                                                                                                                                                        'SelectReservAction');
        //\83u\83\89\83E\83U\83c\81[\83\8b\83o\81[\83f\83t\83H\83\8b\83g
-       DEF_BROWSER:  array[0..15] of string = ('BrowserMaxAction',
+       DEF_BROWSER:  array[0..16] of string = ('BrowserMaxAction',
                                                                                                                                                                        'BrowserMinAction',
                                                                                                                                                                        '',
                                                                                                                                                                        'ScrollTopAction',
@@ -53,7 +53,8 @@ const
                                                                                                                                                                        '',
                                                                                                                                                                        'IEAction',
                                                                                                                                                                        '',
-                                                                                                                                                                       'ItemReloadAction');
+                                                                                                                                                                       'ItemReloadAction',
+                                                                                    'OnlyAHundredRes');
 
 
        //\83{\83^\83\93\83X\83^\83C\83\8b\82ª"tbsCheck"\83{\83^\83\93\82Ì\83A\83N\83V\83\87\83\93
@@ -104,7 +105,7 @@ const
        function GetActionItem(ActionList: TActionList; ActionName: string): TCustomAction;
        procedure ReadToolBarSetting(ActionList: TActionList; ToolBar: TToolBar);
        procedure SaveToolBarSetting(ToolBar: TToolBar);
-
+    procedure KeepDefaultToolButton(ToolBar: TToolBar; TmpToolBar: TToolBar);
 implementation
 
 procedure ReadToolBarSetting(ActionList: TActionList; ToolBar: TToolBar);
@@ -118,9 +119,9 @@ var
 begin
        FileName := GikoSys.GetConfigDir + INI_FILENAME;
        if FileExists(FileName) then begin
-               for i := ToolBar.ButtonCount - 1 downto 0 do
+               for i := ToolBar.ButtonCount - 1 downto 0 do begin
                        ToolBar.RemoveControl(ToolBar.Buttons[i]);
-
+               end;
                ini := TMemIniFile.Create(FileName);
                try
                        i := 0;
@@ -232,5 +233,12 @@ begin
        end;
        Result := False;
 end;
-
+procedure KeepDefaultToolButton(ToolBar: TToolBar; TmpToolBar: TToolBar);
+var
+       i: Integer;
+begin
+       for i := ToolBar.ButtonCount - 1 downto 0 do begin
+       ToolBar.Buttons[i].Parent := TmpToolBar;
+    end;
+end;
 end.