Resize event only when stretch but not when shrink

[BubikolRamios]

paintbox is on panel, both alClient.

Code: Pascal  [Select][+][-]

1. procedure TForm1.PaintBox1Paint(Sender: TObject);
2. begin
3.   Form1.Caption := IntToStr(PaintBox1.Canvas.Width) + ',' + IntToStr(PaintBox1.Canvas.height);
4.   PaintBox1.Canvas.Line(0, 0, PaintBox1.Canvas.Width-1, PaintBox1.Canvas.Height-1);
5. end;
6.  
7. procedure TForm1.PaintBox1Resize(Sender: TObject);
8. begin
9.   PaintBox1.Invalidate;
10. end;
11.  
12.  
13.  
14.  

When form stretched out, numbers are printed, when shrank, nothing happens about numbers at form caption.
Thought "PaintBox1.Canvas.Line" works all the time as expected.
Do tell how this works ?

[domasz]

How about?

Code: Pascal  [Select][+][-]

1. procedure TForm1.PaintBox1Paint(Sender: TObject);
2. begin
3.   Form1.Caption := IntToStr(PaintBox1.Width) + ',' + IntToStr(PaintBox1.height);
4.   PaintBox1.Canvas.Line(0, 0, PaintBox1.Canvas.Width-1, PaintBox1.Canvas.Height-1);
5. end;
6.  

[jamie]

Don't use the Canvas.Width and height. That is not a reliable source, as you can see, it only reports the maximum size.

Use ClientWidth and height etc.

[BubikolRamios]

it only reports the maximum size

Hmm this is right description of what I see.

Thanks.