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

Added: TJDBLabeledFloatEdit and TJDBLabeledCurrencyEdit null value support

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2847 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jujibo
2013-11-23 12:47:14 +00:00
parent db4eec3283
commit 60a5a4279b
2 changed files with 20 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
components/jujiboutils/src/jdblabeledcurrencyedit.pas
View File

@ -35,6 +35,7 @@ type
fFormat: string;
FDataLink: TFieldDataLink;
fDecimales: integer;
fNull: boolean;
procedure DataChange(Sender: TObject);
function getDecimals: integer;
@ -81,6 +82,7 @@ type
property DataSource: TDataSource read GetDataSource write SetDataSource;
property Decimals: integer read getDecimals write setDecimals;
property ReadOnly: boolean read GetReadOnly write SetReadOnly default False;
property AllowNull: boolean read fNull write fNull default False;
property Action;
property Align;
@ -175,6 +177,9 @@ var
begin
if FDataLink.Field <> nil then
begin
if fNull and (Length(Caption) = 0) then
FDataLink.Field.Value := Null
else
if IsValidCurrency(Text) then
begin
theValue := StrToCurr(Text);
@ -242,6 +247,9 @@ procedure TJDBLabeledCurrencyEdit.formatInput;
begin
if FDataLink.Field <> nil then
//FDataLink.Field.DisplayText -> formatted (tdbgridcolumns/persistent field DisplayFormat
if FDataLink.Field.IsNull then
Caption := ''
else
if fFormat <> '' then
Caption := FormatFloat(fFormat, FDataLink.Field.AsCurrency)
else
@ -340,7 +348,7 @@ end;
procedure TJDBLabeledCurrencyEdit.KeyPress(var Key: char);
begin
if not FieldIsEditable(Field) or not FDatalink.Edit then
Key := #0;
Key := #0;
if (Key in ['.', ',']) then
Key := Decimalseparator;
if (key = DecimalSeparator) and (Pos(key, Text) > 0) then
@ -356,7 +364,7 @@ end;
procedure TJDBLabeledCurrencyEdit.DoEnter;
begin
if not FieldIsEditable(Field) or IsReadOnly then
exit;
exit;
if FDataLink.Field <> nil then
Caption := FDataLink.Field.AsString;
inherited DoEnter;
@ -387,7 +395,7 @@ procedure TJDBLabeledCurrencyEdit.EditingDone;
begin
inherited EditingDone;
if not FieldIsEditable(Field) or IsReadOnly then
exit;
exit;
if DataSource.State in [dsEdit, dsInsert] then
UpdateData(self)
else

10
components/jujiboutils/src/jdblabeledfloatedit.pas
View File

@ -36,6 +36,7 @@ type
fEFormat: string;
FDataLink: TFieldDataLink;
fDecimales: integer;
fNull: boolean;
procedure DataChange(Sender: TObject);
function getDecimals: integer;
@ -83,6 +84,7 @@ type
property DataSource: TDataSource read GetDataSource write SetDataSource;
property Decimals: integer read getDecimals write setDecimals;
property ReadOnly: boolean read GetReadOnly write SetReadOnly default False;
property AllowNull: boolean read fNull write fNull default False;
property Action;
property Align;
@ -179,6 +181,9 @@ var
begin
if FDataLink.Field <> nil then
begin
if fNull and (Length(Caption) = 0) then
FDataLink.Field.Value := Null
else
if IsValidFloat(Text) then
begin
theValue := StrToFloat(Text);
@ -252,6 +257,9 @@ procedure TJDBLabeledFloatEdit.formatInput;
begin
if FDataLink.Field <> nil then
//FDataLink.Field.DisplayText -> formatted (tdbgridcolumns/persistent field DisplayFormat
if FDataLink.Field.IsNull then
Caption := ''
else
if fFormat <> '' then
Caption := FormatFloat(fFormat, FDataLink.Field.AsFloat)
else
@ -383,7 +391,7 @@ begin
FDataLink.OnDataChange := @DataChange;
FDataLink.OnUpdateData := @UpdateData;
FDataLInk.OnActiveChange := @ActiveChange;
fEFormat:= '';
fEFormat := '';
// Set default values
//fDecimales := 2;
//fFormat := '0.00';