diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/gui/fpg_listbox.pas | 6 |
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); |