paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-10 23:28:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: fixed ide coolbar clear before load

Browse Source
This commit is contained in:
mattias 2024-10-21 19:17:12 +02:00
parent 6d78d5e830
commit e62389efe2
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/packages/ideconfig/coolbaroptions.pas
View File

@ -260,9 +260,9 @@ begin
FGrabStyle := XMLConfig.GetValue(Path + 'GrabStyle/Value', cDefaultGrabStyle);
FGrabWidth := XMLConfig.GetValue(Path + 'GrabWidth/Value', cDefaultGrabWidth);
FBorderStyle := XMLConfig.GetValue(Path + 'BorderStyle/Value', cDefaultBorderstyle);
FToolBars.Clear;
if ToolBarCount > 0 then
begin
FToolBars.Clear;
for I := 0 to ToolbarCount-1 do
begin
ToolBarOpt := TIDEToolBarOptions.Create;
@ -289,7 +289,11 @@ begin
XMLConfig.SetDeleteValue(Path + 'GrabStyle/Value', FGrabStyle, cDefaultGrabStyle);
XMLConfig.SetDeleteValue(Path + 'GrabWidth/Value', FGrabWidth, cDefaultGrabWidth);
XMLConfig.SetDeleteValue(Path + 'BorderStyle/Value', FBorderStyle, cDefaultBorderstyle);
if EqualToolbars(DefaultOpts) then Exit;
if EqualToolbars(DefaultOpts) then
begin
XMLConfig.SetDeleteValue(Path + 'Count', 0, 0);
Exit;
end;
XMLConfig.SetDeleteValue(Path + 'Count', FToolBars.Count, 0);
if FToolBars.Count > 0 then
begin