TPaintbox picture disappears on resize

[Tommi]

If I draw something inot TPaintBox.canvas, when I resize the form, or I reduce it to icon, the image disappears.

Code: [Select]

procedure TForm1.Button1Click(Sender: TObject);
begin
  paintbox1.Canvas.Pen.Color:=clYellow;
  paintbox1.Canvas.Pen.Width:=6;
  paintbox1.Canvas.Line(0,0,100,100);
end;

How could avoid it ?

(In attachment my minimal project)

Thank you.

[TRon]

If I draw something inot TPaintBox.canvas, when I resize the form, or I reduce it to icon, the image disappears.

Yes, that is how a paintbox (canvas) works.

Use the onpaint event to draw instead.