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

* fix for 1.1 compiler that doesn't support fixed16/32 anymore

Browse Source 
git-svn-id: trunk@580 -
This commit is contained in:
peter 2002-01-06 21:42:13 +00:00
parent 05eb399fb1
commit 2ebf0146fd
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
designer/propedits.pp
View File

@ -1772,7 +1772,11 @@ end;
function TFloatPropertyEditor.GetValue: ansistring;
const
Precisions: array[TFloatType] of Integer = (7, 15, 19, 19, 19, 15, 31);
Precisions: array[TFloatType] of Integer = (7, 15, 19, 19, 19
{$ifdef VER1_0}
, 15, 31
{$endif VER1_0}
);
begin
Result := FloatToStrF(GetFloatValue, ffGeneral,
Precisions[GetTypeData(GetPropType)^.FloatType], 0);