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; Уничтожает графический объект |
|
|
Класс PictureABC
Класс PictureABC является потомком класса ObjectABC и представляет графический объект Рисунок.
|
constructor Create(x,y: integer; fname: string); Создает рисунок с координатами левого верхнего угла (x,y), считывая его из файла fname |
|
constructor Create(x,y: integer; p: Picture); Создает рисунок с координатами левого верхнего угла (x,y), считывая его из объекта p |
|
constructor Create(g: PictureABC); Создает рисунок - копию рисунка g |
|
property Transparent: boolean; Прозрачен ли рисунок |
|
property TransparentColor: GColor; Цвет, считающийся прозрачным |
|
property ScaleX: real; Масштаб рисунка по оси X относительно исходного изображения. При отрицательных значениях происходит зеркальное отражение относительно вертикальной оси |
|
property ScaleY: real; Масштаб рисунка по оси Y относительно исходного изображения. При отрицательных значениях происходит зеркальное отражение относительно вертикальной оси |
|
procedure ChangePicture(fname: string); Меняет изображение рисунка, считывая его из файла fname |
|
procedure ChangePicture(p: Picture); Меняет изображение рисунка, считывая его из объекта p |
|
procedure FlipVertical; Зеркально отображает рисунок относительно вертикальной оси |
|
procedure FlipHorizontal; Зеркально отображает рисунок относительно горизонтальной оси |
|
procedure Save(fname: string); Сохраняет рисунок в файл fname |
|
function Clone: PictureABC; Возвращает клон рисунка |
|
property Left: integer; Отступ графического объекта от левого края |
|
property Top: integer; Отступ графического объекта от верхнего края |