From 2f8249da7c3c527b3a8938c982b1ed9bc5a1afac Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Wed, 4 Jan 2006 23:23:11 +0000
Subject: [PATCH] added explicit typecast to prevent possible range check
 errors

git-svn-id: trunk@8450 -
---
 ideintf/propedits.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ideintf/propedits.pp b/ideintf/propedits.pp
index 75d92c9c18..915c72f897 100644
--- a/ideintf/propedits.pp
+++ b/ideintf/propedits.pp
@@ -2826,7 +2826,7 @@ end;
 
 procedure TQWordPropertyEditor.SetValue(const NewValue: ansistring);
 begin
-  SetInt64Value(StrToQWord(NewValue));
+  SetInt64Value(Int64(StrToQWord(NewValue)));
 end;
 
 { TFloatPropertyEditor }