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

IDE: designer: selection checks parent level for non visual icons

Browse Source 
git-svn-id: trunk@23023 -
This commit is contained in:
mattias 2009-12-08 11:07:05 +00:00
parent fa76b6d423
commit 69219dadbc
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
designer/designer.pp
View File

@ -393,7 +393,9 @@ type
TComponentSearch = class(TComponent)
public
Best: TComponent;
BestLevel: integer;
BestIsNonVisual: boolean;
Level: integer;
AtPos: TPoint;
MinClass: TComponentClass;
IgnoreHidden: boolean;
@ -413,7 +415,7 @@ var
OldRoot: TComponent;
IsNonVisual: Boolean;
begin
if (Best<>nil) and BestIsNonVisual then exit;
if (Best<>nil) and BestIsNonVisual and (BestLevel<=Level) then exit;
{$IFDEF VerboseDesignerSelect}
DebugLn(['TComponentSearch.Gather ',DbgSName(Child),' ',dbgs(AtPos),' MinClass=',DbgSName(MinClass)]);
{$ENDIF}
@ -444,6 +446,7 @@ begin
{$ENDIF}
OldRoot:=Root;
try
inc(Level);
if csInline in Child.ComponentState then
Root:=Child;
{$IFDEF VerboseDesignerSelect}
@ -451,6 +454,7 @@ begin
{$ENDIF}
TComponentSearch(Child).GetChildren(@Gather,Root);
finally
dec(Level);
Root:=OldRoot;
end;
{$IFDEF VerboseDesignerSelect}
@ -468,6 +472,8 @@ begin
if not Child.InheritsFrom(MinClass) then exit;
if OnlyNonVisual and not IsNonVisual then exit;
Best:=Child;
BestIsNonVisual:=IsNonVisual;
BestLevel:=Level;
{$IFDEF VerboseDesignerSelect}
DebugLn(['TComponentSearch.Gather Best=',DbgSName(Best)]);
{$ENDIF}
@ -477,7 +483,9 @@ end;
procedure TComponentSearch.Search(ARoot: TComponent);
begin
Root:=ARoot;
Level:=1;
TComponentSearch(Root).GetChildren(@Gather,Root);
Level:=0;
end;
const