- {...}
- {$IFDEF LCLGTK}
- {$IFDEF Linux}
- {$DEFINE UseGtkGLX}
- {$DEFINE OpenGLTargetDefined}
- {$ENDIF}
- {$ENDIF}
- {$IFDEF LCLGTK2}
- {$IFDEF Linux}
- {$DEFINE UseGtk2GLX}
- {$DEFINE OpenGLTargetDefined}
- {$ENDIF}
- {$ENDIF}
- {$IFDEF LCLCarbon}
- {$DEFINE UseCarbonAGL}
- {$DEFINE OpenGLTargetDefined}
- {$ENDIF}
- {$IFDEF LCLWin32}
- {$DEFINE UseWin32WGL}
- {$DEFINE OpenGLTargetDefined}
- {$ENDIF}
- {$IFDEF LCLQT}
- {$DEFINE UseQTGLX}
- {$DEFINE OpenGLTargetDefined}
- {$ENDIF}
- {$IFNDEF OpenGLTargetDefined}
- {$ERROR this LCL widgetset/OS is not yet supported}
- {$ENDIF}
- uses
- {...}
- {$IFDEF UseGtkGLX}
- GLGtkGlxContext,
- {$ENDIF}
- {$IFDEF UseGtk2GLX}
- GLGtkGlxContext,
- {$ENDIF}
- {$IFDEF UseCarbonAGL}
- GLCarbonAGLContext,
- {$ENDIF}
- {$IFDEF UseWin32WGL}
- GLWin32WGLContext,
- {$ENDIF}
- {$IFDEF UseQTGLX}
- GLQTContext,
- {$ENDIF}
- {...}
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- //zeichnet den OpenGL-Fensterinhalt
- procedure TMainForm.Render;
- begin
- glClearColor(0.1,0.1,0.1,0);
- glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
- glMatrixMode(GL_MODELVIEW);
- glLoadIdentity;
- {Rendern}
- LOpenGLSwapBuffers(fRC);
- end;