| @@ -29,6 +29,7 @@ unit glBitmap; | |||||
| // Delphi Versions | // Delphi Versions | ||||
| {$IFDEF fpc} | {$IFDEF fpc} | ||||
| {$MODE Delphi} | {$MODE Delphi} | ||||
| {$MINENUMSIZE DEFAULT} | |||||
| {$IFDEF CPUI386} | {$IFDEF CPUI386} | ||||
| {$DEFINE CPU386} | {$DEFINE CPU386} | ||||
| @@ -429,7 +430,7 @@ type | |||||
| property RGBInverted: TglBitmapFormat read fRGBInverted; //< suitable format with inverted RGB channels | property RGBInverted: TglBitmapFormat read fRGBInverted; //< suitable format with inverted RGB channels | ||||
| property WithAlpha: TglBitmapFormat read fWithAlpha; //< suitable format with alpha channel | property WithAlpha: TglBitmapFormat read fWithAlpha; //< suitable format with alpha channel | ||||
| property WithoutAlpha: TglBitmapFormat read fWithAlpha; //< suitable format without alpha channel | |||||
| property WithoutAlpha: TglBitmapFormat read fWithoutAlpha; //< suitable format without alpha channel | |||||
| property OpenGLFormat: TglBitmapFormat read fOpenGLFormat; //< suitable format that is supported by OpenGL | property OpenGLFormat: TglBitmapFormat read fOpenGLFormat; //< suitable format that is supported by OpenGL | ||||
| property Uncompressed: TglBitmapFormat read fUncompressed; //< suitable format with uncompressed data | property Uncompressed: TglBitmapFormat read fUncompressed; //< suitable format with uncompressed data | ||||
| @@ -7092,7 +7093,7 @@ begin | |||||
| pf24bit: | pf24bit: | ||||
| IntFormat := tfBGR8ub3; | IntFormat := tfBGR8ub3; | ||||
| pf32bit: | pf32bit: | ||||
| IntFormat := tfBGRA8ub4; | |||||
| IntFormat := tfXRGB8ui1; | |||||
| else | else | ||||
| raise EglBitmap.Create('AssignFromBitmap - Invalid Pixelformat.'); | raise EglBitmap.Create('AssignFromBitmap - Invalid Pixelformat.'); | ||||
| end; | end; | ||||