[Lazarus] Canvas size mismatch with control size

Xiangrong Fang xrfang at gmail.com
Tue Jun 5 16:32:22 CEST 2012


I found that on Windows platform, Canvas size may mismatch with control's
size.  See the following code:

procedure TForm1.FormPaint(Sender: TObject);
  Caption := Format('Form=%d:%d, Canvas=%d:%d', [Width, Height,
Canvas.Width, Canvas.Height]);

Run this code on Windows, I found that when the form is enlarged, the 2
sizes matches, but when the form shrinks Canvas' size is always the largest
value it has been.

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20120605/46c557c2/attachment-0002.html>

More information about the Lazarus mailing list