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

9
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,14 +270,10 @@ 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;
// 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 for i:=0 to AWidget.ChildCount-1 do begin
SaveHandleState; SaveHandleState;
Child:=AWidget.Children[i]; Child:=AWidget.Children[i];
@ -287,8 +284,6 @@ procedure TNSObjectDesignerMediator.Paint;
RestoreHandleState; RestoreHandleState;
end; end;
end; end;
//RestoreHandleState;
end;
end; end;
end; end;