habe ich ich unter Windows beim Panel und Canvas unterschiedliche Grössen.
Bei beiden OS, habe ich Lazarus 2.0.8 verwendet.
Ist dies ein Bug von Lazarus ?
Code: Alles auswählen
procedure TForm1.Panel1Paint(Sender: TObject);
begin
Panel1.Canvas.Rectangle(10, 10, Panel1.Width - 10, Panel1.Height - 10);
self.Caption :=
'pan w: ' + Panel1.Width.ToString + ' h: ' + Panel1.Height.ToString + ' ' +
'can w: ' + Panel1.Canvas.Width.ToString + ' h: ' + Panel1.Canvas.Height.ToString;
end;