hedgewars/uMisc.pas
changeset 6857 b34288c8fafa
parent 6843 59da15acb2f2
child 6881 ee01eeaa1281
equal deleted inserted replaced
6856:a5b0afb60862 6857:b34288c8fafa
   151 {$IFDEF SDL13}
   151 {$IFDEF SDL13}
   152 function SDL_RectMake(x, y, width, height: LongInt): TSDL_Rect;
   152 function SDL_RectMake(x, y, width, height: LongInt): TSDL_Rect;
   153 {$ELSE}
   153 {$ELSE}
   154 function SDL_RectMake(x, y: SmallInt; width, height: Word): TSDL_Rect;
   154 function SDL_RectMake(x, y: SmallInt; width, height: Word): TSDL_Rect;
   155 {$ENDIF}
   155 {$ENDIF}
   156 var rect: TSDL_Rect;
       
   157 begin
   156 begin
   158     rect.x:= x;
   157     SDL_RectMake.x:= x;
   159     rect.y:= y;
   158     SDL_RectMake.y:= y;
   160     rect.w:= width;
   159     SDL_RectMake.w:= width;
   161     rect.h:= height;
   160     SDL_RectMake.h:= height;
   162     exit(rect);
       
   163 end;
   161 end;
   164 
   162 
   165 function GetTeamStatString(p: PTeam): shortstring;
   163 function GetTeamStatString(p: PTeam): shortstring;
   166 var s: ansistring;
   164 var s: ansistring;
   167 begin
   165 begin