Standard ImageSize calculation procedure prototype.
Source position: graphh.inc line 536
type imagesizeproc = function(
X1: SmallInt;
Y1: SmallInt;
X2: SmallInt;
Y2: SmallInt
):LongInt;