From fa5ed724d54919d67fd30c724bf76bf95a10e8df Mon Sep 17 00:00:00 2001 From: graemeg Date: Sat, 26 Jan 2008 15:16:16 +0000 Subject: * Added a new Color property to RadioButton, Button and CheckBox. The text color can now be changed per component. * Fixed up the default values for Color and BackgroundColor for a few components. * Extended the EditTest project to show the Color property in action. --- prototypes/fpgui2/tests/edittest.lpr | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) (limited to 'prototypes/fpgui2/tests') diff --git a/prototypes/fpgui2/tests/edittest.lpr b/prototypes/fpgui2/tests/edittest.lpr index d44bd6c8..5c99685f 100644 --- a/prototypes/fpgui2/tests/edittest.lpr +++ b/prototypes/fpgui2/tests/edittest.lpr @@ -333,10 +333,20 @@ begin 'and it should have done so. If not, there is a bug in the code. It ' + 'has also been optimized to wordwrap and not split words over two lines.' , 'My cool message title'); - if edit1.Color = clBlue then - edit1.Color := clText1 + if btn2.Color = clBlue then + begin + edit1.Color := clText1; + btn2.Color := clText1; + checkbox2.Color := clText1; + radiobtn1.Color := clText1; + end else + begin edit1.Color := clBlue; + btn2.Color := clBlue; + checkbox2.Color := clBlue; + radiobtn1.Color := clBlue; + end; end; procedure TMainForm.checkbox1Changed(Sender: TObject); -- cgit v1.2.3-70-g09d2