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

IDE: object inspector: show error if integer out of range

Browse Source 
git-svn-id: trunk@45620 -
This commit is contained in:
mattias 2014-06-23 16:23:51 +00:00
parent bf29568adb
commit e09f10816f
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/ideintf/propedits.pp
View File

@ -27,8 +27,8 @@ unit PropEdits;
interface
uses
Classes, TypInfo, SysUtils, types, Forms, Controls, LCLProc, GraphType,
FPCAdds, // for StrToQWord in older fpc versions
Classes, TypInfo, SysUtils, types, RtlConsts, Forms, Controls, LCLProc,
GraphType, FPCAdds, // for StrToQWord in older fpc versions
StringHashList, ButtonPanel, Graphics, StdCtrls, Buttons, Menus, LCLType,
ExtCtrls, ComCtrls, LCLIntf, Dialogs, EditBtn, PropertyStorage, Grids, ValEdit,
FileUtil, FileCtrl, ObjInspStrConsts, PropEditUtils,
@ -3110,8 +3110,7 @@ procedure TIntegerPropertyEditor.SetValue(const NewValue: AnsiString);
procedure Error(const Args: array of const);
begin
// XXX
{raise EPropertyError.CreateResFmt(@SOutOfRange, Args);}
raise EPropertyError.CreateResFmt(@SOutOfRange, Args);
end;
var