Преобразовать верхнюю левую и нижнюю правую точки прямоугольной области в экранные, заданные вещественными значениями
procedure RectPointsToDoubleScrCoords(x0,y0,x1,y1: Double; var aLeft,aTop,aWidth,aHeight: Double);