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

Added: AllowNull property to TJLabeledIntegerEdit

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2851 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jujibo
2013-11-27 10:01:09 +00:00
parent b2b2c69c87
commit eda11d6bf8
1 changed files with 15 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
components/jujiboutils/src/jlabeledintegeredit.pas
View File

@ -31,6 +31,7 @@ type
TJLabeledIntegerEdit = class(TCustomLabeledEdit)
private
fNull: boolean;
{ Private declarations }
theValue: integer;
fFormat: string;
@ -50,11 +51,13 @@ type
{ Public declarations }
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
function isNull: boolean;
property CurrentValue: integer read getCurrentValue;
published
{ Published declarations }
property DisplayFormat: string read getFormat write setFormat;
property Value: integer read getValue write setValue;
property AllowNull: boolean read fNull write fNull default False;
property Action;
property Align;
@ -154,7 +157,8 @@ end;
procedure TJLabeledIntegerEdit.FormatInput;
begin
Text := FormatFloat(fFormat, theValue);
if not fNull then
Text := FormatFloat(fFormat, theValue);
end;
procedure TJLabeledIntegerEdit.DoEnter;
@ -162,7 +166,8 @@ begin
inherited DoEnter;
if ReadOnly then
exit;
Text := IntToStr(theValue);
if not fNull then
Text := IntToStr(theValue);
SelectAll;
end;
@ -171,6 +176,9 @@ begin
inherited DoExit;
if ReadOnly then
exit;
if fNull and (Length(Caption) = 0) then
theValue:= Low(Integer) // min integer value means null
else
if IsValidInteger(Text) then
theValue := StrToInt(Text)
else
@ -202,5 +210,10 @@ begin
inherited Destroy;
end;
function TJLabeledIntegerEdit.isNull: boolean;
begin
Result:= theValue = Low(Integer);
end;
end.