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

IDE: designer: fixed DrawNonVisualComponent when frame is in a groupbox on a form

Browse Source 
git-svn-id: trunk@22844 -
This commit is contained in:
mattias 2009-11-28 00:27:27 +00:00
parent a0d2779d55
commit 446308e0f5
1 changed files with 6 additions and 3 deletions

9
designer/designer.pp
View File

@ -2991,11 +2991,14 @@ var
IconRect, TextRect: TRect;
TextSize: TSize;
IsSelected: Boolean;
Root: TComponent;
begin
// also call draw for the inline components children
if csInline in AComponent.ComponentState then
TComponentAccess(AComponent).GetChildren(@DrawNonVisualComponent, AComponent);
if (csInline in AComponent.ComponentState) or (AComponent.Owner=nil) then
Root:=AComponent
else
Root:=AComponent.Owner;
TComponentAccess(AComponent).GetChildren(@DrawNonVisualComponent, Root);
if not ComponentIsIcon(AComponent) then
Exit;
// actual draw