Animation erstellen

[Johannes]

Hallo Forum,

mein Programm ist weiter gediehen.

Ich nutze ein PageControl mit mehreren TabSheets auf meinem Form. Die bestehende Animation läuft prima auf dem ersten TabSheet.
Auf einem weiteren soll nun eine zweite, kleine, Animation angezeigt werden.
Wie initialisiere ich das OpenGLControl2 richtig?
Für die bestehende Animation sieht das so aus:

Code: Alles auswählen

{ TSteuerung_Start }
// Initialisierung
procedure TSteuerung_Start.FormCreate(Sender: TObject);
begin
  InitOpenGL;
  OpenGLControl1.MakeCurrent;
  ReadExtensions;
  ReadImplementationProperties;
  glEnable(GL_BLEND);
  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
  glEnable(GL_DEPTH_TEST);
  glDepthFunc(GL_LESS);
  glGenTextures(1, @textureID0);
  glBindTexture(GL_TEXTURE_2D, textureID0);
  bit := CreateBitmap;
  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR_MIPMAP_LINEAR);
  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR_MIPMAP_LINEAR);
  glTexImage2D(GL_TEXTURE_2D, 0, GL_RGB8, bit.Width, bit.Height,
    0, GL_BGR, GL_UNSIGNED_BYTE, bit.RawImage.Data);
  bit.Free; // Temporäre Bitmap wieder frei geben.
  glGenerateMipmap(GL_TEXTURE_2D);
  quadricParam := @gluNewQuadric;                                 

Danke und Gruß

Hannes

[Mathias]

Hier habe ich ein Demo mit 3 OpenGLControl.

Einen Reibungsloser Lauf kann ich aber nicht garantieren.

Code: Alles auswählen

OpenGLControl2.SwapBuffers; 

Diese Zeilen sind der springende Punkt.

Das

Code: Alles auswählen

OpenGLControl1.MakeCurrent;

musst du genauer angucken.
In meinem Demo ist diese nicht vorhanden.

Ich hoffe dies hilft dir weiter,

[Mathias]

Das wäre auch noch eine Möglichkeit für dein Problem.

[Johannes]

Vielen Dank für die schnelle Hilfe!

Deine Beispiele lassen sich bei mir leider nicht kompilieren. Es fehlt "dglOpenGL".

Ich habe mir den Code angeschaut. Wenn ich "MakeCurrent" auskommentiere gibt es SIGSEGV...
Die anderen Änderungen wie SwapBuffers habe ich natürlich angepasst.

Gruß

Hannes

[Johannes]

Hab mich jetzt einige Zeit damit beschäftigt.
Deine Beispiele laufen natürlich wenn man die DGLOpenGL.pas zum Projekt hinzufügt.

Bei mir klappt das leider nicht. Sobald ich das "MakeCurrent" im FormCreate weglasse kommt, beim Programmstart, mein geschilderter Fehler: External:SIGSEGV.
Ich weiß nun nicht mehr wo ich noch suchen sollte.
Im FormCreate stehen, bei mir, noch einige Befehle welche ich für die Textur brauche. Kann das vielleicht damit zu tun haben?

Gute Nacht

Hannes