hedgewars/uTeams.pas
changeset 6692 029c27660dd2
parent 6691 79c96abd06d6
child 6700 e04da46ee43c
equal deleted inserted replaced
6691:79c96abd06d6 6692:029c27660dd2
   188     begin
   188     begin
   189     if not(arrowUp.show) then
   189     if not(arrowUp.show) then
   190         begin
   190         begin
   191         animateWidget(@arrowUp, true, true);
   191         animateWidget(@arrowUp, true, true);
   192         animateWidget(@arrowDown, true, true);
   192         animateWidget(@arrowDown, true, true);
   193         animateWidget(@arrowRight, false, true);
       
   194         end;
   193         end;
   195     end
   194     end
   196 else
   195 else
   197     if arrowUp.show then
   196     if arrowUp.show then
   198         begin
   197         begin
   199         animateWidget(@arrowUp, true, false);
   198         animateWidget(@arrowUp, true, false);
   200         animateWidget(@arrowDown, true, false);
   199         animateWidget(@arrowDown, true, false);
   201         animateWidget(@arrowRight, false, true);
       
   202         end;
   200         end;
   203 {$ENDIF}
   201 {$ENDIF}
   204 AmmoMenuInvalidated:= true;
   202 AmmoMenuInvalidated:= true;
   205 end;
   203 end;
   206 
   204