[Bitte mal Testen (die Zweite)] 3D nonVCL Demo

[turboPASCAL]

Zitat von himitsu:

Dann bau doch ein z.B. Sleep(10) dort ein oder wie sieht denn deine Schleife aus?
(Hagen hatte mal hier irgendwo eine schöne Schleife vorgestellt, welche bis zu einem Event/Message schläft)

Ja, die bin ich am suchen, im Moment schaut die Schleife "wie üblich" aus:

Delphi-Quellcode:

while not finished do
  begin
    if (PeekMessage(msg, 0, 0, 0, PM_REMOVE)) then
    begin
      if (msg.message = WM_QUIT) then //...
       else begin 
        TranslateMessage(msg);
        DispatchMessage(msg);
      end;
    end else
    begin
      glDraw;            // Szene zeichnen
      SwapBuffers(h_DC); 

      //  Sleep(5); // sollte reichen  für rund 2% CPU Last...
    end;
  end;
  //...

Zitat von Luckie:

Auch hier im Büro bekomme ich die Fehlermeldung. Windows XP SP2. Prozessor und
Grafikkarte kann ich jetzt nicht sagen.

Das ist Schade. Ich vermute einfach mal das die Graka. daran Schuld ist. Multitexturing etc.
sollte diese schon sachaffen sonst sieht es schlecht aus (auch wenn im Demo keine Texturen
dabei sind, die muss ich erst noch malen).