paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

RxCurrencyEdit - display edit empty value for 0 if ZeroEmpty=true

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3662 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75 2014-10-16 11:46:48 +00:00
parent 7d32a9d9c4
commit b839d15d7b
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -291,7 +291,10 @@ end;
function TCustomNumEdit.GetText: string; function TCustomNumEdit.GetText: string;
begin begin
Result := FloatToStr(FValue); if (FValue = 0) and FZeroEmpty then
Result:=''
else
Result := FloatToStr(FValue);
end; end;
function TCustomNumEdit.GetValue: Extended; function TCustomNumEdit.GetValue: Extended;
@ -448,10 +451,6 @@ begin
exit; exit;
FFocusedDisplay := true; FFocusedDisplay := true;
Reset; Reset;
{ if WidgetSet.GetLCLCapability(lcReceivesLMClearCutCopyPasteReliably) = LCL_CAPABILITY_YES then
FDataLink.Reset
else
FDataLink.Edit;}
end; end;
procedure TCustomNumEdit.WMKillFocus(var Message: TLMKillFocus); procedure TCustomNumEdit.WMKillFocus(var Message: TLMKillFocus);