- unit Test;
- ...
- uses
- Windows,
- OpenGl12
- ...
- var
- DC : HDC;
- RC : HGLRC;
- ...
- procedure TForm1.InitGL;
- var
- DummyPal : HPalette;
- begin
- DC := GetDC(Panel1.Handle);
- RC := CreateRenderingContext(DC, [opDoubleBuffered], ..., DummyPal);
- end;
- ...
- procedure TForm1.DrawScene;
- begin
- ActivateRenderingContext(DC, RC);
- ...
- SwapBuffers(DC);
- DeActivateRenderingContext;
- end;
- ...