diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-11-13 17:09:05 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-11-13 17:09:05 +0200 |
| commit | f555d77c67dd10e74d13346eb3d5bfd96b3efcc9 (patch) | |
| tree | eb1ef322b10a37ab42b7f2b503caadf76a41f91a /src | |
| parent | 60bac26347164e8c89d783fc2f4b0d7b40af9efc (diff) | |
| download | fpGUI-f555d77c67dd10e74d13346eb3d5bfd96b3efcc9.tar.xz | |
Filegrid: Formatting of file size value is now fixed under Windows 7.
Under Windows 7, the ',' character for thousand separator was replaced with
a '?' character for some reason. Number formatting now uses a space char
separator instead.
Diffstat (limited to 'src')
| -rw-r--r-- | src/gui/fpg_grid.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/gui/fpg_grid.pas b/src/gui/fpg_grid.pas index 3a8d4ced..b7800b55 100644 --- a/src/gui/fpg_grid.pas +++ b/src/gui/fpg_grid.pas @@ -203,7 +203,7 @@ var e: TFileEntry; x: integer; y: integer; - s: string; + s: Tfpgstring; img: TfpgImage; begin e := FFileList.Entry[ARow]; @@ -241,7 +241,7 @@ begin if e.EntryType = etDir then s := '' else - s := FormatFloat('###,###,###,##0', e.Size); + s := FormatFloat('### ### ### ##0', e.Size); x := ARect.Right - Font.TextWidth(s) - 1; if x < (ARect.Left + 2) then x := ARect.Left + 2; |