Левый верхний угол графического объекта
propertyVisible: boolean;
Видим ли графический объект
|
propertyColor: GColor;
Цвет графического объекта
|
propertyFontColor: GColor;
Цвет шрифта графического объекта
|
propertyText: string;
Текст внутри графического объекта
|
propertyTextVisible: boolean;
Видимость текста внутри графического объекта
|
propertyTextScale: real;
Масштаб текста относительно размеров графического объекта, 0<=TextScale<=1. При TextScale=1 текст занимает всю ширину или высоту объекта. По умолчанию TextScale=0.8
|
propertyFontName: string;
Имя шрифта для вывода свойства Text
|
propertyFontStyle: FontStyleType;
Стиль шрифта для вывода свойства Text
|
propertyNumber: integer;
Целое число, выводимое в центре графического объекта. Для вывода используется свойство Text
|
propertyRealNumber: real;
Вещественное число, выводимое в центре графического объекта. Для вывода используется свойство Text. Вещественное число выводится с одним знаком после десятичной точки
|
propertyOwner: ContainerABC;
Владелец графического объекта, ответственный также за перерисовку графического объекта внутри себя (по умолчанию nil)
|
Методы, унаследованные от класса ObjectABC
procedureMoveTo(x,y: integer);
Перемещает левый верхний угол графического объекта к точке (x, y)
|
procedureMoveOn(a,b: integer);
Перемещает графический объект на вектор (a, b)
|
procedureMove; override;
Перемещает графический объект на вектор, задаваемый свойствами dx, dy
|
procedureScale(f: real); override;
Масштабирует графический объект в f раз (f>1 - увеличение, 0
|
procedureToFront;
Переносит графический объект на передний план
|
procedureToBack;
Переносит графический объект на задний план
|
functionBounds: System.Drawing.Rectangle;
Возвращает прямоугольник, определяющий границы графического объекта
|
functionPtInside(x,y: integer): boolean; override;
Возвращает True, если точка (x, y) находится внутри графического объекта, и False в противном случае
|
functionIntersect(g: ObjectABC): boolean;
Возвращает True, если изображение данного графического объекта пересекается с изображением графического объекта g, и False в противном случае. Белый цвет считается прозрачным и не принадлежащим объекту
|
functionIntersectRect(r: System.Drawing.Rectangle): boolean;
Возвращает True, если прямоугольник графического объекта пересекается прямоугольником r, и False в противном случае
|
functionClone0: ObjectABC; override;
Возвращает клон графического объекта
|
procedureDraw(x,y: integer; g: Graphics); override;
Защищенная. Не вызывается явно. Переопределяется для каждого графического класса. Рисует объект на объекте g: Graphics
|
destructorDestroy;
Уничтожает графический объект
|
Класс CircleABC является потомком класса EllipseABC и представляет графический объект Круг. Большинство свойств и методов унаследовано от классов ObjectABC и BoundedObjectABC.
Конструкторы класса CircleABC
constructorCreate(x,y,r: integer; cl: GColor);
Создает круг радиуса r цвета cl с координатами центра (x,y)
|
constructorCreate(g: CircleABC);
Создает круг - копию круга g
|
procedureScale(f: real);
|
Масштабирует круг в f раз (f>1 - увеличение, 0functionClone: CircleABC;
Возвращает клон круга
|
Свойства класса CircleABC
propertyRadius: integer;
Радиус круга
|
Свойства, унаследованные от класса BoundedObjectABC
propertyBorderColor: GColor;
Цвет границы
|
propertyBorderWidth: integer;
Ширина границы
|
propertyBordered: boolean;
Имеет ли объект границу (по умолчанию True)
|
propertyFilled: boolean;
Заполнена ли внутренность объекта (по умолчанию True)
|
Методы, унаследованные от класса BoundedObjectABC
procedureSetDrawSettings;
Защищенный метод. Устанавливает атрибуты пера и кисти перед рисованием
|
Свойства, унаследованные от класса ObjectABC
propertyLeft: integer;
Отступ графического объекта от левого края
|
propertyTop: integer;
Отступ графического объекта от верхнего края
|
propertyWidth: integer;
|
Читать дальше