diff options
| -rw-r--r-- | examples/corelib/canvastest/fpgcanvas.lpr | 8 |
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); |