diff options
| author | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2008-06-08 17:35:32 +0200 |
|---|---|---|
| committer | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2008-06-08 17:35:32 +0200 |
| commit | f9c7a5f62f96fab9ce5e3d2c205bc9da3046c4d4 (patch) | |
| tree | 87cf87bfd9e1fe5c63a57f3d72c0a44d98970f22 /UPreferences.pas | |
| parent | 226843b5d3c171734426756ceecba13817294eb9 (diff) | |
| download | tuxcmd-0.6.39.tar.xz | |
Format numbers according to used localev0.6.39
Diffstat (limited to 'UPreferences.pas')
| -rw-r--r-- | UPreferences.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/UPreferences.pas b/UPreferences.pas index c1c75b0..fa6775d 100644 --- a/UPreferences.pas +++ b/UPreferences.pas @@ -197,7 +197,7 @@ begin SizeFormatOptionMenu := TGTKOptionMenu.Create(Self); SizeFormatLabel.FocusControl := SizeFormatOptionMenu; miSizeFormat1 := TGTKMenuItem.CreateTyped(Self, itLabel); - miSizeFormat1.Caption := Format('%s %s', [LANGPreferencesmiSizeFormat1, FormatFloat('(###,###,###)', 123456)]); + miSizeFormat1.Caption := Format('%s (%s)', [LANGPreferencesmiSizeFormat1, FormatSize(123456, 0, 0)]); miSizeFormat2 := TGTKMenuItem.CreateTyped(Self, itLabel); miSizeFormat2.Caption := '123456'; miSizeFormat3 := TGTKMenuItem.CreateTyped(Self, itLabel); |