editcombo: Removed hard-coded control frame sizes

Instead the widget now queries the current style for those values.

1 files changed, 3 insertions, 3 deletions

diff --git a/src/gui/fpg_editcombo.pas b/src/gui/fpg_editcombo.pas
index 13d90b22..8236b7d5 100644
--- a/src/gui/fpg_editcombo.pas
+++ b/src/gui/fpg_editcombo.pas
@@ -726,6 +726,7 @@ end;
 procedure TfpgBaseEditCombo.HandlePaint;
 var
   r: TfpgRect;
+  rect: TRect;
   tw, tw2, st, len: integer;
   Texte: string;
 
@@ -774,9 +775,8 @@ begin
   Canvas.ClearClipRect;
   r.SetRect(0, 0, Width, Height);
   fpgStyle.DrawControlFrame(Canvas, r);
-
-  // internal background rectangle (without frame)
-  InflateRect(r, -2, -2);
+  rect := fpgStyle.GetControlFrameBorders;
+  InflateRect(r, -rect.Left, -rect.Top);  { assuming borders are even on opposite sides }
   Canvas.SetClipRect(r);
 
   if Enabled then