Browse CVS Repository
Annotation of /gikonavigoeson/gikonavi/ToolBarUtil.pas
Parent Directory
| Revision Log
| Revision Graph
Revision 1.27 -
( hide annotations)
( download)
( as text)
Mon Feb 18 15:42:35 2008 UTC
(16 years, 2 months ago)
by h677
Branch: MAIN
CVS Tags: v1_59_0_771, v1_59_0_770, v1_59_0_773, v1_59_0_772, v1_59_0_775, v1_59_0_774, v1_59_0_777, v1_59_0_776, v1_59_0_778, v1_63_1_819, v1_62_0_812, v1_59_1_765, v1_60_0_788, v1_60_0_789, v1_58_0_748, v1_58_0_745, v1_60_0_781, v1_60_0_782, v1_58_0_746, v1_60_0_784, v1_60_0_786, v1_60_0_787, v1_59_0_767, v1_59_1_778, v1_59_0_768, v1_59_0_769, v1_57_1_744, v1_58_0_752, v1_58_0_750, v1_58_0_751, v1_58_0_756, v1_58_0_757, v1_58_0_754, v1_58_0_755, v1_58_0_759, v1_61_0_796, v1_61_0_797, v1_61_0_795, v1_61_0_798, v1_61_0_799, v1_63_0_818, v1_63_0_817, v1_63_0_816, v1_63_0_815, v1_62_0_805, v1_62_0_804, v1_62_0_807, v1_62_0_806, v1_62_0_803, v1_62_0_802, v1_62_0_809, v1_60_0_780, v1_60_0_779, v1_62_0_810, v1_62_0_811, v1_58_0_747, v1_60_0_783, v1_59_2_785, v1_60_1_793, v1_58_0_763, v1_58_0_762, v1_58_0_761, v1_58_0_760, v1_62_1_813, v1_57_2_749, v1_57_0_742, v1_57_0_743, v1_57_0_744, v1_61_0_800, v1_60_0_793, v1_60_0_792, v1_60_0_791, v1_60_0_790, v1_60_2_794, v1_61_1_801, HEAD
Branch point for: Bb57, Bb62, Bb63, Bb60, Bb61, Bb59, Bb58
Changes since 1.26: +1 -1 lines
File MIME type: text/x-pascal
ToolButtonをRemoveControlすると、アプリケーション終了時に
AccessViolationを起こす場合対応
| 1 |
yoffy |
1.1 |
unit ToolBarUtil; |
| 2 |
|
|
|
| 3 |
|
|
interface |
| 4 |
|
|
|
| 5 |
|
|
uses |
| 6 |
|
|
Windows, Messages, SysUtils, Classes, Controls, |
| 7 |
h677 |
1.26 |
StdCtrls, ExtCtrls, ComCtrls, ActnList; |
| 8 |
yoffy |
1.1 |
|
| 9 |
|
|
const |
| 10 |
|
|
//罔?羣????若?????若?????????? |
| 11 |
h677 |
1.21 |
DEF_STANDARD: array[0..11] of string = ('RoundAction', |
| 12 |
yoffy |
1.1 |
'', |
| 13 |
|
|
'ArrangeAction', |
| 14 |
|
|
'', |
| 15 |
|
|
'StopAction', |
| 16 |
yoffy |
1.6 |
'LoginAction', |
| 17 |
|
|
'', |
| 18 |
yoffy |
1.7 |
'CabinetBBSAction', |
| 19 |
yoffy |
1.6 |
'CabinetHistoryAction', |
| 20 |
h677 |
1.20 |
'CabinetFavoriteAction', |
| 21 |
h677 |
1.21 |
'MuteAction', |
| 22 |
|
|
'BeLogInOutAction'); |
| 23 |
yoffy |
1.1 |
//???鴻?????若?????若?????????? |
| 24 |
h677 |
1.24 |
DEF_LIST: array[0..18] of string = ('ListNumberVisibleAction', |
| 25 |
yoffy |
1.1 |
'IconStyle', |
| 26 |
|
|
'UpFolderAction', |
| 27 |
|
|
'', |
| 28 |
|
|
'AllItemAction', |
| 29 |
|
|
'LogItemAction', |
| 30 |
|
|
'NewItemAction', |
| 31 |
h677 |
1.24 |
'LiveItemAction', |
| 32 |
|
|
'ArchiveItemAction', |
| 33 |
yoffy |
1.1 |
'SelectItemAction', |
| 34 |
|
|
'', |
| 35 |
|
|
'ThreadEditorAction', |
| 36 |
|
|
'', |
| 37 |
|
|
'BoardIEAction', |
| 38 |
|
|
'', |
| 39 |
|
|
'SelectListReloadAction', |
| 40 |
|
|
'SelectThreadReloadAction', |
| 41 |
|
|
'', |
| 42 |
|
|
'SelectReservAction'); |
| 43 |
|
|
//???????吟???若?????若?????????? |
| 44 |
yoffy |
1.16 |
DEF_BROWSER: array[0..16] of string = ('BrowserMaxAction', |
| 45 |
yoffy |
1.1 |
'BrowserMinAction', |
| 46 |
|
|
'', |
| 47 |
|
|
'ScrollTopAction', |
| 48 |
|
|
'ScrollLastAction', |
| 49 |
|
|
'ScrollNewAction', |
| 50 |
|
|
'ScrollKokoAction', |
| 51 |
hi_ |
1.4 |
'', |
| 52 |
|
|
'SelectResAction', |
| 53 |
yoffy |
1.15 |
'ResRangeAction', |
| 54 |
yoffy |
1.1 |
'', |
| 55 |
|
|
'EditorAction', |
| 56 |
|
|
'', |
| 57 |
|
|
'IEAction', |
| 58 |
|
|
'', |
| 59 |
h677 |
1.10 |
'ItemReloadAction', |
| 60 |
yoffy |
1.12 |
'UpBoardAction' |
| 61 |
|
|
); |
| 62 |
yoffy |
1.1 |
|
| 63 |
|
|
|
| 64 |
yoffy |
1.14 |
/// ???帥?潟?鴻?帥?ゃ????"tbsCheck"???帥?潟???≪???激?с??/span> |
| 65 |
h677 |
1.25 |
CHECK_STYLE: array[0..37] of string = ('CabinetVisibleAction', |
| 66 |
h677 |
1.20 |
'MuteAction', |
| 67 |
yoffy |
1.1 |
'ArrangeAction', |
| 68 |
|
|
'AllItemAction', |
| 69 |
|
|
'LogItemAction', |
| 70 |
|
|
'NewItemAction', |
| 71 |
h677 |
1.25 |
'LiveItemAction', |
| 72 |
|
|
'ArchiveItemAction', |
| 73 |
yoffy |
1.1 |
'SelectItemAction', |
| 74 |
|
|
|
| 75 |
|
|
'StdToolBarVisibleAction', |
| 76 |
|
|
'AddressBarVisibleAction', |
| 77 |
|
|
'LinkBarVisibleAction', |
| 78 |
|
|
'ListToolBarVisibleAction', |
| 79 |
|
|
'ListNameBarVisibleAction', |
| 80 |
|
|
'BrowserToolBarVisibleAction', |
| 81 |
|
|
'BrowserNameBarVisibleAction', |
| 82 |
|
|
'MsgBarVisibleAction', |
| 83 |
|
|
'StatusBarVisibleAction', |
| 84 |
|
|
'CabinetHistoryAction', |
| 85 |
yoffy |
1.5 |
'CabinetFavoriteAction', |
| 86 |
yoffy |
1.1 |
'LargeIconAction', |
| 87 |
|
|
'SmallIconAction', |
| 88 |
|
|
'ListIconAction', |
| 89 |
|
|
'DetailIconAction', |
| 90 |
|
|
'BrowserTabVisibleAction', |
| 91 |
|
|
'BrowserTabTopAction', |
| 92 |
|
|
'BrowserTabBottomAction', |
| 93 |
|
|
'BrowserTabTabStyleAction', |
| 94 |
|
|
'BrowserTabButtonStyleAction', |
| 95 |
|
|
'BrowserTabFlatStyleAction', |
| 96 |
|
|
'LoginAction', |
| 97 |
hi_ |
1.4 |
'ListNumberVisibleAction', |
| 98 |
|
|
'AllResAction', |
| 99 |
h677 |
1.11 |
'SelectResAction', |
| 100 |
yoffy |
1.17 |
'OnlyAHundredResAction', |
| 101 |
yoffy |
1.14 |
'OnlyKokoResAction', |
| 102 |
h677 |
1.21 |
'OnlyNewResAction', |
| 103 |
|
|
'BeLogInOutAction' |
| 104 |
yoffy |
1.1 |
); |
| 105 |
|
|
|
| 106 |
yoffy |
1.14 |
/// ???帥?潟???鴻?帥?ゃ????"tbsDropDown"???帥?潟???≪???激?с??/span> |
| 107 |
|
|
/// Giko.pas : SetToolBarPopup ??篆??????篋? |
| 108 |
yoffy |
1.18 |
DROPDOWN_STYLE: array[0..4] of string = ('IconStyle', |
| 109 |
yoffy |
1.8 |
'IEAction', |
| 110 |
yoffy |
1.14 |
'CabinetBBSAction', |
| 111 |
yoffy |
1.18 |
'ResRangeAction', |
| 112 |
|
|
'ThreadRangeAction'); |
| 113 |
yoffy |
1.1 |
|
| 114 |
|
|
INI_FILENAME: string = 'ToolBar.ini'; |
| 115 |
|
|
|
| 116 |
h677 |
1.11 |
//?阪??????絖? |
| 117 |
|
|
SEPARATOR_TEXT = '- ?阪???? -'; |
| 118 |
|
|
|
| 119 |
yoffy |
1.1 |
function IsCheckStyle(Action: TCustomAction): Boolean; |
| 120 |
|
|
function IsDropDownStyle(Action: TCustomAction): Boolean; |
| 121 |
|
|
procedure SetButtonStyle(Action: TCustomAction; Button: TToolButton); |
| 122 |
|
|
function GetActionItem(ActionList: TActionList; ActionName: string): TCustomAction; |
| 123 |
|
|
procedure ReadToolBarSetting(ActionList: TActionList; ToolBar: TToolBar); |
| 124 |
|
|
procedure SaveToolBarSetting(ToolBar: TToolBar); |
| 125 |
h677 |
1.22 |
procedure MakeDefaultINIFile(); |
| 126 |
h677 |
1.26 |
|
| 127 |
yoffy |
1.1 |
implementation |
| 128 |
|
|
|
| 129 |
h677 |
1.26 |
uses |
| 130 |
|
|
IniFiles, GikoSystem, MojuUtils; |
| 131 |
|
|
|
| 132 |
yoffy |
1.17 |
function ConvertToolButton( setting : string ) : string; |
| 133 |
|
|
begin |
| 134 |
|
|
|
| 135 |
|
|
// ? [????00???鴻???粋;腓? ?? [???鴻??;腓榊??蚊??荐??] ??舟?? |
| 136 |
|
|
if setting = 'OnlyAHundredRes' then |
| 137 |
|
|
Result := 'ResRangeAction' |
| 138 |
|
|
else |
| 139 |
|
|
Result := setting; |
| 140 |
|
|
|
| 141 |
|
|
end; |
| 142 |
|
|
|
| 143 |
yoffy |
1.1 |
procedure ReadToolBarSetting(ActionList: TActionList; ToolBar: TToolBar); |
| 144 |
|
|
var |
| 145 |
|
|
FileName: string; |
| 146 |
|
|
ini: TMemIniFile; |
| 147 |
|
|
i: Integer; |
| 148 |
|
|
s: string; |
| 149 |
|
|
Action: TCustomAction; |
| 150 |
|
|
ToolButton: TToolButton; |
| 151 |
|
|
begin |
| 152 |
|
|
FileName := GikoSys.GetConfigDir + INI_FILENAME; |
| 153 |
|
|
if FileExists(FileName) then begin |
| 154 |
h677 |
1.10 |
for i := ToolBar.ButtonCount - 1 downto 0 do begin |
| 155 |
h677 |
1.27 |
ToolBar.Buttons[i].HostDockSite := nil; |
| 156 |
h677 |
1.10 |
end; |
| 157 |
yoffy |
1.1 |
ini := TMemIniFile.Create(FileName); |
| 158 |
|
|
try |
| 159 |
|
|
i := 0; |
| 160 |
|
|
while True do begin |
| 161 |
|
|
s := ini.ReadString(ToolBar.Name, 'Button' + IntToStr(i), ''); |
| 162 |
yoffy |
1.17 |
s := ConvertToolButton( s ); |
| 163 |
yoffy |
1.1 |
if s = '-' then begin |
| 164 |
|
|
ToolButton := TToolButton.Create(ToolBar); |
| 165 |
|
|
ToolButton.Style := tbsSeparator; |
| 166 |
|
|
ToolButton.Width := 8; |
| 167 |
|
|
ToolButton.Left := 10000; |
| 168 |
|
|
ToolBar.InsertControl(ToolButton); |
| 169 |
|
|
end else if s <> '' then begin |
| 170 |
|
|
Action := GetActionItem(ActionList, s); |
| 171 |
|
|
if Action <> nil then begin |
| 172 |
|
|
ToolButton := TToolButton.Create(ToolBar); |
| 173 |
|
|
ToolButton.Action := Action; |
| 174 |
h677 |
1.19 |
if ToolButton.ImageIndex = -1 then |
| 175 |
|
|
ToolButton.ImageIndex := 51; |
| 176 |
|
|
|
| 177 |
yoffy |
1.1 |
ToolButton.Left := 10000; |
| 178 |
|
|
SetButtonStyle(Action, ToolButton); |
| 179 |
|
|
ToolBar.InsertControl(ToolButton); |
| 180 |
|
|
end; |
| 181 |
|
|
end else |
| 182 |
|
|
Break; |
| 183 |
|
|
inc(i); |
| 184 |
|
|
end; |
| 185 |
|
|
finally |
| 186 |
|
|
ini.Free; |
| 187 |
|
|
end; |
| 188 |
|
|
end; |
| 189 |
|
|
end; |
| 190 |
|
|
|
| 191 |
|
|
procedure SaveToolBarSetting(ToolBar: TToolBar); |
| 192 |
|
|
var |
| 193 |
|
|
ini: TMemIniFile; |
| 194 |
yoffy |
1.2 |
i, j: Integer; |
| 195 |
yoffy |
1.1 |
Action: TBasicAction; |
| 196 |
|
|
begin |
| 197 |
|
|
ini := TMemIniFile.Create(GikoSys.GetConfigDir + INI_FILENAME); |
| 198 |
yoffy |
1.2 |
j := 0; |
| 199 |
yoffy |
1.1 |
try |
| 200 |
|
|
ini.EraseSection(ToolBar.Name); |
| 201 |
|
|
for i := 0 to ToolBar.ButtonCount - 1 do begin |
| 202 |
|
|
if ToolBar.Buttons[i].Style = tbsSeparator then begin |
| 203 |
h677 |
1.23 |
//SelectComboBox?????????若???絖??????? |
| 204 |
|
|
if not (ToolBar.Buttons[i].Name = 'SelectComboBoxDummy') then begin |
| 205 |
|
|
ini.WriteString(ToolBar.Name, 'Button' + IntToStr(j), '-'); |
| 206 |
|
|
Inc( j ); |
| 207 |
|
|
end; |
| 208 |
yoffy |
1.1 |
end else begin |
| 209 |
|
|
Action := ToolBar.Buttons[i].Action; |
| 210 |
|
|
if Action <> nil then |
| 211 |
h677 |
1.23 |
begin |
| 212 |
yoffy |
1.2 |
ini.WriteString(ToolBar.Name, 'Button' + IntToStr(j), Action.Name); |
| 213 |
|
|
Inc( j ); |
| 214 |
|
|
end; |
| 215 |
yoffy |
1.1 |
end; |
| 216 |
|
|
end; |
| 217 |
|
|
ini.UpdateFile; |
| 218 |
|
|
finally |
| 219 |
|
|
ini.Free; |
| 220 |
|
|
end; |
| 221 |
|
|
end; |
| 222 |
|
|
|
| 223 |
|
|
//ActionName??ction??菴????障?? |
| 224 |
|
|
function GetActionItem(ActionList: TActionList; ActionName: string): TCustomAction; |
| 225 |
|
|
var |
| 226 |
|
|
i: Integer; |
| 227 |
|
|
begin |
| 228 |
|
|
for i := 0 to ActionList.ActionCount - 1 do begin |
| 229 |
|
|
if ActionList.Actions[i].Name = ActionName then begin |
| 230 |
|
|
Result := TCustomAction(ActionList.Actions[i]); |
| 231 |
|
|
Exit; |
| 232 |
|
|
end; |
| 233 |
|
|
end; |
| 234 |
|
|
Result := nil; |
| 235 |
|
|
end; |
| 236 |
|
|
|
| 237 |
|
|
//???若?????帥?潟???鴻?帥?ゃ??┃絎??????????≪????荐?? |
| 238 |
|
|
procedure SetButtonStyle(Action: TCustomAction; Button: TToolButton); |
| 239 |
|
|
begin |
| 240 |
|
|
if IsCheckStyle(Action) then |
| 241 |
|
|
Button.Style := tbsCheck |
| 242 |
|
|
else if IsDropDownStyle(Action) then |
| 243 |
|
|
Button.Style := tbsDropDown |
| 244 |
|
|
else |
| 245 |
|
|
Button.Style := tbsButton; |
| 246 |
|
|
end; |
| 247 |
|
|
|
| 248 |
|
|
//Action?????с?????鴻?帥?ゃ?????≪???激?с?潟??????????菴????障?? |
| 249 |
|
|
function IsCheckStyle(Action: TCustomAction): Boolean; |
| 250 |
|
|
var |
| 251 |
|
|
i: Integer; |
| 252 |
|
|
begin |
| 253 |
|
|
for i := 0 to Length(CHECK_STYLE) - 1 do begin |
| 254 |
|
|
if Action.Name = CHECK_STYLE[i] then begin |
| 255 |
|
|
Result := True; |
| 256 |
|
|
Exit; |
| 257 |
|
|
end; |
| 258 |
|
|
end; |
| 259 |
|
|
Result := False; |
| 260 |
|
|
end; |
| 261 |
|
|
|
| 262 |
|
|
//Action???????????????潟?鴻?帥?ゃ?????≪???激?с?潟??????????菴????障?? |
| 263 |
|
|
function IsDropDownStyle(Action: TCustomAction): Boolean; |
| 264 |
|
|
var |
| 265 |
|
|
i: Integer; |
| 266 |
|
|
begin |
| 267 |
|
|
for i := 0 to Length(DROPDOWN_STYLE) - 1 do begin |
| 268 |
|
|
if Action.Name = DROPDOWN_STYLE[i] then begin |
| 269 |
|
|
Result := True; |
| 270 |
|
|
Exit; |
| 271 |
|
|
end; |
| 272 |
|
|
end; |
| 273 |
|
|
Result := False; |
| 274 |
|
|
end; |
| 275 |
h677 |
1.22 |
|
| 276 |
h677 |
1.11 |
procedure MakeDefaultINIFile(); |
| 277 |
|
|
var |
| 278 |
|
|
ini: TMemIniFile; |
| 279 |
|
|
i: Integer; |
| 280 |
|
|
begin |
| 281 |
|
|
//罔?羣????若?????若?????????? |
| 282 |
|
|
//DEF_STANDARD: |
| 283 |
|
|
//???鴻?????若?????若?????????? |
| 284 |
|
|
//DEF_LIST: |
| 285 |
|
|
//???????吟???若?????若?????????? |
| 286 |
|
|
//DEF_BROWSER: |
| 287 |
|
|
if not FileExists(GikoSys.GetConfigDir + INI_FILENAME) then begin |
| 288 |
|
|
ini := TMemIniFile.Create(GikoSys.GetConfigDir + INI_FILENAME); |
| 289 |
|
|
try |
| 290 |
|
|
for i := 0 to Length(DEF_STANDARD) - 1 do begin |
| 291 |
|
|
if DEF_STANDARD[i] <> '' then |
| 292 |
|
|
ini.WriteString('StdToolBar', 'Button' + IntToStr(i), DEF_STANDARD[i]) |
| 293 |
|
|
else |
| 294 |
|
|
ini.WriteString('StdToolBar', 'Button' + IntToStr(i), '-'); |
| 295 |
|
|
end; |
| 296 |
|
|
for i := 0 to Length(DEF_LIST) - 1 do begin |
| 297 |
|
|
if DEF_LIST[i] <> '' then |
| 298 |
|
|
ini.WriteString('ListToolBar', 'Button' + IntToStr(i), DEF_LIST[i]) |
| 299 |
|
|
else |
| 300 |
|
|
ini.WriteString('ListToolBar', 'Button' + IntToStr(i), '-'); |
| 301 |
|
|
end; |
| 302 |
|
|
for i := 0 to Length(DEF_BROWSER) - 1 do begin |
| 303 |
|
|
if DEF_BROWSER[i] <> '' then |
| 304 |
|
|
ini.WriteString('BrowserToolBar', 'Button' + IntToStr(i), DEF_BROWSER[i]) |
| 305 |
|
|
else |
| 306 |
|
|
ini.WriteString('BrowserToolBar', 'Button' + IntToStr(i), '-'); |
| 307 |
|
|
end; |
| 308 |
|
|
|
| 309 |
|
|
finally |
| 310 |
|
|
ini.UpdateFile; |
| 311 |
|
|
ini.Free; |
| 312 |
|
|
end; |
| 313 |
|
|
end; |
| 314 |
|
|
|
| 315 |
|
|
end; |
| 316 |
|
|
|
| 317 |
yoffy |
1.1 |
end. |
| |