summaryrefslogtreecommitdiff
path: root/examples/corelib/canvastest
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graeme@mastermaths.co.za>2010-04-30 15:25:45 +0200
committerGraeme Geldenhuys <graeme@mastermaths.co.za>2010-04-30 15:25:45 +0200
commit5707c892347d86a6a98b56890d9d022844ce6a19 (patch)
tree5e3c4006da1fb08c40a28663045e76005dff07cb /examples/corelib/canvastest
parentecc0622c21866b811f870e188162a0fcc856f9c8 (diff)
downloadfpGUI-5707c892347d86a6a98b56890d9d022844ce6a19.tar.xz
Extended Canvas Test demo to show that 1x1 rectangles now work.
Also shows that ?x1 (horizontal line) or 1x? (vertical line) rectangles work.
Diffstat (limited to 'examples/corelib/canvastest')
-rw-r--r--examples/corelib/canvastest/fpgcanvas.lpr8
1 files changed, 7 insertions, 1 deletions
diff --git a/examples/corelib/canvastest/fpgcanvas.lpr b/examples/corelib/canvastest/fpgcanvas.lpr
index c774a156..972c87a9 100644
--- a/examples/corelib/canvastest/fpgcanvas.lpr
+++ b/examples/corelib/canvastest/fpgcanvas.lpr
@@ -47,7 +47,13 @@ var
begin
// Testing Rectangles
Canvas.SetColor(clBlack);
- r.SetRect(0, 0, 1, 1);
+ r.SetRect(0, 0, 1, 1); // 1x1 (this is really a dot)
+ Canvas.DrawRectangle(r);
+ Canvas.SetColor(clRed);
+ r.SetRect(0, 1, 1, 5); // 1x5 (this is really a vertical line)
+ Canvas.DrawRectangle(r);
+ Canvas.SetColor(clMagenta);
+ r.SetRect(1, 0, 5, 1); // 5x1 (this is really a horizontal line)
Canvas.DrawRectangle(r);
Canvas.SetColor(clBlack);