diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-08-12 22:53:51 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-08-12 22:53:51 +0000 |
| commit | a8f5bbc7a653e967e5b9b12dd749f7407dc46bb1 (patch) | |
| tree | a836cf1dcf6a90e67ea689a44ce5cde894b61315 /prototypes/fpgui2/tests | |
| parent | d8ae4e50861f1db94db3ac92bef07c80b1b2ecb0 (diff) | |
| download | fpGUI-a8f5bbc7a653e967e5b9b12dd749f7407dc46bb1.tar.xz | |
* Minor adjustment to the GradientFill function.
* Played around with the GradientFill and implemented the BlueCurve selection look in the TfpgListBox. This is just a test and will be removed shortly.
Diffstat (limited to 'prototypes/fpgui2/tests')
| -rw-r--r-- | prototypes/fpgui2/tests/themetest.lpr | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/prototypes/fpgui2/tests/themetest.lpr b/prototypes/fpgui2/tests/themetest.lpr index 0aa5f251..65b65fc8 100644 --- a/prototypes/fpgui2/tests/themetest.lpr +++ b/prototypes/fpgui2/tests/themetest.lpr @@ -461,6 +461,7 @@ var part: TfpgImage; r: TRect; x, y: TfpgCoord; + nr: TfpgRect; begin Canvas.BeginDraw; inherited HandlePaint; @@ -535,6 +536,11 @@ begin // Canvas.StretchDraw(5, 69, 17, 17, partimg); img.Free; + + nr.SetRect(20, 250, 100, 4); + Canvas.DrawControlFrame(nr); + nr.SetRect(70, 241, 11, 21); + Canvas.DrawButtonFace(nr, []); Canvas.EndDraw; |