Delphi-PRAXiS - Delphi OpenGL + MultiThread + DisplayList

Hallo!

Ich habe ein Problem mit meinem ersten OpenGL-Projekt. Es stellt dreidimensionale Fraktale her, und weil das unter umständen etwas dauert, ist die Berechnung in einen zweiten Thread ausgelagert worden. Die Anzeige übernimmt ein "OpenGLPanel" (im www gefunden).

Das Programm arbeitet mit einer DisplayList, die während der Berechnung mit den Befehlen zum Zeichnen des Fraktals gefüllt wird. Weil ja nun eine DisplayList irgendwie Rendercontextabhängig ist und dieser wiederum vom Thread abhängt, musste auch die Renderfunktion (in der das Fraktal von der DisplayList gezeichnet wird, ohne Neuberechnung) in den Thread wandern, sonst wird nix angezeigt. Das gleiche gilt für die Initialisierungsmethode des OpenGL-Panels.

Damit beginnt das Problem: Seit sich die Renderfunktion nicht mehr in dem Thread befindet, in dem das OGL-Panel liegt, zeigt sich ein merkwürdiges Phänomen beim Vergrößern der Anwendung: Das OGLPanel vergrößert sich zwar, das angezeigt Fraktal wird aber kleiner! Außerdem bleiben die neu gewonnenen Flächen schwarz.

Ich habe eine kleine Beispielanwendung erstellt, die auf das wesentliche reduziert ist. Man kann darin zwischen 1-Thread (= null Problem) und 2-Thread umschalten. Vielleicht könnt Ihr mir helfen, den Fehler im 2-Thread-Modus zu finden.

Lasst euch bitte nicht davon abschrecken, dass es jetzt was zum herunterladen gibt, ich verspreche euch, es lohnt sich! Die Beispielanwendung verzichtet nämlich nicht darauf, zufällige 3D-Fraktale zu generieren...

dartrax

PS: Ich hoffe, es ist alles drinn, was zum Kompilieren gebraucht wird. Sicherheitshalber hab ich das OpenGL-Panel als Package als zweiten Anhang hochgeladen.