Width einer Canvas auslesen

[Nothine]

du könntest dir mit der funktion GetClipBox die maße des canvas holen.
Es gibt zwar laut MSDN einige einschränkungen, aber für den anfang funktionierts z.B. mit Form1.Canvas janz jut.

Delphi-Quellcode:

function CanvasWidth(Canvas: TCanvas): Integer;
var R: TRect;
begin
  GetClipBox(Canvas.Handle,R);
  Result := R.Right;
end;

function CanvasHeight(Canvas: TCanvas): Integer;
var R: TRect;
begin
  GetClipBox(Canvas.Handle,R);
  Result := R.Bottom;
end;