hedgewars/uWorld.pas
changeset 2999 30c4d62cd0c3
parent 2971 c65929077646
child 3025 01682ec58eb0
equal deleted inserted replaced
2998:5b74906c14bb 2999:30c4d62cd0c3
   277     end
   277     end
   278 else
   278 else
   279     FreeWeaponTooltip;
   279     FreeWeaponTooltip;
   280 
   280 
   281 if (WeaponTooltipTex <> nil) and (AMxShift = 0) then
   281 if (WeaponTooltipTex <> nil) and (AMxShift = 0) then
   282     ShowWeaponTooltip(x - WeaponTooltipTex^.w - 3, y);
   282     ShowWeaponTooltip(x - WeaponTooltipTex^.w - 3, min(y, cScreenHeight - WeaponTooltipTex^.h - 40));
   283 
   283 
   284 bSelected:= false;
   284 bSelected:= false;
   285 if AMxShift = 0 then DrawSprite(sprArrow, CursorPoint.X, cScreenHeight - CursorPoint.Y, (RealTicks shr 6) mod 8)
   285 if AMxShift = 0 then DrawSprite(sprArrow, CursorPoint.X, cScreenHeight - CursorPoint.Y, (RealTicks shr 6) mod 8)
   286 end;
   286 end;
   287 
   287