diff --git a/glBitmap.pas b/glBitmap.pas index edd0957..3800995 100644 --- a/glBitmap.pas +++ b/glBitmap.pas @@ -29,6 +29,7 @@ unit glBitmap; // Delphi Versions {$IFDEF fpc} {$MODE Delphi} + {$MINENUMSIZE DEFAULT} {$IFDEF CPUI386} {$DEFINE CPU386} @@ -429,7 +430,7 @@ type property RGBInverted: TglBitmapFormat read fRGBInverted; //< suitable format with inverted RGB channels 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 Uncompressed: TglBitmapFormat read fUncompressed; //< suitable format with uncompressed data @@ -7092,7 +7093,7 @@ begin pf24bit: IntFormat := tfBGR8ub3; pf32bit: - IntFormat := tfBGRA8ub4; + IntFormat := tfXRGB8ui1; else raise EglBitmap.Create('AssignFromBitmap - Invalid Pixelformat.'); end;