hedgewars/uWorld.pas
changeset 3663 8c28abf427f5
parent 3641 98319a621dc8
child 3680 aaf832c6fbd7
child 3686 617d00c850b0
equal deleted inserted replaced
3662:a44406f4369b 3663:8c28abf427f5
   377             exit
   377             exit
   378             end;
   378             end;
   379     end
   379     end
   380 else
   380 else
   381     FreeWeaponTooltip;
   381     FreeWeaponTooltip;
       
   382 if (WeaponTooltipTex <> nil) and (AMxShift = 0) then
   382 {$IFDEF IPHONEOS}
   383 {$IFDEF IPHONEOS}
   383 if (WeaponTooltipTex <> nil) and (AMxShift = 0) then
       
   384     ShowWeaponTooltip(x - WeaponTooltipTex^.w - 3, AMyOffset - 1);
   384     ShowWeaponTooltip(x - WeaponTooltipTex^.w - 3, AMyOffset - 1);
   385 {$ELSE}
   385 {$ELSE}
   386 if (WeaponTooltipTex <> nil) and (AMxShift = 0) then
       
   387     ShowWeaponTooltip(x - WeaponTooltipTex^.w - 3, min(y + 1, cScreenHeight - WeaponTooltipTex^.h - 40));
   386     ShowWeaponTooltip(x - WeaponTooltipTex^.w - 3, min(y + 1, cScreenHeight - WeaponTooltipTex^.h - 40));
   388 {$ENDIF}
   387 {$ENDIF}
   389 
   388 
   390 bSelected:= false;
   389 bSelected:= false;
   391 if AMxShift = 0 then DrawSprite(sprArrow, CursorPoint.X, cScreenHeight - CursorPoint.Y, (RealTicks shr 6) mod 8)
   390 if AMxShift = 0 then DrawSprite(sprArrow, CursorPoint.X, cScreenHeight - CursorPoint.Y, (RealTicks shr 6) mod 8)