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
- DEF_STANDARD: array[0..9] of string = ('RoundAction',
+ DEF_STANDARD: array[0..11] of string = ('RoundAction',
'',
'ArrangeAction',
'',
'',
'CabinetBBSAction',
'CabinetHistoryAction',
- 'CabinetFavoriteAction');
+ 'CabinetFavoriteAction',
+ '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..33] of string = ('CabinetVisibleAction',
+ CHECK_STYLE: array[0..37] of string = ('CabinetVisibleAction',
+ 'MuteAction',
'ArrangeAction',
'AllItemAction',
'LogItemAction',
'NewItemAction',
+ 'LiveItemAction',
+ 'ArchiveItemAction',
'SelectItemAction',
'StdToolBarVisibleAction',
'SelectResAction',
'OnlyAHundredResAction',
'OnlyKokoResAction',
- 'OnlyNewResAction'
+ 'OnlyNewResAction',
+ 'BeLogInOutAction'
);
/// \83{\83^\83\93\82Ì\83X\83^\83C\83\8b\82ª"tbsDropDown"\83{\83^\83\93\82Ì\83A\83N\83V\83\87\83\93
/// Giko.pas : SetToolBarPopup \82à\8fC\90³\82·\82é\8e\96
- DROPDOWN_STYLE: array[0..3] of string = ('IconStyle',
+ DROPDOWN_STYLE: array[0..4] of string = ('IconStyle',
'IEAction',
'CabinetBBSAction',
- 'ResRangeAction');
+ 'ResRangeAction',
+ 'ThreadRangeAction');
INI_FILENAME: string = 'ToolBar.ini';
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
if Action <> nil then begin
ToolButton := TToolButton.Create(ToolBar);
ToolButton.Action := Action;
+ if ToolButton.ImageIndex = -1 then
+ ToolButton.ImageIndex := 51;
+
ToolButton.Left := 10000;
SetButtonStyle(Action, ToolButton);
ToolBar.InsertControl(ToolButton);
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;