Das Windows onPaint-Ereignis

[danielkussin]

Guten Abend,

ich brauch einmal mehr Hilfe!

Also es geht darum, dass wir ein einfaches Malprogramm programmieren sollen, und unser Problem liegt darin, dass wir für die Erstellung unserer PaintBox (programmieren mit Delphi 7) das onPaint-Ereignis benutzen. Ich denk, dass das soweit auch ganz richtig ist.

Nur unser Problem liegt jetzt darin, dass wir das Ereignis wohl nicht ganz korrekt nutzen, denn wenn wir jetzt z.B. einmal das Programm mit der Zeichenfläche ausserhalb des dargestellen Bildschirms schieben, und es dann wieder reinholen, dann ist das gezeichnete weg (übermalt worden!). Denn Windows bzw. unser Programm hat das onPaint-Ereignis wieder ausgelöst.
In unserem onPaint-Ereignis steht folgendes:

procedure THFRecords.HUPaintBoxPaint(Sender: TObject);
begin
HUPaintBox.Canvas.Brush.Color := cPaintBoxFarbe;
HUPaintBox.Canvas.FillRect(Rect(0,0,cPaintBoxBreit e,cPaintBoxHoehe));
end; // cPaintBoxBreite & cPaintBoxHoehe = Konstante

Es wäre gut wenn uns einer das onPaint-Ereignis nähre erläutern könnte bzw./und uns erklären, wie man dieses Problem umgehen kann. - Und bitte keine Antworten, wie lest euch die Delphi-Hilfe durch, längst geschehen!

Jetzt schon einmal Danke!

Daniel Kussin

[Mirilin]

:hi:

Nehmt ein TBitmap, und malt darauf.
Im OnPaint der PaintBox kopiert ihr dieses Bitmap in dessen Canvas.


mfg Tobias

[danielkussin]

Danke für deine Hilfe, aber dieser Versuch, wie du das meinst, mit in ein Bmp kopieren, und dann immer wieder aufrufen ist so nicht ganz richtig für unser Problem.

... Warte weiter auf Antwort.


Daniel

[mandumoal]

Hallo!

Nimm doch einfach ein TImage - hat die gleichen Funktionen/Methoden wie TPaintbox aber bleibt "bemalt" wenn es im Hintegrund geschoben wird.

[Luckie]

Kuckt dir mal mein Demo zu "OffsreenBitmap" an. Zu finden hier: http://www.luckie-online.de/files/demos/