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

IDE: Fix a crash bug with ComponentList when ComponentPalette is hidden. Issue #28261, patch from Ondrej Pokorny.

Browse Source 
git-svn-id: trunk@49288 -
This commit is contained in:
juha 2015-06-08 14:47:50 +00:00
parent a8ae389b6f
commit 215e8e0e35
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/componentpalette.pas
View File

@ -739,7 +739,8 @@ begin
if not fComponentButtons.Find(Selected.ComponentClass.ClassName, i) then if not fComponentButtons.Find(Selected.ComponentClass.ClassName, i) then
ReAlignButtons(FPageControl.ActivePage); ReAlignButtons(FPageControl.ActivePage);
// Select button // Select button
fComponentButtons[Selected.ComponentClass.ClassName].Down := true; if fComponentButtons.Find(Selected.ComponentClass.ClassName, i) then //find again!
fComponentButtons.Data[i].Down := true;
end; end;
procedure TComponentPalette.CreatePopupMenu; procedure TComponentPalette.CreatePopupMenu;