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

Added: JDBLabeledIntegerEdit support for null values

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2845 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jujibo
2013-11-22 09:23:34 +00:00
parent 2172ae9c6e
commit 63f2b8fae4
1 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/jujiboutils/src/jdblabeledintegeredit.pas
View File

@ -34,6 +34,7 @@ type
private
fFormat: string;
FDataLink: TFieldDataLink;
fNull: boolean;
procedure DataChange(Sender: TObject);
procedure UpdateData(Sender: TObject);
@ -76,6 +77,7 @@ type
property DataField: string read GetDataField write SetDataField;
property DataSource: TDataSource read GetDataSource write SetDataSource;
property ReadOnly: boolean read GetReadOnly write SetReadOnly default False;
property AllowNull: boolean read fNull write fNull default False;
property Action;
property Align;
@ -158,6 +160,9 @@ procedure TJDBLabeledIntegerEdit.UpdateData(Sender: TObject);
begin
if FDataLink.Field <> nil then
begin
if fNull and (Length(Caption) = 0) then
FDataLink.Field.Value := Null
else
if IsValidInteger(Caption) then
begin
FDataLink.Field.Text := Text;
@ -218,6 +223,9 @@ procedure TJDBLabeledIntegerEdit.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.AsInteger)
else