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

RxFPC: fix get value TCurrencyEdit.DisplayText on editing data

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3642 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75 2014-10-09 05:26:47 +00:00
parent c98ddb84d2
commit 3b1687153b
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -58,6 +58,7 @@ type
FFocused: Boolean; FFocused: Boolean;
FZeroEmpty: Boolean; FZeroEmpty: Boolean;
function GetAsInteger: Longint; function GetAsInteger: Longint;
function GetIsNull: boolean;
function GetText: string; function GetText: string;
function GetValue: Extended; function GetValue: Extended;
procedure SetAsInteger(const AValue: Longint); procedure SetAsInteger(const AValue: Longint);
@ -119,6 +120,7 @@ type
property AsInteger: Longint read GetAsInteger write SetAsInteger; property AsInteger: Longint read GetAsInteger write SetAsInteger;
property DisplayText: string read GetDisplayText; property DisplayText: string read GetDisplayText;
property Value: Extended read GetValue write SetValue; property Value: Extended read GetValue write SetValue;
property IsNull:boolean read GetIsNull;
published published
{ Published declarations } { Published declarations }
end; end;
@ -245,9 +247,14 @@ begin
Result := Trunc(Value); Result := Trunc(Value);
end; end;
function TCustomNumEdit.GetIsNull: boolean;
begin
Result:=false;
end;
function TCustomNumEdit.GetDisplayText: string; function TCustomNumEdit.GetDisplayText: string;
begin begin
Result := FormatDisplayText(FValue); Result := FormatDisplayText(Value);
end; end;
procedure TCustomNumEdit.Reset; procedure TCustomNumEdit.Reset;