property Width: integer;
Ширина графического объекта
property Height: integer;
Высота графического объекта
property dx: integer;
x-координата вектора перемещения объекта при вызове метода Move. По умолчанию установлено в 0. Для неподвижных объектов может быть использовано для хранения любой дополнительной информации, связанной с объектом
property dy: integer;
y-координата вектора перемещения объекта при вызове метода Move. По умолчанию установлено в 0. Для неподвижных объектов может быть использовано для хранения любой дополнительной информации, связанной с объектом
property Center: Point;
Центр графического объекта
property Position: Point;
Левый верхний угол графического объекта
property Visible: boolean;
Видим ли графический объект
property Color: GColor;
Цвет графического объекта
property FontColor: GColor;
Цвет шрифта графического объекта
property Text: string;
Текст внутри графического объекта
property TextVisible: boolean;
Видимость текста внутри графического объекта
property TextScale: real;
Масштаб текста относительно размеров графического объекта, 0<=TextScale<=1. При TextScale=1 текст занимает всю ширину или высоту объекта. По умолчанию TextScale=0.8
property FontName: string;
Имя шрифта для вывода свойства Text
property FontStyle: FontStyleType;
Стиль шрифта для вывода свойства Text
property Number: integer;
Целое число, выводимое в центре графического объекта. Для вывода используется свойство Text
property RealNumber: real;
Вещественное число, выводимое в центре графического объекта. Для вывода используется свойство Text. Вещественное число выводится с одним знаком после десятичной точки
property Owner: ContainerABC;
Владелец графического объекта, ответственный также за перерисовку графического объекта внутри себя (по умолчанию nil)
|
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<f<1 - уменьшение) |
|
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; Уничтожает графический объект |
Класс MultiPictureABC
Класс MultiPictureABC является потомком класса PictureABC и представляет графический объект Набор рисунков, содержащий несколько изображений, одно из которых рисуется на экране.
|
constructor Create(x,y: integer; fname: string); Создает набор рисунков, состоящий из одного рисунка, загружая его из файла с именем fname. После создания рисунок отображается на экране в позиции (x,y). Остальные рисунки добавляются методом Add |
|
constructor Create(x,y: integer; p: Picture); Создает набор рисунков, состоящий из одного рисунка, хранящегося в переменной p. После создания рисунок отображается на экране в позиции (x,y). Остальные рисунки добавляются методом Add |
|
constructor Create(x,y,w: integer; p: Picture); Создает набор рисунков из объекта p типа Picture. Объект p должен хранить последовательность изображений одного размера, расположенных по горизонтали. Каждое изображение считается имеющим ширину w. Если ширина рисунка в объекте p не кратна w, то возникает исключение. После создания первый рисунок из набора отображается на экране в позиции (x,y) |
|
constructor Create(x,y,w: integer; fname: string); Создает набор рисунков, загружая его из файла fname. Файл должен хранить последовательность изображений одного размера, расположенных по горизонтали. Каждое изображение считается имеющим ширину w. Если ширина рисунка в файле fname не кратна w, то возникает исключение. После создания первый рисунок из набора отображается на экране в позиции (x,y) |
|
constructor Create(g: MultiPictureABC); Создает набор рисунков - копию набора рисунков g |
|
property CurrentPicture: integer; Номер текущего рисунка |
|
property Count: integer; Количество рисунков в наборе |
|
procedure Add(fname: string); Добавляет рисунок к набору, загружая его из файла fname. Рисунок должен иметь те же размеры, что и все рисунки из набора |
|
procedure ChangePicture(fname: string); Меняет набор рисунков на набор, состоящий из одного рисунка, загружая его из файла с именем fname |
|
procedure ChangePicture(w: integer; fname: string); |