GDIPlus (Erik van Bilsen) mit ‘(GDI+Error) Generic Error’ nach Zugriff auf WinControl

[HintByError]

[QUOTE=Uwe Raabe;1421765]

Zitat von HintByError:

Das liegt daran, daß der Getter von Handle bei Bedarf ein neues Handle erzeugt. Sind bei dir nicht die Handle-Werte von PaintBox1 und PaintBox5 gleich? Du kannst das auch auf 6 und mehr Paintboxen ausdehnen, wirst aber vermutlich immer nur vier verschiedene Werte angezeigt bekommen.

Tatsächlich. In der Erwartung einer Null hatte ich nicht richtig beobachtet. Ein interessantes Detail, dass die Frage aufwirft, weshalb die VCL so sparsam mit Handlenummern umgeht. Vielleicht ist der Grund ein historisches Relikt. Ich halte es nicht für nötig. Die richtige Antwort auf den Ausgangsbeitrag findet sich in dem Beitrag von Fritzew.

[HintByError]

Zitat von Fritzew:

Gewöhne Dir an nur im WM_Paint zu zeichnen.
Das ist in meinen Augen einer der grössten DesignFehler von Windows das außerhalb des PaintEvents gezeichnet werden kann.

So ähnlich hatte ich es auch im ersten Ansatz programmiert. Über den Methodenzeiger TPaintBox.OnPaint wird gezeichnet und mit einem Aufruf von TPaintBox.Repaint wird der Inhalt aktualisiert. Wenn nur eine Darstellung benötigt wird, dann genügt dies. Es handelt sich bei dem richtigen Programm um eine Lady mittlerer Komplexität (ein Charting-Tool), siehe beigefügte Abbildung. In der oberen Leiste befinden sich 3 Auswahllisten für Finanztitel, Darstellungsbreite eines Intervalls und Variante der Darstellung. Mit den Ankreuzkästchen des offenen Menüs „Darstellungsoptionen“ lassen sich Linien in dem Diagramm ein- und ausblenden, wobei bei der Aktualisierung das Menü geöffnet bleibt. Es gibt 3 Methoden, die eine Ausgabe produzieren, und 2 davon wurden nicht über TPaintBox.OnPaint aufgerufen. Die 3. war die PaintBox.OnPaint selbst. Damit die beiden anderen auch von TPaintBox.OnPaint aufgerufen werden, ist der Code dahin gehend angepasst worden, dass über das Feld TPaintBox.Tag festgelegt wird, welche Methode innerhalb von PaintBox.OnPaint aufgerufen werden soll. Um die Sache zum Laufen zubringen, muss dann statt TPaintBox.Repaint tatsächlich TPaintBox.Invalidate verwendet werden. Wenn es nur um Teilbereiche geht, dann sollte man InvalidateRect verwenden. Eine der Routine zeichnet eine vertikale Positionsmarke in Form eines schmalen Rechteckes, die von der Mausposition abhängig ist. Diese Positionsmarke ist in der Abbildung nicht zu sehen. Für das Zeichnen einer solchen Positionsmarke hat sich gezeigt, dass die Blitting-Methode (BitBlT-Routine) mit dem direkten Speicherzugriff und das Zeichnen außerhalb von TPaintBox.OnPaint besser ist. Die Darstellung über TPaintBox.OnPaint reagiert hier zu träge, sodass man hier besser die Programmiertechnik der alten Dinosaurier verwendet. Man muss dabei dafür sorgen, dass vor der Initialisierung von IGPGraphics die benötigten Inhalte aus den Steuerelementen ausgewertet sind.

Vielen Dank für Deinen Beitrag, der mich effektiv weiter gebracht hat.

[Uwe Raabe]

Zitat von HintByError:

Ein interessantes Detail, dass die Frage aufwirft, weshalb die VCL so sparsam mit Handlenummern umgeht. Vielleicht ist der Grund ein historisches Relikt.

Delphi 1 lief damals noch auf Windows 3.x

[HintByError]

Zitat:

Delphi 1 lief damals noch auf Windows 3.x

Dazu muss ich aber einwenden, dass zu diesen Zeiten jede Menge Neues emuliert wurde. Windows 4.0 (sic!) erschien im August 1994 überraschenderweise oder unüberraschenderweise nicht. Je nach Hintergrundwissen. Das danach erscheinende Windows 95 hat mit einem Jahr zusätzlicher Entwicklungsarbeit richtig Hauruck gehabt. Die OWL (Object Windows Library) von TPW (Turbo Pascal for Windows) ist verschwunden und durch die VCL ersetzt worden. Windows 95 und Windows 98 konnten mit 8192 Selectoren mal 64 kByte 512 MByte adressieren. Das sind zwar nicht 4Gbyte, aber es liegt kein Anlass vor, noch so sparsam zu sein.

[Uwe Raabe]

Zitat von HintByError:

aber es liegt kein Anlass vor, noch so sparsam zu sein.

Nein, natürlich nicht! Windows 3.11 wird ja von aktuellen Delphi-Versionen auch nicht mehr unterstützt. Es bedarf auch nur der Anpassung einer einzigen Konstante (CanvasListCacheSize) in Vcl.Controls um das zu ändern.

[HintByError]

Zitat von Uwe Raabe:

Es bedarf auch nur der Anpassung einer einzigen Konstante (CanvasListCacheSize) in Vcl.Controls um das zu ändern.

Damit das mit der Änderung der Konstante erreicht wird, muss allerdings die Quellcodedatei Vcl.Controls.Pas mindestens in das Verzeichnis des Projektes kopieren und dann die nötige Änderung vornehmen. Wenn man mittels [Strg]-Click im uses-Abschnitt einfach nur die Datei in den Editor lädt, dann die Änderung vornimmt, dann hat dies keine Auswirkung. Die so geladene Datei kann man dann aber als Kopie mit der nötigen Änderung in das Projektverzeichnis legen. Das habe ich mal ausgeführt und Voilà man kann jetzt endlich mit CanvasListCacheSize=5 über 5 verschiedene Canvas-Handle-Nummern verfügen. Als Beweis habe ich ein Bildschirmfoto beigefügt.