- procedure TForm1.FormCreate(Sender: TObject);
- var DC, RC:HDC;
- begin
- DC:=GetDC(Handle);
- RC:=CreateRenderingContext(DC, //Device Contest
- [opDoubleBuffered], //Optionen
- 32, //ColorBits
- 24, //ZBits
- 0, //StencilBits
- 0, //AccumBits
- 0, //AuxBuffers
- 0); //Layer
- ActivateRenderingContext(DC, RC);
- glMatrixMode(GL_PROJECTION);
- glLoadIdentity;
- gluPerspective(60, ClientWidth/ClientHeight, 0.1, 100);
- glMatrixMode(GL_MODELVIEW);
- end;