diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-01-26 13:02:14 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-01-26 13:02:14 +0000 |
| commit | 3b4f5a4f41a3c3bcbbf6521ee67518d2c895d55a (patch) | |
| tree | b948a341da71b8db925cc8882abfddbbb272d3a8 /prototypes/fpgui2 | |
| parent | fc81fae095f1349c6d8fcc84c4e69c86634ce102 (diff) | |
| download | fpGUI-3b4f5a4f41a3c3bcbbf6521ee67518d2c895d55a.tar.xz | |
Applied patch from Jean-Marc allowing TfpgEdit's text color to be changed.
Diffstat (limited to 'prototypes/fpgui2')
| -rw-r--r-- | prototypes/fpgui2/tests/edittest.lpr | 4 |
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); |