equal
deleted
inserted
replaced
37 SupportNPOTT: Boolean; |
37 SupportNPOTT: Boolean; |
38 Step: LongInt; |
38 Step: LongInt; |
39 squaresize : LongInt; |
39 squaresize : LongInt; |
40 numsquares : LongInt; |
40 numsquares : LongInt; |
41 ProgrTex: PTexture; |
41 ProgrTex: PTexture; |
|
42 MissionIcons: PSDL_Surface; |
42 |
43 |
43 procedure init_uStore; |
44 procedure init_uStore; |
44 procedure free_uStore; |
45 procedure free_uStore; |
45 |
46 |
46 procedure StoreLoad; |
47 procedure StoreLoad; |
71 procedure AddProgress; |
72 procedure AddProgress; |
72 procedure FinishProgress; |
73 procedure FinishProgress; |
73 function LoadImage(const filename: string; imageFlags: LongInt): PSDL_Surface; |
74 function LoadImage(const filename: string; imageFlags: LongInt): PSDL_Surface; |
74 procedure SetupOpenGL; |
75 procedure SetupOpenGL; |
75 procedure SetScale(f: GLfloat); |
76 procedure SetScale(f: GLfloat); |
|
77 function RenderHelpWindow(caption, subcaption, description, extra: shortstring; extracolor: LongInt; iconsurf: PSDL_Surface; iconrect: PSDL_Rect): PTexture; |
76 procedure RenderWeaponTooltip(atype: TAmmoType); |
78 procedure RenderWeaponTooltip(atype: TAmmoType); |
77 procedure ShowWeaponTooltip(x, y: LongInt); |
79 procedure ShowWeaponTooltip(x, y: LongInt); |
78 procedure FreeWeaponTooltip; |
80 procedure FreeWeaponTooltip; |
79 |
81 |
80 implementation |
82 implementation |
251 SDL_FreeSurface(texsurf) |
253 SDL_FreeSurface(texsurf) |
252 end |
254 end |
253 end |
255 end |
254 end; |
256 end; |
255 end; |
257 end; |
|
258 MissionIcons:= LoadImage(Pathz[ptGraphics] + '/missions', ifCritical); |
256 end; |
259 end; |
257 |
260 |
258 procedure MakeCrossHairs; |
261 procedure MakeCrossHairs; |
259 var t: LongInt; |
262 var t: LongInt; |
260 tmpsurf, texsurf: PSDL_Surface; |
263 tmpsurf, texsurf: PSDL_Surface; |
817 for ii:= Low(TSprite) to High(TSprite) do |
820 for ii:= Low(TSprite) to High(TSprite) do |
818 begin |
821 begin |
819 FreeTexture(SpritesData[ii].Texture); |
822 FreeTexture(SpritesData[ii].Texture); |
820 if SpritesData[ii].Surface <> nil then SDL_FreeSurface(SpritesData[ii].Surface) |
823 if SpritesData[ii].Surface <> nil then SDL_FreeSurface(SpritesData[ii].Surface) |
821 end; |
824 end; |
|
825 SDL_FreeSurface(MissionIcons); |
822 |
826 |
823 FreeTexture(HHTexture) |
827 FreeTexture(HHTexture) |
824 end; |
828 end; |
825 |
829 |
826 |
830 |