RectSize procedure
procedure
RectSize(Const R: TRect; Out RectWidth, RectHeight: Integer);
Unit
TeCanvas
Description
Returns the dimensions of Rect R.
RectWidth := R.Right - R.Left
and
RectHeight := R.Bottom - R.Top