summaryrefslogtreecommitdiff
path: root/prototypes/fpgui2/tests/frm_threedee.pas
diff options
context:
space:
mode:
Diffstat (limited to 'prototypes/fpgui2/tests/frm_threedee.pas')
-rw-r--r--prototypes/fpgui2/tests/frm_threedee.pas3
1 files changed, 3 insertions, 0 deletions
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 @@ begin
tb.BackgroundColor := clWindowBackground;
lblName1.BackgroundColor := clWindowBackground;
lblName2.BackgroundColor := clWindowBackground;
+ btnQuit.BackgroundColor := clButtonFace;
end
else
begin
@@ -223,6 +224,7 @@ begin
tb.BackgroundColor := clM2DarkBlue;
lblName1.BackgroundColor := clM2DarkBlue;
lblName2.BackgroundColor := clM2DarkBlue;
+ btnQuit.BackgroundColor := clM2DarkBlue;
end;
end;
@@ -250,6 +252,7 @@ begin
Text := 'Quit';
FontDesc := '#Label1';
ImageName := 'stdimg.quit';
+ BackgroundColor := clM2DarkBlue;
OnClick := @btnQuitClicked;
end;