X-Git-Url: https://git.delphigl.com/?p=LazOpenGLCore.git;a=blobdiff_plain;f=examples%2FSimpleLoadFromFile%2FSimpleLoadFromFile.lpr;fp=examples%2FSimpleLoadFromFile%2FSimpleLoadFromFile.lpr;h=64d2db79ceca81871720344e651e618573c9ae7c;hp=bdb9c69eae12ed6790aff40c8a531073bf0de381;hb=e991f684566fa8872e7807a9eac99844ac60c058;hpb=c110c2d190cfdd632a622163d3edb7c9c90cf21a

diff --git a/examples/SimpleLoadFromFile/SimpleLoadFromFile.lpr b/examples/SimpleLoadFromFile/SimpleLoadFromFile.lpr
index bdb9c69..64d2db7 100644
--- a/examples/SimpleLoadFromFile/SimpleLoadFromFile.lpr
+++ b/examples/SimpleLoadFromFile/SimpleLoadFromFile.lpr
@@ -40,15 +40,17 @@ end;
 begin
   oglWindow := CreateOpenGLWindow('SimpleLoadFromFile', 800, 600, @WindowProc);
   try
-    tex  := TglBitmap2D.Create;               // create texture object
-    data := TglBitmapData.Create;             // create texture data object
+    tex  := TglBitmap2D.Create;                             // create texture object
+    data := TglBitmapData.Create;                           // create texture data object
     try
-      data.LoadFromFile(                      // load texture data from file
+      data.LoadFromFile(                                    // load texture data from file
         ExtractFilePath(ApplicationName) +
         '../textures/BMP_24_RGB8.bmp');
-      tex.UploadData(data);                   // upload data to video card
+      if not data.FormatDescriptor.HasOpenGLSupport then    // check if format is supported by OpenGL
+        data.ConvertTo(data.FormatDescriptor.OpenGLFormat); // if not then convert
+      tex.UploadData(data);                                 // upload data to video card
     finally
-      FreeAndNil(data);                       // after upload is done, the data object could be freed to save memory
+      FreeAndNil(data);                                     // after upload is done, the data object could be freed to save memory
     end;
 
     while running and ProgressMesages do begin