hedgewars/uTouch.pas
branchhedgeroid
changeset 6344 cba81e10235c
parent 6228 1b7d4d7d162b
child 6580 6155187bf599
equal deleted inserted replaced
6341:ccc0a58e123d 6344:cba81e10235c
    22 
    22 
    23 interface
    23 interface
    24 
    24 
    25 uses sysutils, math, uConsole, uVariables, SDLh, uTypes, uFloat, uConsts, uIO, uCommands, GLUnit;
    25 uses sysutils, math, uConsole, uVariables, SDLh, uTypes, uFloat, uConsts, uIO, uCommands, GLUnit;
    26 
    26 
       
    27 // TODO: this type should be Int64
       
    28 // TODO: this type should be named TSDL_FingerId
       
    29 type SDL_FingerId = LongInt;
       
    30 
    27 type
    31 type
    28     PTouch_Finger = ^Touch_Finger;
    32     PTouch_Finger = ^Touch_Finger;
    29     Touch_Finger = record
    33     Touch_Finger = record
    30         id                       : SDL_FingerId;
    34         id                       : SDL_FingerId;
    31         x,y                      : LongInt;
    35         x,y                      : LongInt;