TPicClip Component

Unit
PicClip

Description
Компонента TPicClip представляет собой аналог PICCLIP.VBX, поставляемого вместе с Visual Basic. TPicClip позволяет получить доступ к прямоугольному элементу изображения, предварительно разделенного на "ячейки", и затем использовать этот элемент при присвоении графическим свойствам других компонент или для рисования.
Разделение изображения на прямоугольные "ячейки" достигается за счет присвоения значений свойствам Cols и Rows. После этого любой элемент изображения доступен как объект класса TBitmap через индексированное свойство GraphicCell[Index: Integer].

Отрисовка ячейки изображения может быть осуществлена методом Draw. При этом, если свойство Masked = True (по умолчанию), то цвет, заданный свойством MaskColor будет заменяться на цвет фона ("прозрачная" отрисовка изображения).
Вы можете использовать метод Assign для занесения изображения в компоненту TPicClip, используя в качестве параметра Source объекты классов TPicture и TGraphic.

Также Вы можете использовать TPicClip в качестве параметра Source метода Assign компонент классов TPicture, TGraphic и (в 32-битной версии) TImageList.


Declaration
property Cols: Integer;

Description
Свойство задает число колонок в сетке, определяющей разбивку графического изображения на условные "ячейки", доступ к которым осуществляется с помощью индексированного свойства GraphicCell.


Declaration
property Rows: Integer;

Description
Свойство задает число строк в сетке, определяющей разбивку графического изображения на условные "ячейки", доступ к которым осуществляется с помощью индексированного свойства GraphicCell.


Declaration
property GraphicCell[Index: Integer]: TBitmap;

Description
Свойство "только-для-чтения", позволяет получить доступ к любой "ячейке" изображения по номеру этой ячейки. Нумерация ячеек непрерывная от 0 до (Cols * Rows) — 1, слева направо и сверху вниз.


Declaration
procedure Draw(Canvas: TCanvas; X, Y, Index: Integer);

Description
Метод служит для отрисовки ячейки изображения, соответствующей индексу Index, в устройстве Canvas. Координаты X, Y задают точку для верхнего левого угла изображения.

Если свойство Masked = True (по умолчанию), то изображение рисуется прозрачным, при этом в качестве "прозрачного" цвета используется цвет, заданный свойством MaskColor.


Declaration
property Masked: Boolean;

Description
Если свойство Masked = True (по умолчанию), то цвет, заданный свойством MaskColor будет заменяться на цвет фона ("прозрачная" отрисовка изображения) при рисовании ячейки изображения методом Draw.


Declaration
property MaskColor: TColor;

Description
Если свойство Masked = True (по умолчанию), то цвет, заданный свойством MaskColor будет заменяться на цвет фона ("прозрачная" отрисовка изображения) при рисовании ячейки изображения методом Draw.