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

IDEIntf: GetSelectableComponents: csOwnedChildsSelectable

Browse Source 
git-svn-id: trunk@22842 -
This commit is contained in:
mattias 2009-11-28 00:20:46 +00:00
parent bd7a777008
commit ba45db3a02
1 changed files with 23 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
ideintf/propedits.pp
View File

@ -1626,15 +1626,17 @@ type
public
List: TFPList;
Flags: TSelectableComponentFlags;
procedure GetSelectableComponents(Root: TComponent);
Root: TComponent;
procedure GetSelectableComponents(ARoot: TComponent);
procedure Gather(Child: TComponent);
end;
{ TSelectableComponentEnumerator }
procedure TSelectableComponentEnumerator.GetSelectableComponents(
Root: TComponent);
ARoot: TComponent);
begin
Root:=ARoot;
if List=nil then
List:=TFPList.Create;
if Root=nil then exit;
@ -1643,11 +1645,26 @@ begin
end;
procedure TSelectableComponentEnumerator.Gather(Child: TComponent);
var
OldRoot: TComponent;
begin
List.Add(Child);
if (csInline in Child.ComponentState)
and (not (scfWithoutInlineChilds in Flags)) then
TSelectableComponentEnumerator(Child).GetChildren(@Gather,Child);
if not ((Child is TControl)
and (csNoDesignSelectable in TControl(Child).ControlStyle))
then
List.Add(Child);
OldRoot:=Root;
try
if csInline in Child.ComponentState then begin
if scfWithoutInlineChilds in Flags then exit;
if (Child is TControl)
and (not (csOwnedChildsSelectable in TControl(Child).ControlStyle)) then
exit;
Root:=Child;
end;
TSelectableComponentEnumerator(Child).GetChildren(@Gather,Root);
finally
Root:=OldRoot;
end;
end;
procedure GetSelectableComponents(Root: TComponent;