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

Fixed: incorrect format display

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

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

@ -132,7 +132,7 @@ end;
function TJLabeledIntegerEdit.getCurrentValue: integer;
begin
Result:= StrToIntDef(Text, Value);
Result := StrToIntDef(Text, Value);
end;
procedure TJLabeledIntegerEdit.setFormat(const AValue: string);
@ -157,7 +157,9 @@ end;
procedure TJLabeledIntegerEdit.FormatInput;
begin
if not fNull then
if fNull and (theValue = Low(integer)) then
Text := ''
else
Text := FormatFloat(fFormat, theValue);
end;
@ -166,8 +168,8 @@ begin
inherited DoEnter;
if ReadOnly then
exit;
if not fNull then
Text := IntToStr(theValue);
if not fNull then
Text := IntToStr(theValue);
SelectAll;
end;
@ -177,7 +179,7 @@ begin
if ReadOnly then
exit;
if fNull and (Length(Caption) = 0) then
theValue:= Low(Integer) // min integer value means null
theValue := Low(integer) // min integer value means null
else
if IsValidInteger(Text) then
theValue := StrToInt(Text)
@ -212,7 +214,7 @@ end;
function TJLabeledIntegerEdit.isNull: boolean;
begin
Result:= theValue = Low(Integer);
Result := theValue = Low(integer);
end;
end.