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
'MuteAction',
'BeLogInOutAction');
//\83\8a\83X\83g\83c\81[\83\8b\83o\81[\83f\83t\83H\83\8b\83g
- DEF_LIST: array[0..16] of string = ('ListNumberVisibleAction',
+ DEF_LIST: array[0..18] of string = ('ListNumberVisibleAction',
'IconStyle',
'UpFolderAction',
'',
'AllItemAction',
'LogItemAction',
'NewItemAction',
+ 'LiveItemAction',
+ 'ArchiveItemAction',
'SelectItemAction',
'',
'ThreadEditorAction',
/// \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',
function GetActionItem(ActionList: TActionList; ActionName: string): TCustomAction;
procedure ReadToolBarSetting(ActionList: TActionList; ToolBar: TToolBar);
procedure SaveToolBarSetting(ToolBar: TToolBar);
- procedure KeepDefaultToolButton(ToolBar: TToolBar; TmpToolBar: TToolBar);
- procedure MakeDefaultINIFile();
+ procedure MakeDefaultINIFile();
+
implementation
+uses
+ IniFiles, GikoSystem, MojuUtils;
+
function ConvertToolButton( setting : string ) : string;
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
ini.EraseSection(ToolBar.Name);
for i := 0 to ToolBar.ButtonCount - 1 do begin
if ToolBar.Buttons[i].Style = tbsSeparator then begin
- ini.WriteString(ToolBar.Name, 'Button' + IntToStr(j), '-');
- Inc( j );
+ //SelectComboBox\97p\82Ì\83_\83~\81[\82Í\95Û\91¶\82µ\82È\82¢
+ if not (ToolBar.Buttons[i].Name = 'SelectComboBoxDummy') then begin
+ ini.WriteString(ToolBar.Name, 'Button' + IntToStr(j), '-');
+ Inc( j );
+ end;
end else begin
Action := ToolBar.Buttons[i].Action;
if Action <> nil then
- begin
+ begin
ini.WriteString(ToolBar.Name, 'Button' + IntToStr(j), Action.Name);
Inc( j );
end;
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;
+
procedure MakeDefaultINIFile();
var
ini: TMemIniFile;