From e09f10816feaa99f46efe709cf43600d7acd380a Mon Sep 17 00:00:00 2001 From: mattias Date: Mon, 23 Jun 2014 16:23:51 +0000 Subject: [PATCH] IDE: object inspector: show error if integer out of range git-svn-id: trunk@45620 - --- components/ideintf/propedits.pp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/components/ideintf/propedits.pp b/components/ideintf/propedits.pp index 2637559e6c..275cade7f8 100644 --- a/components/ideintf/propedits.pp +++ b/components/ideintf/propedits.pp @@ -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