From 5707c892347d86a6a98b56890d9d022844ce6a19 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Fri, 30 Apr 2010 15:25:45 +0200 Subject: Extended Canvas Test demo to show that 1x1 rectangles now work. Also shows that ?x1 (horizontal line) or 1x? (vertical line) rectangles work. --- examples/corelib/canvastest/fpgcanvas.lpr | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'examples/corelib/canvastest') 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); -- cgit v1.2.3-70-g09d2