PaintBox.Paint startet immer wieder neu

[SteffenSchm]

Guten Morgen!

Besten Dank für Eure zahlreichen Hinweise.

Ich war gestern einfach froh, dass ich überhaupt eine Möglichkeit gefunden hatte, mit meinem Delphi-Programm arbeiten zu können. Ich muss nämlich heute ein Projekt abschliessen (kein IT-Projekt), für welches ich das Programm brauche. Ich bin sozusagen mein eigener (und fast einziger) Anwender dieses Programms.

Das Programm liest Polylines aus einer dxf-Datei und stellt sie in einer von Paintbox abgeleiteten WorldBox dar. Auf der Worldbox kann man in Weltkoordinaten zeichnen. Diese werden dann skaliert und gedreht, also auf Pixel umgerechnet.

Die Polylines der dxf-Datei werden in einer Liste (TObjectList) gespeichert, deren Elemente wiederum Listen (TObjectList) von Punkten sind. In PaintBoxPaint (bzw. eigentlich WorldBoxPaint) werden über eine Schleife die einzelnen Polylines gezeichnet. In dem Fall, in dem die Probleme auftraten hatte die Liste ca. 153.000 Elemente, wobei jedes Polyline mindesten zwei Punkte hat aber natürlich auch sehr viel mehr Punkte haben kann.

Ich weiß natürlich auch, dass Euch diese Erläuterungen nicht viel weiterhelfen und Quelltext viel besser wäre, aber dazu müsste ich das halbe Programm hier posten.

Beste Grüße
Steffen