29 procedure movecursor(dx, dy: LongInt); |
29 procedure movecursor(dx, dy: LongInt); |
30 function doSurfaceConversion(tmpsurf: PSDL_Surface): PSDL_Surface; |
30 function doSurfaceConversion(tmpsurf: PSDL_Surface): PSDL_Surface; |
31 function MakeScreenshot(filename: shortstring): boolean; |
31 function MakeScreenshot(filename: shortstring): boolean; |
32 function GetTeamStatString(p: PTeam): shortstring; |
32 function GetTeamStatString(p: PTeam): shortstring; |
33 {$IFDEF SDL13} |
33 {$IFDEF SDL13} |
34 function SDL_RectMake(x, y, width, height: LongInt): TSDL_Rect; |
34 function SDL_RectMake(x, y, width, height: LongInt): TSDL_Rect; inline; |
35 {$ELSE} |
35 {$ELSE} |
36 function SDL_RectMake(x, y: SmallInt; width, height: Word): TSDL_Rect; |
36 function SDL_RectMake(x, y: SmallInt; width, height: Word): TSDL_Rect; inline; |
37 {$ENDIF} |
37 {$ENDIF} |
38 |
38 |
39 implementation |
39 implementation |
40 uses typinfo, sysutils, uVariables, uUtils |
40 uses typinfo, sysutils, uVariables, uUtils |
41 {$IFDEF PNG_SCREENSHOTS}, PNGh, png {$ENDIF} |
41 {$IFDEF PNG_SCREENSHOTS}, PNGh, png {$ENDIF} |
248 doSurfaceConversion:= convertedSurf; |
248 doSurfaceConversion:= convertedSurf; |
249 end; |
249 end; |
250 end; |
250 end; |
251 |
251 |
252 {$IFDEF SDL13} |
252 {$IFDEF SDL13} |
253 function SDL_RectMake(x, y, width, height: LongInt): TSDL_Rect; |
253 function SDL_RectMake(x, y, width, height: LongInt): TSDL_Rect; inline; |
254 {$ELSE} |
254 {$ELSE} |
255 function SDL_RectMake(x, y: SmallInt; width, height: Word): TSDL_Rect; |
255 function SDL_RectMake(x, y: SmallInt; width, height: Word): TSDL_Rect; inline; |
256 {$ENDIF} |
256 {$ENDIF} |
257 begin |
257 begin |
258 SDL_RectMake.x:= x; |
258 SDL_RectMake.x:= x; |
259 SDL_RectMake.y:= y; |
259 SDL_RectMake.y:= y; |
260 SDL_RectMake.w:= width; |
260 SDL_RectMake.w:= width; |