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

IDE: Cleanup + sanity checks for deleting IDE Coolbar's Toolbar. Issue #34302.

Browse Source 
git-svn-id: trunk@59093 -
This commit is contained in:
juha 2018-09-20 08:18:59 +00:00
parent 6cc32369e2
commit 080e9177b5
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/frames/idecoolbar_options.pas
View File

@ -439,13 +439,14 @@ begin
begin
if MessageDlg(lisCoolbarDeleteToolBar, mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
if ToDelete + 1 < CoolBar.Bands.Count then
if ToDelete < CoolBar.Bands.Count-1 then
SelectBand(ToDelete + 1)
else if ToDelete - 1 >= 0 then
else if ToDelete > 0 then
SelectBand(ToDelete - 1);
I := FTempCoolBar.FindByToolBar((CoolBar.Bands.Items[ToDelete].Control as TToolBar));
if I <> -1 then
FTempCoolBar.ToolBars.Delete(I);
Assert(I = ToDelete, 'TIdeCoolbarOptionsFrame.bDeleteClick: index mismatch.');
// CoolBar Band gets deleted at the same go with FTempCoolBar item.
FTempCoolBar.ToolBars.Delete(ToDelete);
end;
end;
EnableDisableToolbarButtons;