From 352a0d6eb4320cf3c6cabffb27f93f285a8bfeb9 Mon Sep 17 00:00:00 2001 From: graemeg Date: Fri, 1 Feb 2008 08:41:01 +0000 Subject: * Applied patch from Jean-Marc which fixes a minor issue in the TfpgMemo and TfpgMenu components. It also adds a new BackgroundColor property to TfpgButton. * Minor fixes to Jean-Marc's patch with button painting. * The threedee example now uses the new Button.BackgroundColor property. --- prototypes/fpgui2/tests/frm_threedee.pas | 3 +++ 1 file changed, 3 insertions(+) (limited to 'prototypes') diff --git a/prototypes/fpgui2/tests/frm_threedee.pas b/prototypes/fpgui2/tests/frm_threedee.pas index a31a829e..dd3bc46d 100644 --- a/prototypes/fpgui2/tests/frm_threedee.pas +++ b/prototypes/fpgui2/tests/frm_threedee.pas @@ -214,6 +214,7 @@ procedure TfrmMain.BGColorChange(Sender: TObject); tb.BackgroundColor := clWindowBackground; lblName1.BackgroundColor := clWindowBackground; lblName2.BackgroundColor := clWindowBackground; + btnQuit.BackgroundColor := clButtonFace; end else begin @@ -223,6 +224,7 @@ procedure TfrmMain.BGColorChange(Sender: TObject); tb.BackgroundColor := clM2DarkBlue; lblName1.BackgroundColor := clM2DarkBlue; lblName2.BackgroundColor := clM2DarkBlue; + btnQuit.BackgroundColor := clM2DarkBlue; end; end; @@ -250,6 +252,7 @@ procedure TfrmMain.AfterCreate; Text := 'Quit'; FontDesc := '#Label1'; ImageName := 'stdimg.quit'; + BackgroundColor := clM2DarkBlue; OnClick := @btnQuitClicked; end; -- cgit v1.2.3-54-g00ecf