- procedure TMainForm.FormResize(Sender: TObject);
- begin
- glViewport(0, 0, ClientWidth, ClientHeight);
- glMatrixMode(GL_PROJECTION);
- glLoadIdentity();
- gluPerspective(45.0,ClientWidth/ClientHeight,NearClipping,FarClipping);
- glMatrixMode(GL_MODELVIEW);
- glLoadIdentity;
- end;