summaryrefslogtreecommitdiff
path: root/src/gui/fpg_edit.pas
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graeme@mastermaths.co.za>2011-05-06 00:07:15 +0200
committerGraeme Geldenhuys <graeme@mastermaths.co.za>2011-05-06 00:07:15 +0200
commit7f2a1ba73eea231189cf75b59cd45a5b6edae2e6 (patch)
tree9604d36749ace3ce22d739b5817a402a9473aca9 /src/gui/fpg_edit.pas
parentf70544b08906698f2d25b366d82a28af410e3079 (diff)
downloadfpGUI-7f2a1ba73eea231189cf75b59cd45a5b6edae2e6.tar.xz
Refactored the TfpgBaseEdit to use the new style painting method.
Diffstat (limited to 'src/gui/fpg_edit.pas')
-rw-r--r--src/gui/fpg_edit.pas7
1 files changed, 1 insertions, 6 deletions
diff --git a/src/gui/fpg_edit.pas b/src/gui/fpg_edit.pas
index 689b98ae..91ec2494 100644
--- a/src/gui/fpg_edit.pas
+++ b/src/gui/fpg_edit.pas
@@ -711,12 +711,7 @@ begin
end;
Canvas.SetClipRect(r);
- if Enabled and not ReadOnly then
- Canvas.SetColor(FBackgroundColor)
- else
- Canvas.SetColor(clWindowBackground);
- Canvas.FillRectangle(r);
-
+ fpgStyle.DrawEditBox(Canvas, r, Enabled, ReadOnly, FBackgroundColor);
Canvas.SetFont(FFont);
end;