summaryrefslogtreecommitdiff
path: root/src/gui
diff options
context:
space:
mode:
Diffstat (limited to 'src/gui')
-rw-r--r--src/gui/gui_edit.pas3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/gui/gui_edit.pas b/src/gui/gui_edit.pas
index 7906dedf..3b426e29 100644
--- a/src/gui/gui_edit.pas
+++ b/src/gui/gui_edit.pas
@@ -1285,6 +1285,7 @@ end;
procedure TfpgBaseNumericEdit.HandlePaint;
var
x: TfpgCoord;
+ r: TfpgRect;
begin
if Alignment = taRightJustify then
begin
@@ -1292,6 +1293,8 @@ begin
inherited HandlePaint;
// Canvas.ClearClipRect;
// r.SetRect(0, 0, Width, Height);
+ r.SetRect(2, 2, Width - 4, Height - 4);
+ Canvas.SetClipRect(r);
Canvas.Clear(BackgroundColor);
Canvas.SetFont(Font);
Canvas.SetTextColor(TextColor);