summaryrefslogtreecommitdiff
path: root/src/gui/gui_editcombo.pas
diff options
context:
space:
mode:
authorgraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2008-06-02 21:16:18 +0000
committergraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2008-06-02 21:16:18 +0000
commitb7e48a6753b62c1c18ce2fe8f60d03f0c272d820 (patch)
treeb805e77b82b0ff45d976df72d12244a0c2415baf /src/gui/gui_editcombo.pas
parent78b4dd4f902644763da65a89f4d63f5e292b4a31 (diff)
downloadfpGUI-b7e48a6753b62c1c18ce2fe8f60d03f0c272d820.tar.xz
* Minor fix to paint the EditCombo's background correctly.
Diffstat (limited to 'src/gui/gui_editcombo.pas')
-rw-r--r--src/gui/gui_editcombo.pas7
1 files changed, 7 insertions, 0 deletions
diff --git a/src/gui/gui_editcombo.pas b/src/gui/gui_editcombo.pas
index 481fca0b..63dcbec4 100644
--- a/src/gui/gui_editcombo.pas
+++ b/src/gui/gui_editcombo.pas
@@ -627,6 +627,13 @@ begin
InflateRect(r, -2, -2);
Canvas.SetClipRect(r);
+ if Enabled then
+ Canvas.SetColor(FBackgroundColor)
+ else
+ Canvas.SetColor(clWindowBackground);
+
+ Canvas.FillRectangle(r);
+
// paint the fake dropdown button
PaintInternalButton;