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

fixed compilation with fpc 2.1.1

Browse Source 
git-svn-id: trunk@8683 -
This commit is contained in:
vincents 2006-02-01 21:22:54 +00:00
parent be772ad31a
commit 0ecb485c10
1 changed files with 1 additions and 1 deletions

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(FPosition, ffNumber, 0, 0)
then FAssociate.Text := FloatToStrF(Single(FPosition), ffNumber, 0, 0)
else FAssociate.Text := IntToStr(FPosition);
end;
end;