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

fixed pointer conversion

Browse Source 
git-svn-id: trunk@4954 -
This commit is contained in:
mattias 2003-12-25 14:47:55 +00:00
parent 39d73149be
commit c4b177a18a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/keymapping.pp
View File

@ -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