Zeichnen in Canvas funktioniert nicht in FormCreate

[Linkat]

Hallo,
habe in Form1 eine PaintBox- und eine Panel-Komponente abgelegt.
in der procedure FormCreate möchte ich in die Canvas der Form1, der PaintBox1 und Panel1 ein Rechteck bzw. Kreis zeichnen. Was leider nicht funktioniert. In der Button1Click-Procedure gelingt das.

Gibts hierfür eine Erklärung?

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
begin
  Canvas.Rectangle(1,1,20,20);
  Panel1.Canvas.Rectangle(30,30,60,60);
  PaintBox1.Canvas.Ellipse(30,30,60,60);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Canvas.Rectangle(1,1,20,20);
  Panel1.Canvas.Rectangle(10,10,90,90);
  PaintBox1.Canvas.Ellipse(10,10,90,90);
end;
 

Gibts hier für eine Erklärung?

Gruß, Linkat

Win 7 64bit; Lazarus 1.0.14; FPC 2.6.2

[Scotty]

Gibts hier für eine Erklärung?

Nach dem Erstellen wird die Paintbox neu gezeichnet. Du kannst das gleiche bekommen, indem du ein Fenster nach der OnClick-Methode über den Canvas der Paintbox schiebst. Benutze einfach das OnPaint() Ereignis der Paintbox oder ein TImage.

[theo]

Gibts hier für eine Erklärung?

Erstens: OnCreate ist noch gar nichts sichtbar. Wenn schon, wäre OnShow das passendere Event.
Zweitens: Eine Paintbox hat keinen Puffer. In eine Paintbox soll man auschliesslich in deren OnPaint Ereignis zeichnen.

[Michl]

Schiebe mal noch ein "Repaint" beim Buttonklick hinterher (oder veränder mal die Größe des Formulars nach dem Buttonklick)

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
  Canvas.Rectangle(1,1,20,20);
  Panel1.Canvas.Rectangle(10,10,90,90);
  PaintBox1.Canvas.Ellipse(10,10,90,90);
  RePaint;
end;

Die Ursache ist, dass (fast) alle Canvas von sichtbaren Controls bei jedem "RePaint", "ReFresh" oder "Invalidate" neu aufgebaut werden und damit flüchtig sind.

Anders herum, ist es sogar möglich ins Canvas eines Images zu schreiben, ohne dass diese Zeichenoperation erhalten bleibt, wenn man dies bei "OnPaint" des Images macht, siehe http://wiki.freepascal.org/Developing_w ... e_zeichnen