From a4e6d005efb3dd74568e9603f9c17fa833892764 Mon Sep 17 00:00:00 2001 From: mattias Date: Mon, 12 Oct 2009 15:26:40 +0000 Subject: [PATCH] aggpas: fixed FillRect border and position git-svn-id: trunk@22119 - --- components/aggpas/lazarus/example/unit2.pas | 4 ++++ components/aggpas/src/agg_lcl.pas | 8 +++++++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/components/aggpas/lazarus/example/unit2.pas b/components/aggpas/lazarus/example/unit2.pas index 999597b26d..6941ea250d 100644 --- a/components/aggpas/lazarus/example/unit2.pas +++ b/components/aggpas/lazarus/example/unit2.pas @@ -51,6 +51,8 @@ begin Line(12,10,22,10); Line(10,12,10,22); Line(12,12,22,22); + + FillRect(40,10,50,20); end; // convert to LCL native pixel format @@ -65,6 +67,8 @@ begin Line(24,10,34,10); Line(10,24,10,34); Line(24,24,34,34); + + FillRect(40,22,50,32); end; end; diff --git a/components/aggpas/src/agg_lcl.pas b/components/aggpas/src/agg_lcl.pas index 7ead45decb..9f6416955b 100755 --- a/components/aggpas/src/agg_lcl.pas +++ b/components/aggpas/src/agg_lcl.pas @@ -240,7 +240,13 @@ end; procedure TAggLCLCanvas.FillRect(X1, Y1, X2, Y2: Integer); begin - Rectangle(X1,Y1,X2,Y2); + Path.m_path.remove_all; + Path.m_path.move_to(X1,Y1); + Path.m_path.line_to(X2,Y1); + Path.m_path.line_to(X2,Y2); + Path.m_path.line_to(X1,Y2); + AggClosePolygon; + AggDrawPath(AGG_FillOnly); end; { TAggLCLBrush }