- {==============================================================================}
- Procedure gl_GetInfos;
- var
- GLRenderer, GLVendor, GLVersion, GLExtentions: String;
- begin
- // Alle OpenGL Informationen hohlen und den entsprechenden Strings
- // zuweisen
- GLRenderer:= 'GLRenderer : '+ glGetString(GL_RENDERER);
- GLVendor:= 'GLVendor : '+ glGetString(GL_VENDOR);
- GLVersion:= 'GLVersion : '+ glGetString(GL_VERSION);
- GLExtentions:='GLExtensions : '+ glGetString(GL_EXTENSIONS);
- // Hier werden die daten dann ans Formular übergeben
- Form1.Memo1.Lines.Add(GLRenderer);
- Form1.Memo1.Lines.Add(GLVendor);
- Form1.Memo1.Lines.Add(GLVersion);
- Form1.Memo1.Lines.Add(GLExtentions);
- end;
- {==============================================================================}