![]() |
Paintbox problem
Gute abend Coders.
Ich habe auf meiner Form eine Paintbox doch sobald ich eine anderes Fenster über die Paintbox ziehe verschwindet der inhalt. Wie kann ich das verhindern.? |
AW: Paintbox problem
Zeichne entweder auf das Bitmap eines TImage oder führe deine Zeichenaktionen im OnPaint-Event nochmals aus. Du könntest auch einfach das aktuelle "Gezeichnete" zwischenspeichern und dann wieder laden.
|
AW: Paintbox problem
Zitat:
Soll sich der Inhalt ändern muss man Paintbox1.Invalidate ausrufen. (natürlich nicht aus dem OnPaint-Event heraus, das würde eine Endlosschleife erzeugen) |
AW: Paintbox problem
@Jacques Murell
Die zeichenaktion wird bei einer Farbauswahl ausgeführt, das OnPaint stört beim starten des programm. Aber ich hab da jetzt eine idee, ich geb den ColorDialog gleich eine farbe dann müsste es gehen. danke nochmals für deine info. |
AW: Paintbox problem
Zitat:
![]() |
AW: Paintbox problem
Dinge, welche sich sehr oft ändern und/oder welche schnell gezeichnet sind, kann man auch direkt ausgeben.
|
AW: Paintbox problem
Zitat:
Wann immer die Paintbox durch ein Fenster (auch teilweise) verdeckt und dann aufgedeckt wird, feuert das OnPaint-Event. Daher ist das OnPaint-Event die einzig richtige Stelle um etwas auf dem Canvas der Paintbox zu zeichnen. Borland hat leider den Fehler begangen, den Canvas als public Property freizugeben. Um die Programmierer vor falscher Handhabung zu schützen hätte man den Canvas protected anlegen müssen. Damit man dann überhaupt auf dem Canvas zeichnen kann müsste das Paintevent so aussehen:
Delphi-Quellcode:
So wäre man gezwungen, nur im OnPaint-Event auf den Canvas zuzugreifen und es gäbe keine Fehler.
TOnPaintEvent = procedure(Sender:TObject; Canvas:TCanvas) of object;
|
AW: Paintbox problem
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:08 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz