From c4b177a18a5f6e5b763f483f7ff65cf1ab2d2240 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 25 Dec 2003 14:47:55 +0000
Subject: [PATCH] fixed pointer conversion

git-svn-id: trunk@4954 -
---
 ide/keymapping.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ide/keymapping.pp b/ide/keymapping.pp
index 0762871ee2..918fe2da5e 100644
--- a/ide/keymapping.pp
+++ b/ide/keymapping.pp
@@ -394,7 +394,7 @@ end;
 
 function EditorKeyStringToVKCode(const s: string): word;
 var
-  i: word;
+  i: integer;
   Data: Pointer;
 begin
   Result:=VK_UNKNOWN;
@@ -406,7 +406,7 @@ begin
     if VirtualKeyStrings=nil then begin
       VirtualKeyStrings:=TStringHashList.Create(true);
       for i:=1 to 300 do
-        VirtualKeyStrings.Add(KeyAndShiftStateToEditorKeyString(i,[]),
+        VirtualKeyStrings.Add(KeyAndShiftStateToEditorKeyString(word(i),[]),
                               Pointer(i));
     end;
   end else