paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 17:01:38 +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; function EditorKeyStringToVKCode(const s: string): word;
var var
i: word; i: integer;
Data: Pointer; Data: Pointer;
begin begin
Result:=VK_UNKNOWN; Result:=VK_UNKNOWN;
@ -406,7 +406,7 @@ begin
if VirtualKeyStrings=nil then begin if VirtualKeyStrings=nil then begin
VirtualKeyStrings:=TStringHashList.Create(true); VirtualKeyStrings:=TStringHashList.Create(true);
for i:=1 to 300 do for i:=1 to 300 do
VirtualKeyStrings.Add(KeyAndShiftStateToEditorKeyString(i,[]), VirtualKeyStrings.Add(KeyAndShiftStateToEditorKeyString(word(i),[]),
Pointer(i)); Pointer(i));
end; end;
end else end else