diff options
Diffstat (limited to 'examples/corelib/canvastest')
| -rw-r--r-- | examples/corelib/canvastest/fpgcanvas.lpr | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/examples/corelib/canvastest/fpgcanvas.lpr b/examples/corelib/canvastest/fpgcanvas.lpr index 23dbb03a..1ed2c1c0 100644 --- a/examples/corelib/canvastest/fpgcanvas.lpr +++ b/examples/corelib/canvastest/fpgcanvas.lpr @@ -170,6 +170,10 @@ begin Canvas.FillArc(5, 290, 50, 50, 0, 270); // should overlap rectangle pixels + // Gradient testing + r := Rect(265, 340, 450, 375); + Canvas.GradientFill(r, clBlue, clMagenta, gdHorizontal); + Canvas.EndDraw; end; |