paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-27 09:09:11 +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.Color:=clBlue;
Pen.Width:=1; Pen.Width:=1;
Line(10,10,20,10); Line(12,10,22,10);
Line(10,12,10,22); Line(10,12,10,22);
Line(12,12,22,22);
end; end;
// convert to LCL native pixel format // convert to LCL native pixel format
@ -61,8 +62,9 @@ begin
Pen.Color:=clRed; Pen.Color:=clRed;
Pen.Width:=1; Pen.Width:=1;
Line(22,10,32,10); Line(24,10,34,10);
Line(10,24,10,34); Line(10,24,10,34);
Line(24,24,34,34);
end; end;
end; end;