From 7f3ed5d3fc337e55732a98f79c4d3c2ba29add8e Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Mon, 19 Sep 2011 19:50:15 +0200
Subject: textedit: bugfix where if we do a selection, lots of text go missing.

We simply forgot to set the Canvas.TextColor - reseting previous FSelection
code.
---
 examples/apps/ide/src/fpg_textedit.pas | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'examples/apps')

diff --git a/examples/apps/ide/src/fpg_textedit.pas b/examples/apps/ide/src/fpg_textedit.pas
index c99297cb..4a0e3699 100644
--- a/examples/apps/ide/src/fpg_textedit.pas
+++ b/examples/apps/ide/src/fpg_textedit.pas
@@ -1830,7 +1830,10 @@ begin
 
   { Draw simple text line... }
   if AllowDraw then
+  begin
+    Canvas.TextColor := clBlack;
     Canvas.DrawText(R, S);
+  end;
 
   if FSelected then
   begin
-- 
cgit v1.2.3-70-g09d2