- procedure TForm1.FormCreate(Sender: TObject);
- var
- Dummy: HPalette;
- begin
- //
- if not InitOpenGL then
- raise Exception.Create('OpenGL Initialisierung fehlgeschlagen!');
- fDC := GetDC(handle);
- fRC := CreateRenderingContext(fDC,[opDoubleBuffered],32,0,0,0,0,Dummy);
- ActivateRenderingContext(fDC,fRC);
- glClearColor(0.0,0.0,0.0,0.0);
- end;
- procedure TForm1.FormDestroy(Sender: TObject);
- begin
- DeactivateRenderingContext();
- DestroyRenderingContext(fRC);
- closeOpenGL();
- end;
- procedure TForm1.FormPaint(Sender: TObject);
- begin
- glClear(GL_COLOR_BUFFER_BIT);
- SwapBuffers(fDC);
- end;