TButtons im OpenGl (@Aya)

[Daniel B]

Hi Matze,

ich habe Ayas Tutorials zuerst auch als VCL-Version gemacht und es ging genau so gut, Aya hat es dann im IRC NonVCL gemacht, ansonsten ändert sich für Dich nicht viel.

1. Neue Anwendung erstellen.
2. Bei den Komponenten auf den Reiter "Zusätzlich", dort gibt es die Komponente "ApplicationEvents", blauer Kreis, eine Fackel drin uns drei schwarze Pfeile.

Von der AppEvents-Kompo brauchst Du das Ereigniss OnIdle, das sieht dann so aus:

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1Idle(Sender: TObject;
  var Done: Boolean);
begin
  DrawScene;
  Done := False;
end;

Was sich noch ändert, in der DrawScene kommt die letzte Zeile noch rein, bei NonVCL ist die nämlich woanders drin.

Delphi-Quellcode:

procedure TForm1.DrawScene;
begin
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
  glLoadIdentity;

  glTranslate(0, 0, -5);
  glRotate(RotateX, 1, 0, 0);
  glBegin(GL_QUADS);
.
.
.
  glEnd;

  RotateX := RotateX + 1;
  if RotateX > 360 then
    RotateX := RotateX - 360;
  SwapBuffers(h_DC); //<-- Übeltäter...
end;

Ins normale FormCreate kommt noch das rein:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  InitOpenGL;
  h_DC := GetDC(Handle);
  SetDCPixelFormat(h_DC);
  hRC := wglCreateContext(h_DC);
  wglMakeCurrent(h_DC,hRC);
  InitGL;
end;

Das müsste es gewesen sein, die IniGL und SetDCPixels... bleiben gleich, fällt mir jetzt auf die schnell jedenfalls kein Untershcied ein. Egl, probier das einfach mal aus, wenns nicht geht, sag bescheid, dann häng ich dann die Unit ganz an, so wie es bei mir auch mal gelaufen ist und noch läuft hoff ich.