equal
deleted
inserted
replaced
1086 timedelay:= timedelay; // avoid hint |
1086 timedelay:= timedelay; // avoid hint |
1087 interval:= interval; // avoid hint |
1087 interval:= interval; // avoid hint |
1088 exit(0); |
1088 exit(0); |
1089 end; |
1089 end; |
1090 {$ELSE} |
1090 {$ELSE} |
1091 function SDL_AllocFormat(format: LongWord): PSDL_PixelFormat; |
|
1092 const conversionFormat: TSDL_PixelFormat = ( |
1091 const conversionFormat: TSDL_PixelFormat = ( |
1093 palette: nil; BitsPerPixel: 32; BytesPerPixel: 4; |
1092 palette: nil; BitsPerPixel: 32; BytesPerPixel: 4; |
1094 Rloss: 0; Gloss: 0; Bloss: 0; Aloss: 0; |
1093 Rloss: 0; Gloss: 0; Bloss: 0; Aloss: 0; |
1095 Rshift: RShift; Gshift: GShift; Bshift: BShift; Ashift: AShift; |
1094 Rshift: RShift; Gshift: GShift; Bshift: BShift; Ashift: AShift; |
1096 RMask: RMask; GMask: GMask; BMask: BMask; AMask: AMask; |
1095 RMask: RMask; GMask: GMask; BMask: BMask; AMask: AMask; |
1097 colorkey: 0; alpha: 255); |
1096 colorkey: 0; alpha: 255); |
|
1097 |
|
1098 function SDL_AllocFormat(format: LongWord): PSDL_PixelFormat; |
1098 begin |
1099 begin |
1099 format:= format; |
1100 format:= format; |
1100 exit(@conversionFormat); |
1101 exit(@conversionFormat); |
1101 end; |
1102 end; |
1102 |
1103 |