- procedure TMainForm.Render;
- var w,h: integer;
- begin
- w := MainForm.Width;
- h := MainForm.Height-LogLB.Height;
- glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
- fVBO.Bind;
- fShader.Enable;
- fshader.Uniform2f('windowsize', w, h);
- glEnableVertexAttribArray(0);
- glVertexAttribPointer(0, 3, GL_FLOAT, False, 0, nil);
- glDrawArrays(GL_QUADS, 0, fVBO.DataCount);
- glDisableClientState(GL_VERTEX_ARRAY);
- fShader.Disable;
- fVBO.Unbind;
- fContext.SwapBuffers;
- end;