6 Windows, Messages, SysUtils, Classes, Controls,
7 StdCtrls, ExtCtrls, ComCtrls, ActnList, IniFiles,
11 //
\95W
\8f\80\83c
\81[
\83\8b\83o
\81[
\83f
\83t
\83H
\83\8b\83g
12 DEF_STANDARD: array[0..9] of string = ('RoundAction',
20 'CabinetHistoryAction',
21 'CabinetFavoriteAction');
22 //
\83\8a\83X
\83g
\83c
\81[
\83\8b\83o
\81[
\83f
\83t
\83H
\83\8b\83g
23 DEF_LIST: array[0..16] of string = ('ListNumberVisibleAction',
36 'SelectListReloadAction',
37 'SelectThreadReloadAction',
39 'SelectReservAction');
40 //
\83u
\83\89\83E
\83U
\83c
\81[
\83\8b\83o
\81[
\83f
\83t
\83H
\83\8b\83g
41 DEF_BROWSER: array[0..16] of string = ('BrowserMaxAction',
61 ///
\83{
\83^
\83\93\83X
\83^
\83C
\83\8b\82ª"tbsCheck"
\83{
\83^
\83\93\82Ì
\83A
\83N
\83V
\83\87\83\93
62 CHECK_STYLE: array[0..33] of string = ('CabinetVisibleAction',
69 'StdToolBarVisibleAction',
70 'AddressBarVisibleAction',
71 'LinkBarVisibleAction',
72 'ListToolBarVisibleAction',
73 'ListNameBarVisibleAction',
74 'BrowserToolBarVisibleAction',
75 'BrowserNameBarVisibleAction',
76 'MsgBarVisibleAction',
77 'StatusBarVisibleAction',
78 'CabinetHistoryAction',
79 'CabinetFavoriteAction',
84 'BrowserTabVisibleAction',
85 'BrowserTabTopAction',
86 'BrowserTabBottomAction',
87 'BrowserTabTabStyleAction',
88 'BrowserTabButtonStyleAction',
89 'BrowserTabFlatStyleAction',
91 'ListNumberVisibleAction',
99 ///
\83{
\83^
\83\93\82Ì
\83X
\83^
\83C
\83\8b\82ª"tbsDropDown"
\83{
\83^
\83\93\82Ì
\83A
\83N
\83V
\83\87\83\93
100 /// Giko.pas : SetToolBarPopup
\82à
\8fC
\90³
\82·
\82é
\8e\96
101 DROPDOWN_STYLE: array[0..3] of string = ('IconStyle',
106 INI_FILENAME: string = 'ToolBar.ini';
108 //
\8bæ
\90Ø
\82è
\95¶
\8e\9a
109 SEPARATOR_TEXT = '-
\8bæ
\90Ø
\82è -';
111 function IsCheckStyle(Action: TCustomAction): Boolean;
112 function IsDropDownStyle(Action: TCustomAction): Boolean;
113 procedure SetButtonStyle(Action: TCustomAction; Button: TToolButton);
114 function GetActionItem(ActionList: TActionList; ActionName: string): TCustomAction;
115 procedure ReadToolBarSetting(ActionList: TActionList; ToolBar: TToolBar);
116 procedure SaveToolBarSetting(ToolBar: TToolBar);
117 procedure KeepDefaultToolButton(ToolBar: TToolBar; TmpToolBar: TToolBar);
118 procedure MakeDefaultINIFile();
121 procedure ReadToolBarSetting(ActionList: TActionList; ToolBar: TToolBar);
127 Action: TCustomAction;
128 ToolButton: TToolButton;
130 FileName := GikoSys.GetConfigDir + INI_FILENAME;
131 if FileExists(FileName) then begin
132 for i := ToolBar.ButtonCount - 1 downto 0 do begin
133 ToolBar.RemoveControl(ToolBar.Buttons[i]);
135 ini := TMemIniFile.Create(FileName);
139 s := ini.ReadString(ToolBar.Name, 'Button' + IntToStr(i), '');
140 if s = '-' then begin
141 ToolButton := TToolButton.Create(ToolBar);
142 ToolButton.Style := tbsSeparator;
143 ToolButton.Width := 8;
144 ToolButton.Left := 10000;
145 ToolBar.InsertControl(ToolButton);
146 end else if s <> '' then begin
147 Action := GetActionItem(ActionList, s);
148 if Action <> nil then begin
149 ToolButton := TToolButton.Create(ToolBar);
150 ToolButton.Action := Action;
151 ToolButton.Left := 10000;
152 SetButtonStyle(Action, ToolButton);
153 ToolBar.InsertControl(ToolButton);
165 procedure SaveToolBarSetting(ToolBar: TToolBar);
169 Action: TBasicAction;
171 ini := TMemIniFile.Create(GikoSys.GetConfigDir + INI_FILENAME);
174 ini.EraseSection(ToolBar.Name);
175 for i := 0 to ToolBar.ButtonCount - 1 do begin
176 if ToolBar.Buttons[i].Style = tbsSeparator then begin
177 ini.WriteString(ToolBar.Name, 'Button' + IntToStr(j), '-');
180 Action := ToolBar.Buttons[i].Action;
181 if Action <> nil then
183 ini.WriteString(ToolBar.Name, 'Button' + IntToStr(j), Action.Name);
194 //ActionName
\82ÌAction
\82ð
\95Ô
\82µ
\82Ü
\82·
195 function GetActionItem(ActionList: TActionList; ActionName: string): TCustomAction;
199 for i := 0 to ActionList.ActionCount - 1 do begin
200 if ActionList.Actions[i].Name = ActionName then begin
201 Result := TCustomAction(ActionList.Actions[i]);
208 //
\83c
\81[
\83\8b\83{
\83^
\83\93\82Ì
\83X
\83^
\83C
\83\8b\90Ý
\92è
\82Æ
\83|
\83b
\83v
\83A
\83b
\83v
\90Ý
\92è
209 procedure SetButtonStyle(Action: TCustomAction; Button: TToolButton);
211 if IsCheckStyle(Action) then
212 Button.Style := tbsCheck
213 else if IsDropDownStyle(Action) then
214 Button.Style := tbsDropDown
216 Button.Style := tbsButton;
219 //Action
\82ª
\83`
\83F
\83b
\83N
\83X
\83^
\83C
\83\8b\82Ì
\83A
\83N
\83V
\83\87\83\93\82©
\82Ç
\82¤
\82©
\82ð
\95Ô
\82µ
\82Ü
\82·
220 function IsCheckStyle(Action: TCustomAction): Boolean;
224 for i := 0 to Length(CHECK_STYLE) - 1 do begin
225 if Action.Name = CHECK_STYLE[i] then begin
233 //Action
\82ª
\83h
\83\8d\83b
\83v
\83_
\83E
\83\93\83X
\83^
\83C
\83\8b\82Ì
\83A
\83N
\83V
\83\87\83\93\82©
\82Ç
\82¤
\82©
\82ð
\95Ô
\82µ
\82Ü
\82·
234 function IsDropDownStyle(Action: TCustomAction): Boolean;
238 for i := 0 to Length(DROPDOWN_STYLE) - 1 do begin
239 if Action.Name = DROPDOWN_STYLE[i] then begin
246 procedure KeepDefaultToolButton(ToolBar: TToolBar; TmpToolBar: TToolBar);
250 for i := ToolBar.ButtonCount - 1 downto 0 do begin
251 ToolBar.Buttons[i].Parent := TmpToolBar;
254 procedure MakeDefaultINIFile();
259 //
\95W
\8f\80\83c
\81[
\83\8b\83o
\81[
\83f
\83t
\83H
\83\8b\83g
261 //
\83\8a\83X
\83g
\83c
\81[
\83\8b\83o
\81[
\83f
\83t
\83H
\83\8b\83g
263 //
\83u
\83\89\83E
\83U
\83c
\81[
\83\8b\83o
\81[
\83f
\83t
\83H
\83\8b\83g
265 if not FileExists(GikoSys.GetConfigDir + INI_FILENAME) then begin
266 ini := TMemIniFile.Create(GikoSys.GetConfigDir + INI_FILENAME);
268 for i := 0 to Length(DEF_STANDARD) - 1 do begin
269 if DEF_STANDARD[i] <> '' then
270 ini.WriteString('StdToolBar', 'Button' + IntToStr(i), DEF_STANDARD[i])
272 ini.WriteString('StdToolBar', 'Button' + IntToStr(i), '-');
274 for i := 0 to Length(DEF_LIST) - 1 do begin
275 if DEF_LIST[i] <> '' then
276 ini.WriteString('ListToolBar', 'Button' + IntToStr(i), DEF_LIST[i])
278 ini.WriteString('ListToolBar', 'Button' + IntToStr(i), '-');
280 for i := 0 to Length(DEF_BROWSER) - 1 do begin
281 if DEF_BROWSER[i] <> '' then
282 ini.WriteString('BrowserToolBar', 'Button' + IntToStr(i), DEF_BROWSER[i])
284 ini.WriteString('BrowserToolBar', 'Button' + IntToStr(i), '-');