@@ -412,7 +412,10 @@ Type TGL2SDLRenderImageFrame Extends TGLImageFrame
Private
Method Delete()
- glDeleteFrameBuffers(1, Varptr FBO) ' gl ignores 0
+ 'remove framebuffer if used
+ if FBO <> 0
+ glDeleteFramebuffers(1, Varptr FBO) ' gl ignores 0
+ EndIf
EndMethod
Method New()
@@ -436,7 +436,10 @@ Type TGLSDLRenderImageFrame Extends TGLImageFrame
- glDeleteFramebuffers(1, Varptr FBO) ' gl ignores 0
End Method