From 3b4f5a4f41a3c3bcbbf6521ee67518d2c895d55a Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Sat, 26 Jan 2008 13:02:14 +0000
Subject: Applied patch from Jean-Marc allowing TfpgEdit's text color to be
 changed.

---
 prototypes/fpgui2/tests/edittest.lpr | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'prototypes/fpgui2')

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);
-- 
cgit v1.2.3-70-g09d2