procedure MoveTo(x,y: integer); Перемещает левый верхний угол графического объекта к точке (x, y) |
procedure MoveOn(a,b: integer); Перемещает графический объект на вектор (a, b) |
procedure Move; override; Перемещает графический объект на вектор, задаваемый свойствами dx, dy |
procedure Scale(f: real); override; Масштабирует графический объект в f раз (f>1 - увеличение, 0 |
procedure ToFront; Переносит графический объект на передний план |
procedure ToBack; Переносит графический объект на задний план |
function Bounds: System.Drawing.Rectangle; Возвращает прямоугольник, определяющий границы графического объекта |
function PtInside(x,y: integer): boolean; override; Возвращает True, если точка (x, y) находится внутри графического объекта, и False в противном случае |
function Intersect(g: ObjectABC): boolean; Возвращает True, если изображение данного графического объекта пересекается с изображением графического объекта g, и False в противном случае. Белый цвет считается прозрачным и не принадлежащим объекту |
function IntersectRect(r: System.Drawing.Rectangle): boolean; Возвращает True, если прямоугольник графического объекта пересекается прямоугольником r, и False в противном случае |
function Clone0: ObjectABC; override; Возвращает клон графического объекта |
procedure Draw(x,y: integer; g: Graphics); override; Защищенная. Не вызывается явно. Переопределяется для каждого графического класса. Рисует объект на объекте g: Graphics |
destructor Destroy; Уничтожает графический объект |
|
Класс StarABC
Класс StarABC является потомком класса RegularPolygonABC и представляет графический объект Правильная звезда.
constructor Create(x,y,r,r1,nn: integer; cl: GColor); Создает звезду с nn вершинами, радиусом r, внутренним радиусом r1, цветом cl и координатами центра (x,y) |
constructor Create(g: StarABC); Создает звезду - копию звезды g |
property InternalRadius: integer; Внутренний радиус |
function Clone: StarABC; Возвращает клон звезды |
property BorderColor: GColor; Цвет границы |
property BorderWidth: integer; Ширина границы |
property Bordered: boolean; Имеет ли объект границу (по умолчанию True) |
property Filled: boolean; Заполнена ли внутренность объекта (по умолчанию True) |
procedure SetDrawSettings; Защищенный метод. Устанавливает атрибуты пера и кисти перед рисованием |