Topenglpanel Now

destructor TMyOpenGLPanel.Destroy; begin FTimer.Free; inherited; end;

procedure TMyOpenGLPanel.StopAnimation; begin FTimer.Enabled := False; end; TOpenGlPanel

procedure TMyOpenGLPanel.StartAnimation; begin FTimer.Enabled := True; end; destructor TMyOpenGLPanel

procedure TMyOpenGLPanel.Resize; begin inherited; if Assigned(Context) then Context.SetViewport(RectF(0, 0, Width, Height)); end; begin FTimer.Enabled := False

// Set shader program (simple fixed-function style) Context.SetShader(TShaderManager.DefaultShader);