paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-22 03:26:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

aggpas: fixed FillRect border and position

Browse Source 
git-svn-id: trunk@22119 -
This commit is contained in:
mattias 2009-10-12 15:26:40 +00:00
parent f29dd380ea
commit a4e6d005ef
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/aggpas/lazarus/example/unit2.pas
View File

@ -51,6 +51,8 @@ begin
Line(12,10,22,10); Line(12,10,22,10);
Line(10,12,10,22); Line(10,12,10,22);
Line(12,12,22,22); Line(12,12,22,22);
FillRect(40,10,50,20);
end; end;
// convert to LCL native pixel format // convert to LCL native pixel format
@ -65,6 +67,8 @@ begin
Line(24,10,34,10); Line(24,10,34,10);
Line(10,24,10,34); Line(10,24,10,34);
Line(24,24,34,34); Line(24,24,34,34);
FillRect(40,22,50,32);
end; end;
end; end;

8
components/aggpas/src/agg_lcl.pas
View File

@ -240,7 +240,13 @@ end;
procedure TAggLCLCanvas.FillRect(X1, Y1, X2, Y2: Integer); procedure TAggLCLCanvas.FillRect(X1, Y1, X2, Y2: Integer);
begin 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; end;
{ TAggLCLBrush } { TAggLCLBrush }