Класс SquareWPF

Класс графических объектов "Квадрат". Базовый класс - CircleWPF.
Конструкторы класса SquareWPF
constructor (x,y,w: real; c: GColor);
        Создает квадрат со стороной w заданного цвета с координатами левого верхнего угла (x,y)
constructor (x,y,w: real; c: GColor; borderWidth: real);
        Создает квадрат со стороной w заданного цвета с координатами левого верхнего угла (x,y), с границей ширины borderWidth
constructor (x,y,w: real; c: GColor; borderWidth: real; borderColor: GColor);
        Создает квадрат со стороной w заданного цвета с координатами левого верхнего угла (x,y), с границей ширины borderWidth и цвета borderColor
constructor (p: Point; w: real; c: GColor);
        Создает квадрат со стороной w заданного цвета с координатами левого верхнего угла, задаваемыми точкой p
constructor (p: Point; w: real; c: GColor; borderWidth: real; borderColor: GColor);
        Создает квадрат со стороной w заданного цвета с координатами левого верхнего угла, задаваемыми точкой p, с границей ширины borderWidth и цвета borderColor
constructor (p: Point; w: real; c: GColor; borderWidth: real);
        Создает квадрат со стороной w заданного цвета с координатами левого верхнего угла, задаваемыми точкой p, с границей ширины borderWidth
Методы класса SquareWPF
function RemoveBorder;
        Декоратор выключения границы объекта
function SetBorder(w: real; c: GColor);
        Декоратор включения границы объекта
function SetBorder(w: real := 1);
        Декоратор включения границы объекта
function SetRotate(da: real): SquareWPF;
        Декоратор поворота объекта
function SetText(txt: string; size: real; fontname: string; c: GColor): SquareWPF;
        Декоратор текста объекта
function SetText(txt: string; size: real := 16; fontname: string := 'Arial'): SquareWPF;
        Декоратор текста объекта
Свойства базового класса CircleWPF
property Height: real;
        Высота круга
property Radius: real;
        Радиус круга
property Width: real;
        Ширина круга
Методы базового класса CircleWPF
function RemoveBorder;
        Декоратор выключения границы объекта
function SetBorder(w: real; c: GColor);
        Декоратор включения границы объекта
function SetBorder(w: real := 1);
        Декоратор включения границы объекта
function SetRotate(da: real): CircleWPF;
        Декоратор поворота объекта
function SetText(txt: string; size: real; fontname: string; c: GColor): CircleWPF;
        Декоратор текста объекта
function SetText(txt: string; size: real := 16; fontname: string := 'Arial'): CircleWPF;
        Декоратор текста объекта
Свойства базового класса BoundedObjectWPF
property BorderColor: GColor;
        Цвет границы графического объекта
property BorderWidth: real;
        Ширина границы графического объекта
property Color: GColor;
        Цвет графического объекта
Методы базового класса BoundedObjectWPF
function RemoveBorder: BoundedObjectWPF;
        Декоратор выключения границы объекта
function SetBorder(w: real; c: GColor): BoundedObjectWPF;
        Декоратор включения границы объекта
function SetBorder(w: real := 1): BoundedObjectWPF;
        Декоратор включения границы объекта
Свойства базового класса ObjectWPF
property Bottom: real;
        Отступ низа графического объекта от верхнего края окна
property Bounds: GRect;
        Прямоугольник графического объекта
property Center: Point;
        Центр графического объекта
property CenterBottom: Point;
        Центральная нижняя точка графического объекта
property CenterTop: Point;
        Центральная верхняя точка графического объекта
property Color: GColor;
        Цвет графического объекта
property Direction: (real,real);
        Направление движения. Используется методом Move
property FontColor: Color;
        Цвет шрифта текста внутри графического объекта
property FontName: string;
        Имя шрифта текста внутри графического объекта
property FontSize: real;
        Размер шрифта текста внутри графического объекта
property Height: real;
        Высота графического объекта
property Left: real;
        Отступ графического объекта от левого края окна
property LeftBottom: Point;
        Левый нижний угол графического объекта
property LeftTop: Point;
        Левый верхний угол графического объекта
property Number: integer;
        Целое число, выводимое в центре графического объекта. Используется свойство Text
property RealNumber: real;
        Вещественное число, выводимое в центре графического объекта. Используется свойство Text
property Right: real;
        Отступ правтого края графического объекта от левого края окна
property RightBottom: Point;
        Правый нижний угол графического объекта
property RightTop: Point;
        Правый верхний угол графического объекта
property RotateAngle: real;
        Угол поворота графического объекта (по часовой стрелке)
property ScaledHeight: real;
        Отмасштабированная высота графического объекта
property ScaledSize: GSize;
        Отмасштабированный размер графического объекта
property ScaledWidth: real;
        Отмасштабированная ширина графического объекта
property ScaleFactor: real;
        Множитель масштабирования объекта
property Size: GSize;
        Размер графического объекта
property Text: string;
        Текст внутри графического объекта
property TextAlignment: Alignment;
        Выравнивание текста внутри графического объекта
property Top: real;
        Отступ графического объекта от верхнего края окна
property Visible: boolean;
        Видимость графического объекта
property Width: real;
        Ширина графического объекта
Методы базового класса ObjectWPF
procedure AnimMoveBy(a,b: real; sec: real := 1);
        Анимирует перемещение графического объекта на вектор (a,b) в течение sec секунд
procedure Move; virtual;
        Перемещает графический объект на вектор (dx,dy)
procedure MoveBy(a,b: real);
        Перемещает графический объект на вектор (a,b)
procedure MoveBy(v: (real,real));
        Перемещает графический объект на вектор (a,b)
procedure MoveForward(r: real);
        Перемещает графический объект в направлении RotateAngle (вверх при RotateAngle=0)
procedure MoveTime(dt: real); virtual;
        Перемещает графический объект вдоль вектора Direction со скоростью Velocity за время dt
procedure MoveTo(x,y: real);
        Перемещает левый верхний угол графического объекта к точке (x,y)
procedure Rotate(a: real);
        Поворачивает графический объект по часовой стрелке на угол a
procedure RotateToPoint(x,y: real);
        Поворачивает графический объект так чтобы он "смотрел" на точку (x,y)
procedure Scale(r: real);
        Масштабирует графический объект в r раз относительно текущего размера