hedgewars/uKeys.pas
changeset 6906 6f5e1e64f106
parent 6900 26873e68034f
child 6909 2b9c1228d516
equal deleted inserted replaced
6905:cdfb2bf05bbd 6906:6f5e1e64f106
    80 
    80 
    81 k:= SDL_GetMouseState(nil, nil);
    81 k:= SDL_GetMouseState(nil, nil);
    82 // mouse buttons
    82 // mouse buttons
    83 {$IFDEF DARWIN}
    83 {$IFDEF DARWIN}
    84 tkbdn[SDL_SCANCODE_MOUSEL]:= ((k and 1) and not (tkbdn[306] or tkbdn[305]));
    84 tkbdn[SDL_SCANCODE_MOUSEL]:= ((k and 1) and not (tkbdn[306] or tkbdn[305]));
    85 tkbdni[SDL_SCANCODE_MOUSER]:= ((k and 1) and (tkbdn[306] or tkbdn[305])) or (k and 4);
    85 tkbdn[SDL_SCANCODE_MOUSER]:= ((k and 1) and (tkbdn[306] or tkbdn[305])) or (k and 4);
    86 {$ELSE}
    86 {$ELSE}
    87 tkbdn[SDL_SCANCODE_MOUSEL]:= (k and 1);
    87 tkbdn[SDL_SCANCODE_MOUSEL]:= (k and 1);
    88 tkbdn[SDL_SCANCODE_MOUSER]:= ((k shr 2) and 1);
    88 tkbdn[SDL_SCANCODE_MOUSER]:= ((k shr 2) and 1);
    89 {$ENDIF}
    89 {$ENDIF}
    90 tkbdn[SDL_SCANCODE_MOUSEM]:= ((k shr 1) and 1);
    90 tkbdn[SDL_SCANCODE_MOUSEM]:= ((k shr 1) and 1);