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

IDE: changing control selection to another lookuproot: update hook.lookuproot

Browse Source 
git-svn-id: trunk@37917 -
This commit is contained in:
mattias 2012-07-12 12:51:04 +00:00
parent e54706e814
commit cb8750c0e9
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/main.pp
View File

@ -14920,6 +14920,8 @@ begin
if (TheControlSelection=nil) or (FormEditor1=nil) then exit; if (TheControlSelection=nil) or (FormEditor1=nil) then exit;
if OldForm<>nil then if OldForm<>nil then
OldForm.Invalidate; OldForm.Invalidate;
if TheControlSelection.LookupRoot<>nil then
GlobalDesignHook.LookupRoot:=TheControlSelection.LookupRoot;
if NewForm<>nil then if NewForm<>nil then
NewForm.Invalidate; NewForm.Invalidate;
UpdateIDEComponentPalette; UpdateIDEComponentPalette;