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

designer: cleanup

Browse Source 
git-svn-id: trunk@22835 -
This commit is contained in:
paul 2009-11-27 17:43:45 +00:00
parent 1d9513d837
commit 271c760dc1
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
designer/designer.pp
View File

@ -2898,15 +2898,10 @@ var
IconRect, TextRect: TRect;
TextSize: TSize;
IsSelected: Boolean;
Root: TComponent;
begin
// also call draw for the inline components
// also call draw for the inline components children
if csInline in AComponent.ComponentState then
begin
Root := AComponent;
TComponentAccess(AComponent).GetChildren(@DrawNonVisualComponent, Root);
end else
Root := FLookupRoot;
TComponentAccess(AComponent).GetChildren(@DrawNonVisualComponent, AComponent);
if not ComponentIsIcon(AComponent) then
Exit;