Grafische Komponenten verschwinden beim Zeichnen von Linien

Peter Wolf · Beiträge: 37 WinXP Pro Delphi7 Ent.

Hallo Leute,

ich nehme Bezug auf einen Post von mir www.delphi-forum.de/...+sind+weg_51920.html.
Mit dem Zeichnen (Verwendung von TBitMap) funktioniert es ja jetzt wunderbar, ohne dass beim Minimieren/Wiederherstellen die gezeichneten Linien verschwinden.
Nur hab ich jetzt das Problem, dass z.B. ein gesetztes Label oder irgend eine andere grafische Komponente beim Zeichnen verschwindet. Wie speichere ich mir das nun ab?

Vielen Dank im Voraus!
Grüße Peter

Peter Wolf · Beiträge: 37 WinXP Pro Delphi7 Ent.

Hallo zusammen,

also, ich bin jetzt selber draufgekommen.
Ich muss jede Komponente im Ereignis "OnPaint" vom Form1 mit "Repaint" neu zeichnen lassen.

z.B.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.FormPaint(Sender: TObject);
begin
  BitBlt(Form1.Canvas.Handle,0,0,bmp.Width,bmp.Height,bmp.Canvas.Handle,0,0,SRCCOPY);
  Label1.Repaint;
end;

Grüße Peter

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme