スレ一覧の絞込みでCTRL+DELで個別に削除できるように修正

[gikonavigoeson/gikonavi.git] / ToolBarUtil.pas

diff --git a/ToolBarUtil.pas b/ToolBarUtil.pas
index 3640177..2d16109 100644 (file)
--- a/ToolBarUtil.pas
+++ b/ToolBarUtil.pas
@@ -4,8 +4,7 @@ interface
 
 uses
        Windows, Messages, SysUtils, Classes, Controls,
-       StdCtrls, ExtCtrls, ComCtrls, ActnList, IniFiles,
-       GikoSystem, MojuUtils;
+       StdCtrls, ExtCtrls, ComCtrls, ActnList;
 
 const
        //\95W\8f\80\83c\81[\83\8b\83o\81[\83f\83t\83H\83\8b\83g
@@ -63,12 +62,14 @@ const
 
 
        /// \83{\83^\83\93\83X\83^\83C\83\8b\82ª"tbsCheck"\83{\83^\83\93\82Ì\83A\83N\83V\83\87\83\93
-       CHECK_STYLE:   array[0..35] of string = ('CabinetVisibleAction',
+       CHECK_STYLE:   array[0..37] of string = ('CabinetVisibleAction',
                                                                                     'MuteAction',
                                                                                                                                                                        'ArrangeAction',
                                                                                                                                                                        'AllItemAction',
                                                                                                                                                                        'LogItemAction',
                                                                                                                                                                        'NewItemAction',
+                                                                                                                                                                       'LiveItemAction',
+                                                                                                                                                                       'ArchiveItemAction',
                                                                                                                                                                        'SelectItemAction',
 
                                                                                                                                                                        'StdToolBarVisibleAction',
@@ -122,8 +123,12 @@ const
        procedure ReadToolBarSetting(ActionList: TActionList; ToolBar: TToolBar);
        procedure SaveToolBarSetting(ToolBar: TToolBar);
        procedure MakeDefaultINIFile();
+
 implementation
 
+uses
+       IniFiles,       GikoSystem, MojuUtils;
+
 function ConvertToolButton( setting : string ) : string;
 begin
 
@@ -147,7 +152,7 @@ begin
        FileName := GikoSys.GetConfigDir + INI_FILENAME;
        if FileExists(FileName) then begin
                for i := ToolBar.ButtonCount - 1 downto 0 do begin
-                       ToolBar.RemoveControl(ToolBar.Buttons[i]);
+                       ToolBar.Buttons[i].HostDockSite := nil;
                end;
                ini := TMemIniFile.Create(FileName);
                try