11. Вывод графических изображений

Графическое изображение формы можно вывести следующим образом:

begin

Printer.BeginDoc;

Printer.Draw(0, 0, Image);

Printer.EndDoc;

end;

Чтобы этот пример отработал необходимо на этапе проектирования свойству формы AutoRedraw присвоить значение true. Это будет означать, что графическое изображение формы будет преобразовано в растровое и через свойство Image будет напечатано.

Использование клавиши PrintScreen

Для того чтобы использовать клавишу PrintScreen сначала надо получить уведомление о том, что она нажата. Свойству формы KeyPreview на стадии проектирования необходимо присвоить значение true и в обработчике события, связанного с отпусканием клавиши OnKeyUp, записать следующее:

//распечатка клиентской области формы

Procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

Var

B : TBitmap;

begin

if key = vk_SnapShot then

begin

B := GetFormImage;

Printer.BeginDoc;

Printer.Canvas.Draw(0, 0, B);

Printer.EndDoc;

end;

end;

В этом примере функция GetFormImage возвращает графическое изображение только клиентской части формы. Если необходимо распечатать содержимое всей формы, то можно воспользоваться областью ClipBoard.

Пример.

//распечатка всей формы

Procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

Var

B : TBitmap;

begin

if key = vk_SnapShot then

begin

B := TBitmap.Create;

B.Assign(ClipBoard);

Printer.BeginDoc;

Printer.Canvas.Draw(0, 0, B);

Printer.EndDoc;

end;

end;

12. ДОПОЛНИТЕЛЬНЫЕ КОМПОНЕНТЫ

С РАЗВИТЫМИ ВОЗМОЖНОСТЯМИ

Компонент TTabControl

TTabControl

Компонент TTabControl (на странице Win32) представляет собой контейнер с закладками. Свойство Tabs определяет названия и количество закладок. Событие OnChange возникает при выборе новой закладки и позволяет управлять содержимым окна компонента.

Компонент TPageControl

TPageControl

Компонент TPageControl (на закладке Win32) представляет собой контейнер с закладками, на каждой из которых содержаться панели класса TTabSheet. На каждой панели класса TTabSheet может содержаться свой набор помещенных на нее компонент.

Для того чтобы добавить новую панель и закладку, нужно щелкнуть правой кнопкой по компоненте PageControl и из локального меню выбрать команду NewPage.

Свойства:

ActivePage: TTabSheet;

- содержит активную панель. С помощью этого свойства можно установить активной нужную панель.

События:

OnChange;

- возникает при переключении панелей.

Компонент tProgressBar

TProgressBar

Компонент TProgressBar предназначен для отображения хода длительного во времени процесса.

Свойства:

Min: Integer;

Max: Integer;

- минимальное и максимальное значения;

Position: Integer;

• текущее состояние

Step: Integer;

- шаг наращивания Position.