- procedure TForm1.Render;
- begin
- glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
- glMatrixMode(GL_PROJECTION);
- glLoadIdentity;
- glViewport(0,0,ClientWidth,ClientHeight);
- glOrtho(0,800,0,600, 0,128);
- glMatrixMode(GL_MODELVIEW);
- glLoadIdentity;
- CreateMenu;
- .....