From 5885985675fe21b5a9f6cca7e56d5da2d46ddbd0 Mon Sep 17 00:00:00 2001
From: Bergmann89 <info@bergmann89.de>
Date: Mon, 29 Aug 2016 20:35:09 +0200
Subject: [PATCH] * fixed some issues with Delphis TBitmap and 32bit format

---
 glBitmap.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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;