Jup, kann ich
Das Problem liegt darin, dass in meinen Tuts die
Opengl.pas verwendet wird
(die Bei Delphi selber mit bei ist), du aber in deinem Source die Opengl15.pas
von
www.delphigl.com verwendest ... der Unterschied ist nun, dass du an dieser
Stelle
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
<-- Hier!
form1.myDC := GetDC(
Handle);
SetupPixelFormat;
myRC := wglCreateContext(myDC);
wglMakeCurrent(myDC, myRC);
glEnable(GL_DEPTH_TEST);
glLoadIdentity;
end;
einmal die Prozedur "LoadOpenGL;" aufrufen musst, damit die
OpenGl-
Unit die ganzen
Prozeduradressen aus der Opengl32.dll lädt ... denn sollte es gehen...
(dementsprechend am Ende des Progies einmal "UnloadOpenGL;" aufrufen)
Ich hoffe, das hilft weiter....
Mein neuer, 13 Teiliger Open GL - Kurs (Samples in Delphi):
www.dcw-group.net
Neu! Ein großer Teil der Demos nach
Kylix übersetzt!
Neu! Teil 2b: Initialisierung von
OpenGL unter Kylix ist fertig!