From ccf31173a75a121edbade1d740c149aa6dfaff42 Mon Sep 17 00:00:00 2001 From: loesje_ Date: Sat, 21 Jul 2012 18:09:43 +0000 Subject: [PATCH] * Fixed paint-location of first child widget git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2481 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/iosdesigner/iosnibdesigner.pas | 25 +++++++++-------------- 1 file changed, 10 insertions(+), 15 deletions(-) diff --git a/components/iosdesigner/iosnibdesigner.pas b/components/iosdesigner/iosnibdesigner.pas index f32365fd4..b51d0e5e8 100644 --- a/components/iosdesigner/iosnibdesigner.pas +++ b/components/iosdesigner/iosnibdesigner.pas @@ -258,6 +258,7 @@ procedure TNSObjectDesignerMediator.Paint; begin with LCLForm.Canvas do begin + SaveHandleState; if AWidget is NSObject then begin Brush.Style:=bsClear; @@ -269,26 +270,20 @@ procedure TNSObjectDesignerMediator.Paint; begin AWidget.Paint(LCLForm.Canvas); end; + RestoreHandleState; // children if AWidget.ChildCount>0 then begin - //SaveHandleState; - // clip client area - {if IntersectClipRect(Handle, AWidget.left, AWidget.Top, AWidget.left+AWidget.Width, - AWidget.Height+AWidget.Top)<>NullRegion - then} begin - for i:=0 to AWidget.ChildCount-1 do begin - SaveHandleState; - Child:=AWidget.Children[i]; - // clip child area - MoveWindowOrgEx(Handle,Child.Left,Child.Top); - if IntersectClipRect(Handle,0,0,Child.Width,Child.Height)<>NullRegion then - PaintWidget(Child); - RestoreHandleState; + for i:=0 to AWidget.ChildCount-1 do begin + SaveHandleState; + Child:=AWidget.Children[i]; + // clip child area + MoveWindowOrgEx(Handle,Child.Left,Child.Top); + if IntersectClipRect(Handle,0,0,Child.Width,Child.Height)<>NullRegion then + PaintWidget(Child); + RestoreHandleState; end; end; - //RestoreHandleState; - end; end; end;