diff options
Diffstat (limited to 'prototypes')
| -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); |