pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Fixed paint-location of first child widget

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2481 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
loesje_
2012-07-21 18:09:43 +00:00
parent 0ffef64893
commit ccf31173a7
1 changed files with 10 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
components/iosdesigner/iosnibdesigner.pas
View File

@ -258,6 +258,7 @@ procedure TNSObjectDesignerMediator.Paint;
begin begin
with LCLForm.Canvas do with LCLForm.Canvas do
begin begin
SaveHandleState;
if AWidget is NSObject then if AWidget is NSObject then
begin begin
Brush.Style:=bsClear; Brush.Style:=bsClear;
@ -269,26 +270,20 @@ procedure TNSObjectDesignerMediator.Paint;
begin begin
AWidget.Paint(LCLForm.Canvas); AWidget.Paint(LCLForm.Canvas);
end; end;
RestoreHandleState;
// children // children
if AWidget.ChildCount>0 then if AWidget.ChildCount>0 then
begin begin
//SaveHandleState; for i:=0 to AWidget.ChildCount-1 do begin
// clip client area SaveHandleState;
{if IntersectClipRect(Handle, AWidget.left, AWidget.Top, AWidget.left+AWidget.Width, Child:=AWidget.Children[i];
AWidget.Height+AWidget.Top)<>NullRegion // clip child area
then} begin MoveWindowOrgEx(Handle,Child.Left,Child.Top);
for i:=0 to AWidget.ChildCount-1 do begin if IntersectClipRect(Handle,0,0,Child.Width,Child.Height)<>NullRegion then
SaveHandleState; PaintWidget(Child);
Child:=AWidget.Children[i]; RestoreHandleState;
// 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;
end; end;
//RestoreHandleState;
end;
end; end;
end; end;