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

Fix bugs and code refactoring

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

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

@ -157,7 +157,7 @@ end;
procedure TJLabeledIntegerEdit.FormatInput; procedure TJLabeledIntegerEdit.FormatInput;
begin begin
if fNull and (theValue = Low(integer)) then if isNull then
Text := '' Text := ''
else else
Text := FormatFloat(fFormat, theValue); Text := FormatFloat(fFormat, theValue);
@ -168,7 +168,7 @@ begin
inherited DoEnter; inherited DoEnter;
if ReadOnly then if ReadOnly then
exit; exit;
if not fNull then if not isNull then
Text := IntToStr(theValue); Text := IntToStr(theValue);
SelectAll; SelectAll;
end; end;
@ -214,7 +214,7 @@ end;
function TJLabeledIntegerEdit.isNull: boolean; function TJLabeledIntegerEdit.isNull: boolean;
begin begin
Result := theValue = Low(integer); Result := fNull and (theValue = Low(integer));
end; end;
end. end.