paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 14:09:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

removed fpc 2.1.1 workaround, fpc has now an int64 overload of FloatToStrF

Browse Source 
git-svn-id: trunk@8686 -
This commit is contained in:
vincents 2006-02-02 12:42:26 +00:00
parent b8f76e44f5
commit 34ada0cc60
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/customupdown.inc
View File

@ -241,7 +241,7 @@ begin
if (not (csDesigning in ComponentState)) and (FAssociate <> nil)
then begin
if Thousands
then FAssociate.Text := FloatToStrF(Single(FPosition), ffNumber, 0, 0)
then FAssociate.Text := FloatToStrF(FPosition, ffNumber, 0, 0)
else FAssociate.Text := IntToStr(FPosition);
end;
end;