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

IDE/TCompPaletteOptionsFrame: fix the error when clicking on the blank of the Pages ListBox

Browse Source
This commit is contained in:
rich2014 2023-07-01 16:49:11 +08:00
parent a71b3ddc55
commit 14cf563d3e
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/frames/componentpalette_options.pas
View File

@ -410,9 +410,12 @@ var
begin
lb := Sender as TListBox;
if lb.ItemIndex = fPrevPageIndex then Exit;
FillComponents(lb.Items[lb.ItemIndex]);
UpdatePageMoveButtons(lb.ItemIndex);
UpdateCompMoveButtons(-1);
if lb.ItemIndex >= 0 then
begin
FillComponents(lb.Items[lb.ItemIndex]);
UpdatePageMoveButtons(lb.ItemIndex);
UpdateCompMoveButtons(-1);
end;
fPrevPageIndex := lb.ItemIndex;
end;