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

IDE: fixed crash when releasing non existing component palette select button

Browse Source 
git-svn-id: trunk@38444 -
This commit is contained in:
mattias 2012-08-31 01:53:32 +00:00
parent 80bac85dcd
commit d602e69411
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/componentpalette.pas
View File

@ -623,8 +623,10 @@ begin
if PageIndex>=0 then begin
CurPage:=Pages[PageIndex];
CurBtn:=TSpeedButton(CurPage.SelectButton);
CurPage.SelectButton:=nil;
Application.ReleaseComponent(CurBtn);
if CurBtn<>nil then begin
CurPage.SelectButton:=nil;
Application.ReleaseComponent(CurBtn);
end;
Pages[PageIndex].PageComponent:=nil;
end;
if FPageControl.Pages[i]=OldActivePage then