summaryrefslogtreecommitdiff
path: root/prototypes
diff options
context:
space:
mode:
authorgraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2007-08-12 22:53:51 +0000
committergraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2007-08-12 22:53:51 +0000
commita8f5bbc7a653e967e5b9b12dd749f7407dc46bb1 (patch)
treea836cf1dcf6a90e67ea689a44ce5cde894b61315 /prototypes
parentd8ae4e50861f1db94db3ac92bef07c80b1b2ecb0 (diff)
downloadfpGUI-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')
-rw-r--r--prototypes/fpgui2/tests/themetest.lpr6
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;