summaryrefslogtreecommitdiff
path: root/prototypes
diff options
context:
space:
mode:
authorgraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2008-01-26 13:02:14 +0000
committergraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2008-01-26 13:02:14 +0000
commit3b4f5a4f41a3c3bcbbf6521ee67518d2c895d55a (patch)
treeb948a341da71b8db925cc8882abfddbbb272d3a8 /prototypes
parentfc81fae095f1349c6d8fcc84c4e69c86634ce102 (diff)
downloadfpGUI-3b4f5a4f41a3c3bcbbf6521ee67518d2c895d55a.tar.xz
Applied patch from Jean-Marc allowing TfpgEdit's text color to be changed.
Diffstat (limited to 'prototypes')
-rw-r--r--prototypes/fpgui2/tests/edittest.lpr4
1 files changed, 4 insertions, 0 deletions
diff --git a/prototypes/fpgui2/tests/edittest.lpr b/prototypes/fpgui2/tests/edittest.lpr
index ff289206..d44bd6c8 100644
--- a/prototypes/fpgui2/tests/edittest.lpr
+++ b/prototypes/fpgui2/tests/edittest.lpr
@@ -333,6 +333,10 @@ 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
+ else
+ edit1.Color := clBlue;
end;
procedure TMainForm.checkbox1Changed(Sender: TObject);