hedgewars/SDLh.pas
changeset 6663 2c4151afad0c
parent 6580 6155187bf599
child 6693 b6a69c0bc541
equal deleted inserted replaced
6662:f86a3ccd19c0 6663:2c4151afad0c
   385         refcount: LongInt;
   385         refcount: LongInt;
   386 {$ENDIF}
   386 {$ENDIF}
   387         end;
   387         end;
   388 
   388 
   389 
   389 
   390     PSDL_Color = ^TSDL_Color;
       
   391     TSDL_Color = record
   390     TSDL_Color = record
   392         case Byte of
   391         case Byte of
   393             0: ( r: Byte;
   392             0: ( r: Byte;
   394                  g: Byte;
   393                  g: Byte;
   395                  b: Byte;
   394                  b: Byte;
   396                  unused: Byte; );
   395                  unused: Byte; );
   397             1: ( value: LongWord; );
   396             1: ( value: LongWord; );
   398         end;
   397         end;
       
   398     PSDL_Color = ^TSDL_Color;
   399 
   399 
   400 
   400 
   401     PSDL_RWops = ^TSDL_RWops;
   401     PSDL_RWops = ^TSDL_RWops;
   402     TSeek  = function( context: PSDL_RWops; offset: LongInt; whence: LongInt ): LongInt; cdecl;
   402     TSeek  = function( context: PSDL_RWops; offset: LongInt; whence: LongInt ): LongInt; cdecl;
   403     TRead  = function( context: PSDL_RWops; Ptr: Pointer; size: LongInt; maxnum : LongInt ): LongInt;  cdecl;
   403     TRead  = function( context: PSDL_RWops; Ptr: Pointer; size: LongInt; maxnum : LongInt ): LongInt;  cdecl;