From 3b1687153b6e6235cd55e49218606bc51c7ef07c Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 9 Oct 2014 05:26:47 +0000
Subject: [PATCH] RxFPC: fix get value TCurrencyEdit.DisplayText on editing
 data

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3642 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/trunk/curredit.pas | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/components/rx/trunk/curredit.pas b/components/rx/trunk/curredit.pas
index 2d952f597..abb639356 100644
--- a/components/rx/trunk/curredit.pas
+++ b/components/rx/trunk/curredit.pas
@@ -58,6 +58,7 @@ type
     FFocused: Boolean;
     FZeroEmpty: Boolean;
     function GetAsInteger: Longint;
+    function GetIsNull: boolean;
     function GetText: string;
     function GetValue: Extended;
     procedure SetAsInteger(const AValue: Longint);
@@ -119,6 +120,7 @@ type
     property AsInteger: Longint read GetAsInteger write SetAsInteger;
     property DisplayText: string read GetDisplayText;
     property Value: Extended read GetValue write SetValue;
+    property IsNull:boolean read GetIsNull;
   published
     { Published declarations }
   end;
@@ -245,9 +247,14 @@ begin
   Result := Trunc(Value);
 end;
 
+function TCustomNumEdit.GetIsNull: boolean;
+begin
+  Result:=false;
+end;
+
 function TCustomNumEdit.GetDisplayText: string;
 begin
-  Result := FormatDisplayText(FValue);
+  Result := FormatDisplayText(Value);
 end;
 
 procedure TCustomNumEdit.Reset;