moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-21 08:45:06 -05:00
Code Issues Releases Wiki Activity

MML: SendKeys (win), Removed a WriteLn and added a small check.

Browse Source
This commit is contained in:
John P (Dgby714) 2011-07-23 18:01:13 -04:00
parent 8acb244ec3
commit 2faecb4966
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Units/MMLCore/os_windows.pas
View File

@ -380,8 +380,8 @@ begin
Shift := (Hi(VK) > 0); Shift := (Hi(VK) > 0);
C := LoByte(VK); C := LoByte(VK);
ScanCode := MapVirtualKey(C, 0); ScanCode := MapVirtualKey(C, 0);
if (ScanCode = 0) then
WriteLn(ScanCode); Continue;
if (Shift) then if (Shift) then
Keybd_Event(VK_SHIFT, $2A, 0, 0); Keybd_Event(VK_SHIFT, $2A, 0, 0);