|
|
|
@@ -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; |
|
|
|
|