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

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3662 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/rx/trunk/curredit.pas

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