Pārlūkot izejas kodu

* fixed some issues with Delphis TBitmap and 32bit format

unstable
Bergmann89 pirms 9 gadiem
vecāks
revīzija
5885985675
1 mainītis faili ar 3 papildinājumiem un 2 dzēšanām
  1. +3
    -2
      glBitmap.pas

+ 3
- 2
glBitmap.pas Parādīt failu

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


Notiek ielāde…
Atcelt
Saglabāt