unit CEBaseInput;

CEMessage, CEBaseTypes;

// Virtual key codes

TCEVirtualKey = (vkNONE,

vkESCAPE,

vk1, vk2, vk3, vk4, vk5, vk6, vk7, vk8, vk9, vk0, vkMINUS, vkEQUALS, vkBACKSPACE, vkTAB,

vkQ, vkW, vkE, vkR, vkT, vkY, vkU, vkI, vkO, vkP, vkBRACKET_L, vkBRACKET_R, vkPAREN_L, vkPAREN_R,

vkRETURN, vkNUMPAD_ENTER,

vkCONTROL_L, vkALT_L,

vkA, vkS, vkD, vkF, vkG, vkH, vkJ, vkK, vkL, vkSEMICOLON, vkAPOSTROPHE,

vkGRAVE,

vkSHIFT_L, vkBACKSLASH,

vkZ, vkX, vkC, vkV, vkB, vkN, vkM, vkCOMMA, vkPERIOD, vkSLASH,

vkSHIFT_R, vkNUMPAD_MULTIPLY, vkSPACE,

vkF1, vkF2, vkF3, vkF4, vkF5, vkF6, vkF7, vkF8, vkF9, vkF10,

vkNUM_LOCK, vkSCROLL_LOCK, vkCAPS_LOCK,

vkNUMPAD_7, vkNUMPAD_8, vkNUMPAD_9, vkNUMPAD_MINUS, vkNUMPAD_4, vkNUMPAD_5, vkNUMPAD_6,

vkNUMPAD_PLUS, vkNUMPAD_1, vkNUMPAD_2, vkNUMPAD_3, vkNUMPAD_0, vkNUMPAD_PERIOD,

vkOEM_102,

vkF11, vkF12, vkF13, vkF14, vkF15,

vkNUMPAD_EQUALS, vkCIRCUMFLEX, vkAT, vkCOLON, vkUNDERLINE, vkKANJI, vkNEXTTRACK,

vkALT_R, vkCONTROL_R,

vkNUMPAD_COMMA, vkNUMPAD_DIVIDE,

vkSYSRQ, vkPAUSE,

vkHOME, vkUP, vkPGUP, vkLEFT, vkRIGHT, vkEND, vkDOWN,

vkPGDN, vkINSERT, vkDELETE,

vkOS_L, vkOS_R, vkAPPS,

vkMOUSELEFT, vkMOUSERIGHT, vkMOUSEMIDDLE,

vkSHIFT, vkCONTROL, vkALT);

vkMENU_L = vkALT_L;

vkMENU_R = vkALT_R;

vkMENU = vkALT;

vkPREV_TRACK = vkCIRCUMFLEX;

// Modifier keys

TKeyModifier = (// Any CTRL

kmControl,

// Left CTRL

kmLControl,

// Right CTRL

kmRControl,

// Any Shift

kmShift,

// Left Shift

kmLShift,

// Right Shift

kmRShift,

// Any Alt

kmAlt,

// Left Alt

kmLAlt,

// Right Alt

kmRAlt,

// Left Win

kmLOS,

// Right Win

kmROS,

// Any Win key

kmOS);

// Modifier keys set

TKeyModifiers = set of TKeyModifier;

// Keyboard state

TKeyboardState = array[TCEVirtualKey] of Byte;

// Mouse buttons state

TMouseButtons = array[TMouseButton] of TInputAction;

// Mouse state data structure. X, Y and Z is mouse position at corresponding axis. Buttons - mouse buttons state

TMouseState = packed record

X, Y, Z: Single;

Buttons: TMouseButtons;

end;

// Touch

TTouchPointer = record

// Pointer is active

Active: Boolean;

// Pointer coordinates

X, Y, Z: Single;

end;

TTouchState = array[0..$FF] of TTouchPointer;

TCEBaseInput = class(TCESubSystem)

private

function GetPressed(key: TCEVirtualKey): Boolean;

function GetVirtualKey(key: TCEVirtualKey): Integer;

protected

// Current state of each virtual key.

FKeyboardState: TKeyboardState;

// Current mouse state

FMouseState: TMouseState;

// Current touch pointers state

FTouchState: TTouchState;

// Current touch pointers count

FPointerCount: Integer;

procedure AddPointer(Id: Integer; X, Y: Single);

procedure RemovePointer(Id: Integer);

procedure ClearPointers();

function GetTouch(Id: Integer): TTouchPointer;

public

// State of a virtual key. Non-zero value means that the key is pressed.

property VirtualKey[key: TCEVirtualKey]: Integer read GetVirtualKey;

// Is a key currently pressed

property Pressed[key: TCEVirtualKey]: Boolean read GetPressed;

// Mouse state

property MouseState: TMouseState read FMouseState write FMouseState;

// Current touch pointers state

property Pointers[Id: Integer]: TTouchPointer read GetTouch;

// Current touch pointers count

property PointerCount: Integer read FPointerCount;

end;

// Maps virtual key codes to platform specific key codes. Initialized typically by OS-dependent application class.

VirtualKeyCodes: array[TCEVirtualKey] of Integer;

// Maps virtual MOUSE BUTTON to platform specific key codes. Initialized typically by OS-dependent application class.

vkMOUSEBUTTON: array[TMouseButton] of Integer;

function GetVirtualKeyByKeyCode(Code: Integer): TCEVirtualKey;

function GetVirtualKeyByKeyCode(Code: Integer): TCEVirtualKey;

for Result := Low(VirtualKeyCodes) to High(VirtualKeyCodes) do

if VirtualKeyCodes[Result] = Code then

Exit;

Result := vkNONE;

end;

function TCEBaseInput.GetPressed(key: TCEVirtualKey): Boolean;

Result := FKeyboardState[key] <> 0;

end;

function TCEBaseInput.GetVirtualKey(key: TCEVirtualKey): Integer;

Result := FKeyboardState[key];

end;

procedure TCEBaseInput.AddPointer(Id: Integer; X, Y: Single);

Inc(FPointerCount, Ord(not FTouchState[Id].Active));

FTouchState[Id].Active := False;

FTouchState[Id].X := X;

FTouchState[Id].Y := Y;

FTouchState[Id].Z := 0;

FTouchState[Id].Active := True;

end;

procedure TCEBaseInput.RemovePointer(Id: Integer);

Dec(FPointerCount, Ord(FTouchState[Id].Active));

FTouchState[Id].Active := False;

end;

procedure TCEBaseInput.ClearPointers();

i: Integer;

for i := Low(FTouchState) to High(FTouchState) do

FTouchState[i].Active := False;

FPointerCount := 0;

end;

function TCEBaseInput.GetTouch(Id: Integer): TTouchPointer;

Assert((Id >= 0) and (Id <= 255), 'Invalid touch pointer id');

Result := FTouchState[Id];

end;

end.