hedgewars/uMisc.pas
branchqmlfrontend
changeset 11833 a69124eb7ce7
parent 11408 b894922d58cc
parent 11828 0fba6cb098a1
child 12860 1b2b84315d27
equal deleted inserted replaced
11832:8c71c5a1172f 11833:a69124eb7ce7
    31 function MakeScreenshot(filename: shortstring; k: LongInt; dump: LongWord): boolean;
    31 function MakeScreenshot(filename: shortstring; k: LongInt; dump: LongWord): boolean;
    32 function  GetTeamStatString(p: PTeam): shortstring;
    32 function  GetTeamStatString(p: PTeam): shortstring;
    33 function  SDL_RectMake(x, y, width, height: LongInt): TSDL_Rect; inline;
    33 function  SDL_RectMake(x, y, width, height: LongInt): TSDL_Rect; inline;
    34 
    34 
    35 implementation
    35 implementation
    36 uses SysUtils, uVariables, uUtils
    36 uses uVariables, uUtils
    37      {$IFDEF PNG_SCREENSHOTS}, PNGh, png {$ENDIF};
    37      {$IFDEF PNG_SCREENSHOTS}, PNGh, png {$ENDIF};
    38 
    38 
    39 type PScreenshot = ^TScreenshot;
    39 type PScreenshot = ^TScreenshot;
    40      TScreenshot = record
    40      TScreenshot = record
    41          buffer: PByte;
    41          buffer: PByte;