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

Added: TJLabeledFloatEdit property CurrentValue

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2528 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jujibo
2012-09-20 14:52:22 +00:00
parent 79fddd5ecf
commit a4c65ef669
2 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/jujiboutils/changes.txt
View File

@ -5,7 +5,7 @@ Note: Lazarus Trunk required
Version pre-1.1 Version pre-1.1
-------------------------------------------------- --------------------------------------------------
2012-09-20 Added: TJLabeledIntegerEdit property CurrentValue 2012-09-20 Added: TJLabeledIntegerEdit and TJLabeledFloatEdit property CurrentValue
2012-06-12 Fixed: TJDbGridTimeCtrl, store time value 2012-06-12 Fixed: TJDbGridTimeCtrl, store time value
2012-03-14 Fixed: Prevent double updates (QT widgetset) in edit widgets 2012-03-14 Fixed: Prevent double updates (QT widgetset) in edit widgets
2012-03-06 Fixed: Focus issues 2012-03-06 Fixed: Focus issues

7
components/jujiboutils/src/jlabeledfloatedit.pas
View File

@ -38,6 +38,7 @@ type
function getDecimals: integer; function getDecimals: integer;
function getFormat: string; function getFormat: string;
function getValue: double; function getValue: double;
function getCurrentValue: double;
procedure formatInput; procedure formatInput;
procedure setDecimals(const AValue: integer); procedure setDecimals(const AValue: integer);
procedure setFormat(const AValue: string); procedure setFormat(const AValue: string);
@ -53,6 +54,7 @@ type
{ Public declarations } { Public declarations }
constructor Create(TheOwner: TComponent); override; constructor Create(TheOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
property CurrentValue: double read getCurrentValue;
published published
{ Published declarations } { Published declarations }
property DisplayFormat: string read getFormat write setFormat; property DisplayFormat: string read getFormat write setFormat;
@ -135,6 +137,11 @@ begin
Result := theValue; Result := theValue;
end; end;
function TJLabeledFloatEdit.getCurrentValue: double;
begin
Result:= StrToFloatDef(Text, Value);
end;
procedure TJLabeledFloatEdit.formatInput; procedure TJLabeledFloatEdit.formatInput;
begin begin
Caption := FormatFloat(DisplayFormat, theValue); Caption := FormatFloat(DisplayFormat, theValue);