Иллюстрированный самоучитель по Kylix


Листинг 13 22 Вырезание графики в буфер обмена



Листинг 13.22. Вырезание графики в буфер обмена

procedure TForm1.Cut1Click(Sender: TObject); var
ARect: TRect; begin
Copy1Click{Sender); { копирование картинки в буфер обмена }
with Image.Canvas do begin
CopyMode := cmWhiteness;{установить режим копирования в белый цвет} ARect := Rect(0, 0, Image.Width, Image.Height); {получение квадрата копирования}
CopyRect(ARect, Image.Canvas, AReCt); { наложение белого прямоугольника } CopyMode := cmSrcCopy; { восстановление нормального режимакопирования } end; end;

Вставка графики из буфера обмена

Если в буфере обмена содержится какая-либо графическая информация, вы можете вставить ее в любой графический компонент Kylix, включая канву формы.

Для вставки графики из буфера обмена нужно выполнить следующие шаги:

1. Вызвать метод Provides объекта Clipboard для того, чтобы убедиться, что буфер обмена содержит графическую информацию. Метод Provides представляет собой функцию, которая возвращает булевы значения. Если возвращаемое значение True, то буфер обмена содержит данные именно такого типа, которые указаны в параметре метода Provides.

2. Указать объект, в который будет произведено копирование с помощью метода Assign.

Нижеприведенный код (листинг 13.23) показывает, как можно копировать картинку из буфера обмена в компонент Image с помощью пункта меню Edit/Paste.



Начало Назад Вперед


Книжный магазин