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

IDEIntf: TDefaultComponentEditor: always select component

Browse Source 
git-svn-id: trunk@37144 -
This commit is contained in:
mattias 2012-05-03 06:46:12 +00:00
parent 6e86b03868
commit 4b43946e95
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ideintf/componenteditors.pas
View File

@ -699,8 +699,7 @@ begin
if not GetHook(PropertyEditorHook) then exit;
NewLookupRoot:=GetLookupRootForComponent(Component);
if not (NewLookupRoot is TComponent) then exit;
if NewLookupRoot<>PropertyEditorHook.LookupRoot then
GetDesigner.SelectOnlyThisComponent(Component);
GetDesigner.SelectOnlyThisComponent(Component);
FContinue := True;
FFirst := nil;
FBest := nil;