hedgewars/uWorld.pas
changeset 6691 79c96abd06d6
parent 6688 b2084a00a4cf
child 6692 029c27660dd2
--- a/hedgewars/uWorld.pas	Thu Feb 16 20:32:47 2012 +0400
+++ b/hedgewars/uWorld.pas	Thu Feb 16 17:48:03 2012 +0100
@@ -618,6 +618,24 @@
                 SetWeapon(Ammo^[Slot, Pos].AmmoType);
                 bSelected:= false;
                 FreeWeaponTooltip;
+{$IFDEF USE_TOUCH_INTERFACE}//show the aiming buttons + animation
+                if (Ammo^[Slot, Pos].Propz and ammoprop_NoCrosshair) = 0 then
+                    begin
+                    if not(arrowUp.show) then
+                        begin
+                        animateWidget(@arrowUp, true, true);
+                        animateWidget(@arrowDown, true, true);
+                        animateWidget(@arrowRight, false, true);
+                        end;
+                    end
+                else
+                    if arrowUp.show then
+                        begin
+                        animateWidget(@arrowUp, true, false);
+                        animateWidget(@arrowDown, true, false);
+                        animateWidget(@arrowRight, false, true);
+                        end;
+{$ENDIF}
 
                 exit
                 end;