hedgewars/uStore.pas
changeset 10009 88929358d2e1
parent 9998 736015b847e3
child 10015 4feced261c68
equal deleted inserted replaced
10008:b8b91c7e0da8 10009:88929358d2e1
    42 function  LoadDataImageAltFile(const path: TPathType; const filename, altFile: shortstring; imageFlags: LongInt): PSDL_Surface;
    42 function  LoadDataImageAltFile(const path: TPathType; const filename, altFile: shortstring; imageFlags: LongInt): PSDL_Surface;
    43 
    43 
    44 procedure LoadHedgehogHat(var HH: THedgehog; newHat: shortstring);
    44 procedure LoadHedgehogHat(var HH: THedgehog; newHat: shortstring);
    45 procedure SetupOpenGL;
    45 procedure SetupOpenGL;
    46 procedure SetScale(f: GLfloat);
    46 procedure SetScale(f: GLfloat);
    47 function  RenderHelpWindow(caption, subcaption, description, extra: ansistring; extracolor: LongInt; iconsurf: PSDL_Surface; iconrect: PSDL_Rect): PTexture;
    47 function  RenderHelpWindow(caption, subcaption, description, extra: PChar; extracolor: LongInt; iconsurf: PSDL_Surface; iconrect: PSDL_Rect): PTexture;
    48 procedure RenderWeaponTooltip(atype: TAmmoType);
    48 procedure RenderWeaponTooltip(atype: TAmmoType);
    49 procedure ShowWeaponTooltip(x, y: LongInt);
    49 procedure ShowWeaponTooltip(x, y: LongInt);
    50 procedure FreeWeaponTooltip;
    50 procedure FreeWeaponTooltip;
    51 procedure MakeCrossHairs;
    51 procedure MakeCrossHairs;
    52 {$IFDEF USE_VIDEO_RECORDING}
    52 {$IFDEF USE_VIDEO_RECORDING}
   903     FreeTexture(ProgrTex);
   903     FreeTexture(ProgrTex);
   904     ProgrTex:= nil;
   904     ProgrTex:= nil;
   905     Step:= 0
   905     Step:= 0
   906 end;
   906 end;
   907 
   907 
   908 function RenderHelpWindow(caption, subcaption, description, extra: ansistring; extracolor: LongInt; iconsurf: PSDL_Surface; iconrect: PSDL_Rect): PTexture;
   908 function RenderHelpWindow(caption, subcaption, description, extra: PChar; extracolor: LongInt; iconsurf: PSDL_Surface; iconrect: PSDL_Rect): PTexture;
   909 var tmpsurf: PSDL_SURFACE;
   909 var tmpsurf: PSDL_SURFACE;
   910     w, h, i, j: LongInt;
   910     w, h, i, j: LongInt;
   911     font: THWFont;
   911     font: THWFont;
   912     r, r2: TSDL_Rect;
   912     r, r2: TSDL_Rect;
   913     wa, ha: LongInt;
   913     wa, ha: LongInt;
  1023 end;
  1023 end;
  1024 
  1024 
  1025 procedure RenderWeaponTooltip(atype: TAmmoType);
  1025 procedure RenderWeaponTooltip(atype: TAmmoType);
  1026 var r: TSDL_Rect;
  1026 var r: TSDL_Rect;
  1027     i: LongInt;
  1027     i: LongInt;
  1028     extra: ansistring;
  1028     extra: PChar;
  1029     extracolor: LongInt;
  1029     extracolor: LongInt;
  1030 begin
  1030 begin
  1031 // don't do anything if the window shouldn't be shown
  1031 // don't do anything if the window shouldn't be shown
  1032     if (cReducedQuality and rqTooltipsOff) <> 0 then
  1032     if (cReducedQuality and rqTooltipsOff) <> 0 then
  1033         begin
  1033         begin