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

example: mediator: using canvas save/restore instead of savedc/restoredc

Browse Source 
git-svn-id: trunk@22641 -
This commit is contained in:
mattias 2009-11-17 09:53:49 +00:00
parent 42d44be9aa
commit d374dcd7b2
1 changed files with 8 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
examples/designnonlcl/mywidgetdesigner.pas
View File

@ -168,10 +168,7 @@ procedure TMyWidgetMediator.Paint;
procedure PaintWidget(AWidget: TMyWidget);
var
i: Integer;
DC: HDC;
SavedDC: HDC;
Child: TMyWidget;
SavedDC2: HDC;
begin
with LCLForm.Canvas do begin
// fill background
@ -191,25 +188,24 @@ procedure TMyWidgetMediator.Paint;
// caption
TextOut(5,2,AWidget.Caption);
// childs
DC:=Handle;
if AWidget.ChildCount>0 then begin
SavedDC:=SaveDC(DC);
SaveHandleState;
// clip client area
MoveWindowOrgEx(DC,AWidget.BorderLeft,AWidget.BorderTop);
if IntersectClipRect(DC, 0, 0, AWidget.Width-AWidget.BorderLeft-AWidget.BorderRight,
MoveWindowOrgEx(Handle,AWidget.BorderLeft,AWidget.BorderTop);
if IntersectClipRect(Handle, 0, 0, AWidget.Width-AWidget.BorderLeft-AWidget.BorderRight,
AWidget.Height-AWidget.BorderTop-AWidget.BorderBottom)<>NullRegion
then begin
for i:=0 to AWidget.ChildCount-1 do begin
SavedDC2:=SaveDC(DC);
SaveHandleState;
Child:=AWidget.Childs[i];
// clip child area
MoveWindowOrgEx(DC,Child.Left,Child.Top);
if IntersectClipRect(DC,0,0,Child.Width,Child.Height)<>NullRegion then
MoveWindowOrgEx(Handle,Child.Left,Child.Top);
if IntersectClipRect(Handle,0,0,Child.Width,Child.Height)<>NullRegion then
PaintWidget(Child);
RestoreDC(DC,SavedDC2);
RestoreHandleState;
end;
end;
RestoreDC(DC,SavedDC);
RestoreHandleState;
end;
end;
end;