From ea4a9faddc8c3a5322d43d2484df9d6cc1a04041 Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Mon, 30 Jun 2008 13:25:51 +0000
Subject: * A quick implementation of the Vista Black button. * Minor code
 cleanup in GDI window title procedure.

---
 prototypes/fpgui2/tests/themetest.lpr | 24 ++++++++----------------
 1 file changed, 8 insertions(+), 16 deletions(-)

(limited to 'prototypes')

diff --git a/prototypes/fpgui2/tests/themetest.lpr b/prototypes/fpgui2/tests/themetest.lpr
index fe17a37b..c194e571 100644
--- a/prototypes/fpgui2/tests/themetest.lpr
+++ b/prototypes/fpgui2/tests/themetest.lpr
@@ -18,7 +18,7 @@
   gfx_extinterpolation,
   gui_trackbar,
   gui_style,
-  gui_dialogs, fpgui_toolkit;
+  gui_dialogs;
 
 type
   { Note:
@@ -49,7 +49,7 @@   TThemeButton = class(TfpgButton)
     destructor  Destroy; override;
     { this property is only for demo purposes! }
     property    ThemeImage: TfpgImage read image write SetThemeImage;
-    property    Masked: Boolean read FMasked write FMasked;
+    property    Masked: Boolean read FMasked write FMasked default False;
     property    ThemeBorder: Integer read FThemeBorder write FThemeBorder default 3;
   end;
 
@@ -429,6 +429,7 @@ procedure TThemeButton.HandlePaint;
   iy, y: integer;
   w: integer;
   pofs: integer;
+  ow, oh: integer;
 begin
   Canvas.BeginDraw;
 //  inherited HandlePaint;
@@ -448,16 +449,9 @@ procedure TThemeButton.HandlePaint;
       State := 0;
   end;
 
-  //if Assigned(image) then
-  //begin
-    //try
-    //image.CreateMaskFromSample(0, 0);
-    //image.UpdateImage;
-    //except
-      //raise Exception.Create('Failed to create ImageMask in TThemeButton');
-    //end;
-  //end;
-  PaintPartScaledImage(image, Canvas, 0, 0, 32, 21, Width, Height, FThemeBorder, state, FMasked);
+  ow := image.Width div 5;  // 5 states
+  oh := image.Height;
+  PaintPartScaledImage(image, Canvas, 0, 0, ow, oh, Width, Height, FThemeBorder, state, FMasked);
 (*
   x := 0;
   { left }
@@ -646,14 +640,12 @@ procedure TMainForm.CreateButtons;
   vista := TThemeButton.Create(self);
   vista.Left         := 20;
   vista.Top          := 145;
-  vista.Width        := 100;
-  vista.Height       := 26;
+  vista.Width        := 101;  //75;
+  vista.Height       := 41;   //24;
   vista.TextColor    := clWhite;
   vista.FontDesc     := 'Arial-10:bold';
   vista.Text         := 'Vista';
   bmp := LoadImage_BMP(SetDirSeparators('../../../images/themes/vista/button.bmp'));
-  bmp.CreateMaskFromSample(0, 0);
-  bmp.UpdateImage;
   vista.ThemeImage := bmp;
 
   styledbutton := TStyledButton.Create(self);
-- 
cgit v1.2.3-54-g00ecf