nonVCL OpenGL-Screensaver

[SnuffMaster23]

Die Fortsetzung von hier...

Also die Preview (mit Timer, 100 ms) ist schwarz, es wird auch nichts gerendert, der Rechner bleibt aber bedienbar^^

Das ist meine OpenGL-Initialisierung:

Delphi-Quellcode:

InitOpenGL;
FillChar(pfd, sizeof(pfd), 0);
DC             := GetDC(AppHWND);
pfd.cColorBits := 32;
pfd.cAlphaBits := 32;
pfd.cDepthBits := 32;
pfd.dwFlags    := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER;
p              := ChoosePixelFormat(DC, @pfd);
SetPixelFormat(DC, p, @pfd);
RC             := wglCreateContext(DC);
wglMakeCurrent(DC, RC);

glClearColor(1, 0, 0, 1);
glEnable(GL_DEPTH_TEST);

glViewport(0, 0, WNDRect.Right, WNDRect.Bottom);
glMatrixMode(GL_PROJECTION);
glLoadIdentity;
gluPerspective(45, WNDRect.Right / WNDRect.Bottom, 1, 10);
glMatrixMode(GL_MODELVIEW);
glShadeModel(GL_SMOOTH);

Damit müsste der Bildschirm bzw. das Fenster ja schonmal rot werden, tuts aber nicht.
Sogar wenn ich in Render noch ein SwapBuffers(DC) einfüge, das hatte ich vergessen

Naja, erstmal würds mir ja reichen wenn ichs im Schonermodus testen könnte, also das Problem mit PeekMessage beseitigt wäre