Fixing Listbox hard-coded border width - fixes theming issues.

As with the ComboBox before, the ListBox hard-coded a 2px border,
instead of querying the fpgStyle for the theme's border widths.

1 files changed, 4 insertions, 2 deletions

diff --git a/src/gui/fpg_listbox.pas b/src/gui/fpg_listbox.pas
index 082288a8..757ada54 100644
--- a/src/gui/fpg_listbox.pas
+++ b/src/gui/fpg_listbox.pas
@@ -1,7 +1,7 @@
 {
     fpGUI  -  Free Pascal GUI Toolkit
 
-    Copyright (C) 2006 - 2010 See the file AUTHORS.txt, included in this
+    Copyright (C) 2006 - 2013 See the file AUTHORS.txt, included in this
     distribution, for details of the copyright.
 
     See the file COPYING.modifiedLGPL, included in this distribution,
@@ -673,6 +673,7 @@ procedure TfpgBaseListBox.HandlePaint;
 var
   n: integer;
   r: TfpgRect;
+  rect: TRect;
 begin
   //if FUpdateCount > 0 then
   //  Exit; //==>
@@ -692,7 +693,8 @@ begin
   else
   begin
     fpgStyle.DrawControlFrame(Canvas, r);
-    InflateRect(r, -2, -2);
+    rect := fpgStyle.GetControlFrameBorders;
+    InflateRect(r, -rect.Left, -rect.Top);  { assuming borders are even on opposite sides }
   end;
 
   Canvas.SetClipRect(r);