From daacc12f43775075ff114cfecf730b2dcf0cc2db Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Thu, 29 Mar 2012 13:04:04 +0200 Subject: agg: implemented clip rectangle support for TfpgCanvas interface. --- src/corelib/render/software/Agg2D.pas | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'src') diff --git a/src/corelib/render/software/Agg2D.pas b/src/corelib/render/software/Agg2D.pas index ce759352..3c4ea0da 100644 --- a/src/corelib/render/software/Agg2D.pas +++ b/src/corelib/render/software/Agg2D.pas @@ -3662,22 +3662,23 @@ end; procedure TAgg2D.DoSetClipRect(const ARect: TfpgRect); begin - + ClipBox(ARect.Left, ARect.Top, ARect.Right+1, ARect.Bottom+1); end; function TAgg2D.DoGetClipRect: TfpgRect; begin - + Result.SetRect(Round(ClipBox.x1), Round(ClipBox.y1), Round(ClipBox.x2 - ClipBox.x1), Round(ClipBox.y2 - ClipBox.y1)); end; procedure TAgg2D.DoAddClipRect(const ARect: TfpgRect); begin - + {$NOTE TAgg2D.DoAddClipRect must still be implemented } end; procedure TAgg2D.DoClearClipRect; begin - + ClipBox(0, 0, FWindow.width, FWindow.height); + m_rasterizer.m_clipping := false; end; procedure TAgg2D.DoBeginDraw(awin: TfpgWindowBase; buffered: boolean); -- cgit v1.2.3-70-g09d2