eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Initial import

This commit is contained in:
mysticbbs 2012-02-13 18:51:21 -05:00
parent 39b2fbb893
commit 00d76ab257
1 changed files with 72 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
mdl/m_input.pas Normal file
View File

@ -0,0 +1,72 @@
Unit m_Input;
{$I M_OPS.PAS}
Interface
{$IFDEF WINDOWS}
Uses
m_Input_Windows;
Type
TInput = Class(TInputWindows);
{$ENDIF}
{$IFDEF LINUX}
Uses m_Input_Linux;
Type
TInput = Class(TInputLinux);
{$ENDIF}
{$IFDEF DARWIN}
Uses m_Input_Darwin;
Type
TInput = Class(TInputDarwin);
{$ENDIF}
Const
keyALTA = #30;
keyALTB = #48;
keyALTC = #46;
keyALTD = #32;
keyALTE = #18;
keyALTH = #35;
keyALTI = #23;
keyALTJ = #36;
keyALTL = #38;
keyALTM = #50;
keyALTO = #24;
keyALTQ = #16;
keyALTR = #19;
keyALTS = #31;
keyALTT = #20;
keyALTX = #45;
keyALTY = #21;
keyALTZ = #44;
keyF1 = #59;
keyF2 = #60;
keyF3 = #61;
keyF4 = #62;
keyF5 = #63;
keyF6 = #64;
keyF7 = #65;
keyF8 = #66;
keyF9 = #67;
keyF10 = #68;
keyUP = #72;
keyDOWN = #80;
keyLEFT = #75;
keyRIGHT = #77;
keyPGUP = #73;
keyPGDN = #81;
keyHOME = #71;
keyEND = #79;
keyDEL = #83;
Implementation
End.