- procedure TglForm.FormCreate(Sender: TObject);
- var
- myPalette : HPALETTE;
- begin
- ChangeDisplay;
- if not InitOpenGL then
- raise Exception.Create('Fehler beim Initialisieren von OpenGL!');
- myDC := GetDC(Handle);
- myRC:= CreateRenderingContext(myDC, [opDoubleBuffered] ,32, 0, 0, 0, 0, myPalette);
- ActivateRenderingContext(myDC, myRC);
- SetupOpenGL(ClientWidth,ClientHeight);
- gl2DText.BuildFont;
- end;