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

Avoid showing undesired float format

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2587 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jujibo
2012-10-30 15:15:28 +00:00
parent 467d62d6d7
commit 0484197d39
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/jdblabeledfloatedit.pas
View File

@@ -150,7 +150,7 @@ begin
if not Focused then
formatInput
else
Caption := FDataLink.Field.AsString;
Caption := FloatToStr(FDataLink.Field.AsFloat);
end
else
Text := '';
@@ -187,7 +187,7 @@ begin
if FDataLink.Field <> nil then
begin
ShowMessage(Format(SInvalidNumber, [Caption]));
Caption := FDataLink.Field.AsString;
Caption := FloatToStr(FDataLink.Field.AsFloat);
SelectAll;
SetFocus;
end;
@@ -352,7 +352,7 @@ end;
procedure TJDBLabeledFloatEdit.DoEnter;
begin
if FDataLink.Field <> nil then
Caption := FDataLink.Field.AsString;
Caption := FloatToStr(FDataLink.Field.AsFloat); //FDataLink.Field.AsString;
inherited DoEnter;
end;