From b7e48a6753b62c1c18ce2fe8f60d03f0c272d820 Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Mon, 2 Jun 2008 21:16:18 +0000
Subject: * Minor fix to paint the EditCombo's background correctly.

---
 src/gui/gui_editcombo.pas | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src')

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