hedgewars/uTouch.pas
branchios-revival
changeset 11088 378882cc9148
parent 10108 c68cf030eded
child 11224 24bafdcf1860
equal deleted inserted replaced
11087:99578075df24 11088:378882cc9148
    61 procedure printFinger(finger: TTouch_Data);
    61 procedure printFinger(finger: TTouch_Data);
    62 implementation
    62 implementation
    63 
    63 
    64 const
    64 const
    65     clickTime = 200;
    65     clickTime = 200;
       
    66     nilFingerId = High(TSDL_FingerId);
    66     baseRectSize = 96;
    67     baseRectSize = 96;
    67 
    68 
    68 var
    69 var
    69     rectSize, halfRectSize: LongInt;
    70     rectSize, halfRectSize: LongInt;
    70 
    71