X-Git-Url: https://git.delphigl.com/?p=glBitmap.git;a=blobdiff_plain;f=glBitmap.pas;fp=glBitmap.pas;h=edd095748949e0ac05e646af6cc65d1137dfea23;hp=4934c142f4ad7317f7cefd5940490348c8231cea;hb=ee225899fa2f9ac3da3d38c0c7e37d1c46006eab;hpb=a5e668965c3d2eeea57a5b6d51a162ae25f37180

diff --git a/glBitmap.pas b/glBitmap.pas
index 4934c14..edd0957 100644
--- a/glBitmap.pas
+++ b/glBitmap.pas
@@ -8524,13 +8524,13 @@ begin
       raise EglBitmapNonPowerOfTwo.Create('TglBitmap1D.GenTexture - Rendercontex dosn''t support non power of two texture.');
   end;
 
+  inherited UploadData(aDataObj, aCheckSize);
+
   if (fID = 0) then
     CreateID;
   SetupParameters(BuildWithGlu);
   UploadDataIntern(aDataObj, BuildWithGlu);
   glAreTexturesResident(1, @fID, @fIsResident);
-
-  inherited UploadData(aDataObj, aCheckSize);
 end;
 {$ENDIF}
 
@@ -8600,6 +8600,8 @@ begin
 {$IFEND}
   end;
 
+  inherited UploadData(aDataObj, aCheckSize);
+
   if (fID = 0) then
     CreateID;
   SetupParameters({$IFNDEF OPENGL_ES}BuildWithGlu{$ENDIF});
@@ -8607,8 +8609,6 @@ begin
 {$IFNDEF OPENGL_ES}
   glAreTexturesResident(1, @fID, @fIsResident);
 {$ENDIF}
-
-  inherited UploadData(aDataObj, aCheckSize);
 end;
 
 //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
@@ -8693,12 +8693,12 @@ begin
 {$IFEND}
   end;
 
+  inherited UploadData(aDataObj, aCheckSize);
+
   if (fID = 0) then
     CreateID;
   SetupParameters({$IFNDEF OPENGL_ES}BuildWithGlu{$ENDIF});
   UploadDataIntern(aDataObj, aCubeTarget{$IFNDEF OPENGL_ES}, BuildWithGlu{$ENDIF});
-
-  inherited UploadData(aDataObj, aCheckSize);
 end;
 
 //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////