From a8f5bbc7a653e967e5b9b12dd749f7407dc46bb1 Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Sun, 12 Aug 2007 22:53:51 +0000
Subject: * 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.

---
 prototypes/fpgui2/tests/themetest.lpr | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'prototypes')

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 @@ procedure TMainForm.HandlePaint;
   part: TfpgImage;
   r: TRect;
   x, y: TfpgCoord;
+  nr: TfpgRect;
 begin
   Canvas.BeginDraw;
   inherited HandlePaint;
@@ -535,6 +536,11 @@ procedure TMainForm.HandlePaint;
 //  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;
-- 
cgit v1.2.3-54-g00ecf