hedgewars/uStore.pas
changeset 3634 93d260c96635
parent 3629 86212d2b116a
child 3641 98319a621dc8
equal deleted inserted replaced
3632:8e1bd8b5780e 3634:93d260c96635
  1509 var r: TSDL_Rect;
  1509 var r: TSDL_Rect;
  1510     i: LongInt;
  1510     i: LongInt;
  1511     extra: ansistring;
  1511     extra: ansistring;
  1512     extracolor: LongInt;
  1512     extracolor: LongInt;
  1513 begin
  1513 begin
  1514 // don't do anything if the window shouldn't be shown
  1514     // don't do anything if the window shouldn't be shown
  1515 if not cWeaponTooltips then
  1515     if (cReducedQuality and rqTooltipsOff) <> 0 then
  1516     begin
  1516     begin
  1517     WeaponTooltipTex:= nil;
  1517         WeaponTooltipTex:= nil;
  1518     exit
  1518         exit
  1519     end;
  1519     end;
  1520 
  1520 
  1521 // free old texture
  1521 // free old texture
  1522 FreeWeaponTooltip;
  1522 FreeWeaponTooltip;
  1523 
  1523