paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-25 16:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

aggpas: example diag line

Browse Source 
git-svn-id: trunk@22118 -
This commit is contained in:
mattias 2009-10-12 15:17:16 +00:00
parent 157277fda7
commit f29dd380ea
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -48,8 +48,9 @@ begin
Pen.Color:=clBlue;
Pen.Width:=1;
Line(10,10,20,10);
Line(12,10,22,10);
Line(10,12,10,22);
Line(12,12,22,22);
end;
// convert to LCL native pixel format
@ -61,8 +62,9 @@ begin
Pen.Color:=clRed;
Pen.Width:=1;
Line(22,10,32,10);
Line(24,10,34,10);
Line(10,24,10,34);
Line(24,24,34,34);
end;
end;