- uses glBMP;
- var texture : tglBMP;
- procedure TDemoForm.FormCreate(Sender: TObject);
- begin
- //OpenGL ist noch nicht bereit
- OpenGLInitialized := False;
- //Nur starten, wenn die Bibliotheken auch geladen sind
- if not LoadOpenGL then
- Halt(100);
- Texture:=TGLBMP.Create('tex1.jpg');
- Texture.GenTexture();
- end; (*FormCreate*)