1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
unit ToolBarOptionsBase;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils,
// LazUtils
Laz2_XMLCfg;
const
IDEToolBarConfigVersion = 1; // File version in configuration.
type
{ TIDEToolBarOptionsBase }
TIDEToolBarOptionsBase = class
private
FButtonNames: TStringList;
protected
procedure LoadButtonNames(XMLConfig: TXMLConfig; SubPath: String);
procedure SaveButtonNames(XMLConfig: TXMLConfig; SubPath: String);
public
constructor Create;
destructor Destroy; override;
procedure Clear;
function Equals(Opts: TIDEToolBarOptionsBase): boolean; overload;
procedure Assign(Source: TIDEToolBarOptionsBase);
//procedure Load(XMLConfig: TXMLConfig; Path: String);
//procedure Save(XMLConfig: TXMLConfig; Path: String);
published
property ButtonNames: TStringList read FButtonNames; // write FButtonNames;
end;
const
cIDEToolbarDivider = '---------------';
cTailItemCaption = ' ';
implementation
{ TIDEToolBarOptionsBase }
constructor TIDEToolBarOptionsBase.Create;
begin
FButtonNames := TStringList.Create;
end;
destructor TIDEToolBarOptionsBase.Destroy;
begin
FButtonNames.Free;
inherited Destroy;
end;
procedure TIDEToolBarOptionsBase.Clear;
begin
FButtonNames.Clear;
end;
function TIDEToolBarOptionsBase.Equals(Opts: TIDEToolBarOptionsBase): boolean;
begin
Result := FButtonNames.Equals(Opts.FButtonNames);
end;
procedure TIDEToolBarOptionsBase.Assign(Source: TIDEToolBarOptionsBase);
begin
FButtonNames.Assign(Source.FButtonNames);
end;
procedure TIDEToolBarOptionsBase.LoadButtonNames(XMLConfig: TXMLConfig; SubPath: String);
var
ButtonCount: Integer;
ButtonName: string;
I, FileVersion: Integer;
begin
FileVersion := XMLConfig.GetValue(SubPath + 'Version', 0);
ButtonCount := XMLConfig.GetValue(SubPath + 'Count', 0);
if (FileVersion < 1) and (ButtonCount = 0) then // Old format
ButtonCount := XMLConfig.GetValue(SubPath + 'ButtonCount/Value', 0);
ButtonNames.Clear;
for I := 1 to ButtonCount do
begin
ButtonName := XMLConfig.GetValue(SubPath + 'Button' + IntToStr(I) + '/Name', '');
if (FileVersion < 1) and (ButtonName = '') then // Old format
ButtonName := XMLConfig.GetValue(SubPath + 'Buttons/Name' + IntToStr(I) + '/Value', '');
if ButtonName <> '' then
ButtonNames.Add(ButtonName);
end;
end;
procedure TIDEToolBarOptionsBase.SaveButtonNames(XMLConfig: TXMLConfig; SubPath: String);
var
I: Integer;
begin
XMLConfig.SetValue(SubPath + 'Version', IDEToolBarConfigVersion);
XMLConfig.SetDeleteValue(SubPath + 'Count', ButtonNames.Count, 0);
for I := 0 to ButtonNames.Count-1 do
XMLConfig.SetDeleteValue(SubPath + 'Button' + IntToStr(I+1) + '/Name', ButtonNames[I], '');
end;
end.
|
