diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-08-06 15:09:11 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-08-06 15:09:11 +0000 |
| commit | f11fffeb438a1d3457629d183fe96657d12c9546 (patch) | |
| tree | fb3d451acc3201c7bced7075beb83493928929bb /examples/corelib/canvastest/fpgcanvas.lpr | |
| parent | 00a0e93ffe1635157c834e58d3b9c18c841bc062 (diff) | |
| download | fpGUI-f11fffeb438a1d3457629d183fe96657d12c9546.tar.xz | |
* Implemented Canvas.FillGradient().
* Made some improvements to the TfpgBaseGrid painting. Still have lots
outstanding though.
Diffstat (limited to 'examples/corelib/canvastest/fpgcanvas.lpr')
| -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; |