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

designer: fix clipping rectangle for the csInline non-visual children

Browse Source 
git-svn-id: trunk@23133 -
This commit is contained in:
paul 2009-12-14 02:59:21 +00:00
parent 60f580fe1a
commit 3c92edd5c6
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
designer/designer.pp
View File

@ -3014,7 +3014,8 @@ begin
FDDC.BeginPainting;
FDDC.Canvas.SaveHandleState;
OwnerRect := TControl(AComponent).ClientRect;
GetParentFormRelativeClientOrigin(AComponent);
Diff := GetParentFormRelativeClientOrigin(AComponent);
OffsetRect(OwnerRect, Diff.X, Diff.Y);
with OwnerRect do
RGN := CreateRectRGN(Left, Top, Right, Bottom);
SelectClipRGN(FDDC.DC, RGN);
@ -3026,9 +3027,9 @@ begin
FDDC.Canvas.RestoreHandleState;
FDDC.EndPainting;
end;
end else begin
end
else
TComponentAccess(AComponent).GetChildren(@DrawNonVisualComponent, AComponent.Owner);
end;
if not ComponentIsIcon(AComponent) or (AComponent.Owner = nil) then
Exit;