paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 12:18:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: fixed typo in resource string name

Browse Source
This commit is contained in:
Maxim Ganetsky 2022-10-03 02:17:26 +03:00
parent 8f00090a13
commit be6b774886
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/ideintf/objinspstrconsts.pas
View File

@ -373,7 +373,7 @@ resourcestring
oisStringsEditorDialog = 'Strings Editor Dialog';
ois0Lines0Chars = '0 lines, 0 chars';
oisInvalidPropertyValue = 'Invalid property value';
oisInfiniteNotSupported = 'Setting a floating point property to positive or negative Infinity at design time is not supported';
oisInfinityNotSupported = 'Setting a floating point property to positive or negative Infinity at design time is not supported';
oisNaNNotSupported = 'Setting a floating point property to NaN at design time is not supported';
oisNone = '(none)';
oisPressAKey = 'Press a key ...';

2
components/ideintf/propedits.pp
View File

@ -3985,7 +3985,7 @@ begin
//if this failed, assume the user entered DS from his current locale
NewFloat := StrToFloat(NewValue, DefaultFormatSettings);
if IsInfinite(NewFloat) then
raise EPropertyError.Create(oisInfiniteNotSupported);
raise EPropertyError.Create(oisInfinityNotSupported);
if IsNan(NewFloat) then
raise EPropertyError.Create(oisNaNNotSupported);
SetFloatValue(NewFloat);