- procedure TOGLThread.Execute;
- begin
- Initialize;
- while (not Terminated) do begin
- try
- wglMakeCurrent(h_DC, h_rc);
- Render;
- wglMakeCurrent(0, 0);
- except on e: exception do
- begin
- ShowMessage(e.Message);
- break;
- end;
- end;
- end;
- Term;
- end;
Initialisieren *seuftz*Moderator: DGL-Team
|