diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-10-23 13:11:46 +0100 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-10-23 13:11:46 +0100 |
| commit | 1b9227f654106d61a1f8a61aabbcdbf2715a7ea8 (patch) | |
| tree | a17b05d11432069d1fb350bd4b7031e6d6666b4a /src/gui/fpg_edit.pas | |
| parent | 13fd38ff9f564cf9ec312754c1a36d5a9fb5d897 (diff) | |
| download | fpGUI-1b9227f654106d61a1f8a61aabbcdbf2715a7ea8.tar.xz | |
edit: HandlePaint() now uses the theming engine to determine the border widths.
No more hard-coded 2 pixel widths.
Diffstat (limited to 'src/gui/fpg_edit.pas')
| -rw-r--r-- | src/gui/fpg_edit.pas | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/gui/fpg_edit.pas b/src/gui/fpg_edit.pas index 367eb489..89f5cdce 100644 --- a/src/gui/fpg_edit.pas +++ b/src/gui/fpg_edit.pas @@ -693,6 +693,7 @@ end; procedure TfpgBaseEdit.HandlePaint; var r: TfpgRect; + rect: TRect; begin Canvas.ClearClipRect; r.SetRect(0, 0, Width, Height); @@ -704,7 +705,8 @@ begin ebsDefault: begin Canvas.DrawControlFrame(r); - InflateRect(r, -2, -2); + rect := fpgStyle.GetControlFrameBorders; + InflateRect(r, -rect.Left, -rect.Top); { assuming borders are even on opposite sides } end; ebsSingle: begin |