hedgewars/uTouch.pas
changeset 7022 107651b3c5a0
parent 6962 ec308eabe09b
child 7063 a0326412e96a
equal deleted inserted replaced
7021:0c75512a8920 7022:107651b3c5a0
   237     end;
   237     end;
   238 
   238 
   239 if aimingCrosshair then
   239 if aimingCrosshair then
   240     begin
   240     begin
   241     aimingCrosshair:= false;
   241     aimingCrosshair:= false;
   242     upKey:= false;
   242     ParseTeamCommand('-up');
   243     downKey:= false;
   243     ParseTeamCommand('-down');
   244     dec(buttonsDown);
   244     dec(buttonsDown);
   245     end;
   245     end;
   246 
   246 
   247 widget:= finger^.pressedWidget;
   247 widget:= finger^.pressedWidget;
   248 if (buttonsDown > 0) and (widget <> nil) then
   248 if (buttonsDown > 0) and (widget <> nil) then
   416 
   416 
   417 procedure NewTurnBeginning;
   417 procedure NewTurnBeginning;
   418 begin
   418 begin
   419 targetted:= false;
   419 targetted:= false;
   420 targetting:= false;
   420 targetting:= false;
   421 SetUtilityWidgetState;
   421 SetUtilityWidgetState(amNothing);
   422 end;
   422 end;
   423 
   423 
   424 
   424 
   425 procedure ProcessTouch;
   425 procedure ProcessTouch;
   426 var
   426 var