paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-26 13:59:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

editor toolbar: made loading toolbar settings more robuste from Boguslaw Brandys (bug #10099)

Browse Source 
git-svn-id: trunk@14744 -
This commit is contained in:
vincents 2008-04-03 09:30:18 +00:00
parent 97d94e40f4
commit 952a8829f5
2 changed files with 22 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
components/editortoolbar/editortoolbar_impl.pas
View File

@ -205,15 +205,18 @@ begin
for i := 1 to c do for i := 1 to c do
begin begin
value := cfg.GetValue('Button' + Format('%2.2d', [i]) + '/Value', ''); value := cfg.GetValue('Button' + Format('%2.2d', [i]) + '/Value', '');
if value = cDivider then if value <> '' then
AddDivider begin
else if value = cDivider then
begin AddDivider
mi := IDEMenuRoots.FindByPath(value, True); else
if Assigned(mi) then begin
AddButton(mi); mi := IDEMenuRoots.FindByPath(value,false);
end; if Assigned(mi) then
end; AddButton(mi);
end;
end;
end;
finally finally
cfg.Free; cfg.Free;
TB.EndUpdate; TB.EndUpdate;

17
components/editortoolbar/edttbconfigfrm.pas
View File

@ -196,15 +196,18 @@ begin
for i := 0 to c - 1 do for i := 0 to c - 1 do
begin begin
value := cfg.GetValue('Button' + Format('%2.2d', [i+1]) + '/Value', ''); value := cfg.GetValue('Button' + Format('%2.2d', [i+1]) + '/Value', '');
if value = cDivider then if value <> '' then
begin begin
lbToolbar.Items.Add(value); if value = cDivider then
Continue; begin
end; lbToolbar.Items.Add(value);
Continue;
end;
mi := IDEMenuRoots.FindByPath(value, true); mi := IDEMenuRoots.FindByPath(value, false);
if Assigned(mi) then if Assigned(mi) then
lbToolbar.Items.AddObject(mi.Caption, TObject(mi)); lbToolbar.Items.AddObject(mi.Caption, TObject(mi));
end;
end; end;
finally finally
cfg.Free; cfg.Free;