pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC - fix text TCurrencyEdit.ZeroEmpty = true

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3666 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2014-10-20 06:12:39 +00:00
parent 2a61d87225
commit ea812a803e
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/rx/trunk/curredit.pas
View File

@ -657,6 +657,9 @@ function TCustomNumEdit.FormatDisplayText(Value: Extended): string;
var
Digits : integer;
begin
if FZeroEmpty and (Value = 0) then
Result:=''
else
if DisplayFormat <> '' then
Result:=FormatFloat(DisplayFormat, Value)
else