Mercurial Mercurial > hedgewars / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uStore.pas
changeset 2801 24739a3bf5e3
parent 2786 85f6425a4d74
child 2811 4cad87e11bf6
equal deleted inserted replaced
2800:f286d91157b8 2801:24739a3bf5e3 
    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     MissionIcons: PSDL_Surface;
 
    43 
    43 
    44 procedure init_uStore;
 
    44 procedure init_uStore;
 
    45 procedure free_uStore;
 
    45 procedure free_uStore;
 
    46 
    46 
    47 procedure StoreLoad;
 
    47 procedure StoreLoad;
 
    59 procedure DrawRotatedTex(Tex: PTexture; hw, hh, X, Y, Dir: LongInt; Angle: real);
 
    59 procedure DrawRotatedTex(Tex: PTexture; hw, hh, X, Y, Dir: LongInt; Angle: real);
 
    60 procedure DrawCentered(X, Top: LongInt; Source: PTexture);
 
    60 procedure DrawCentered(X, Top: LongInt; Source: PTexture);
 
    61 procedure DrawFromRect(X, Y: LongInt; r: PSDL_Rect; SourceTexture: PTexture);
 
    61 procedure DrawFromRect(X, Y: LongInt; r: PSDL_Rect; SourceTexture: PTexture);
 
    62 procedure DrawHedgehog(X, Y: LongInt; Dir: LongInt; Pos, Step: LongWord; Angle: real);
 
    62 procedure DrawHedgehog(X, Y: LongInt; Dir: LongInt; Pos, Step: LongWord; Angle: real);
 
    63 procedure DrawFillRect(r: TSDL_Rect);
 
    63 procedure DrawFillRect(r: TSDL_Rect);
 
       
    64 procedure DrawRoundRect(rect: PSDL_Rect; BorderColor, FillColor: Longword; Surface: PSDL_Surface; Clear: boolean);
 
    64 function  CheckCJKFont(s: string; font: THWFont): THWFont;
 
    65 function  CheckCJKFont(s: string; font: THWFont): THWFont;
 
    65 function  RenderStringTex(s: string; Color: Longword; font: THWFont): PTexture;
 
    66 function  RenderStringTex(s: string; Color: Longword; font: THWFont): PTexture;
 
    66 function  RenderSpeechBubbleTex(s: string; SpeechType: Longword; font: THWFont): PTexture;
 
    67 function  RenderSpeechBubbleTex(s: string; SpeechType: Longword; font: THWFont): PTexture;
 
    67 procedure flipSurface(Surface: PSDL_Surface; Vertical: Boolean);
 
    68 procedure flipSurface(Surface: PSDL_Surface; Vertical: Boolean);
 
    68 //procedure rotateSurface(Surface: PSDL_Surface);
 
    69 //procedure rotateSurface(Surface: PSDL_Surface);
 
  1555 {$ENDIF}
 
  1556 {$ENDIF}
 
  1556 end;
 
  1557 end;
 
  1557 
  1558 
  1558 procedure init_uStore;
 
  1559 procedure init_uStore;
 
  1559 begin
 
  1560 begin
 
  1560 	PixelFormat:= nil;
 
  1561 PixelFormat:= nil;
 
  1561 	SDLPrimSurface:= nil;
 
  1562 SDLPrimSurface:= nil;
 
  1562 	{$IFNDEF IPHONEOS}cGPUVendor:= gvUnknown;{$ENDIF}
 
  1563 {$IFNDEF IPHONEOS}cGPUVendor:= gvUnknown;{$ENDIF}
 
  1563 
  1564 
  1564 	cScaleFactor:= 2.0;
 
  1565 cScaleFactor:= 2.0;
 
  1565 	SupportNPOTT:= false;
 
  1566 SupportNPOTT:= false;
 
  1566 	Step:= 0;
 
  1567 Step:= 0;
 
  1567 	ProgrTex:= nil;
 
  1568 ProgrTex:= nil;
 
  1568 end;
 
  1569 end;
 
  1569 
  1570 
  1570 procedure free_uStore;
 
  1571 procedure free_uStore;
 
  1571 begin
 
  1572 begin
 
  1572 
       
  1573 end;
 
  1573 end;
 
  1574 
  1574 
  1575 end.
 
  1575 end.
hedgewars