- procedure TForm1.FormShow(Sender: TObject); // oder create
- begin
- FDC := GetDC(Handle);
- FRC := CreateRenderingContext(FDC, [opDoubleBuffered], 32, 24, 0, 0, 0, 0);
- ActivateRenderingContext(FDC, FRC);
- // einstellungen
- FInitialised := True;
- FormResize(Self);
- end;
- procedure TForm1.FormResize(Sender: TObject);
- begin
- if (FInitialised) then begin
- glViewport(...);
- glMatrixMode(GL_PROJECTION);
- glLoadIdentity();
- gluPerspective(45.0, Aspect, 2.0, 128.0);
- end;
- end;
- procedure TForm1.ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
- begin
- Done := False;
- DrawScene;
- SwapBuffers (FDC);
- end;