diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-09-19 19:50:15 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-09-19 19:50:15 +0200 |
commit | 7f3ed5d3fc337e55732a98f79c4d3c2ba29add8e (patch) | |
tree | c080c6519fb28dd2a3c921bc7b79f63eb36ae77f /examples/apps/ide | |
parent | 3d711ad83a69b23a27fc51fda608e2591618f0e2 (diff) | |
download | fpGUI-7f3ed5d3fc337e55732a98f79c4d3c2ba29add8e.tar.xz |
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.
Diffstat (limited to 'examples/apps/ide')
-rw-r--r-- | examples/apps/ide/src/fpg_textedit.pas | 3 |
1 files changed, 3 insertions, 0 deletions
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 |