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

LCL: TCustomFrame.SetParent; check if something changed

Browse Source 
git-svn-id: trunk@25807 -
This commit is contained in:
mattias 2010-05-31 19:23:56 +00:00
parent 38bc8a1545
commit d2e198ddc2
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/include/customframe.inc
View File

@ -123,6 +123,7 @@ procedure TCustomFrame.SetParent(AParent: TWinControl);
end;
begin
if Parent=AParent then exit;
if Parent<>nil then
UpdateActionLists(Self,opRemove);
if (Parent=nil) and HandleAllocated then