diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-08-20 14:39:38 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-08-20 14:39:38 +0000 |
commit | 4a627aaabf1a43091ed46be716f460d7086b4178 (patch) | |
tree | f75841a59419ea9ee3f9eeb88916da742a9209f8 /src/gui | |
parent | fd21e0949968595a68760b4c9666802fde117cf8 (diff) | |
download | fpGUI-4a627aaabf1a43091ed46be716f460d7086b4178.tar.xz |
* Applied minor fix from Jean-Marc for numeric edit.
Diffstat (limited to 'src/gui')
-rw-r--r-- | src/gui/gui_edit.pas | 3 |
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); |