Отправляет email-рассылки с помощью сервиса Sendsay

Бесплатный курс уроков по Delphi

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Интернет для Delphi-программиста" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Январь 2006   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
Александр

Статистика

2.879 подписчиков
-4 за неделю
←   Все выпуски   →

Бесплатный курс уроков по Delphi


Информационный Канал Subscribe.Ru

Бесплатный курс уроков по Delphi

www.znay-na-5.by.ru - Электронные учебники и программы по языкам программирования, СУБД, базы данных, дипломные, курсовые

www.di-givoder-ul.narod.ru - Игры и карты, программы, сочинения, доклады, создание сайтов...

Здравствуйте! В этом выпуске, я решил рассказать подробнее об уроке № 6, тоесть о:

1) Технология вывода информации на принтер.

Вывод произвольной информации на печать реализован в системе Delphi 5 очень просто.
В системе имеется объект Printer класса TPrinter (модуль Printers), который содержит свойство Canvas типа TCanvas (холст).
При отрисовке на нем произвольной информации она будет выводиться не на экран, а на принтер. Свойство Canvas объекта Printer доступно,
только когда принтер подготовлен для печати данных. Для подготовки свойств Canvas используются методы

Procedure BeginDoc;
Procedure EndDoc;

Первый из них определяет начало печати и создает экземпляр класса TCanvas, а второй указывает на завершение печати,
после чего свойство Canvas снова будет недоступно. Например, чтобы вывести на лист бумаги строку "Проверка принтера",
можно воспользоваться следующим программным текстом.

Printer.BeginDoc;
Printer.Canvas.TextOut (50,50,'Проверка принтера');
Printer.EndDoc;

2) Печать текста.

Для вывода только текстовой информации можно использовать другой подход.
Стандартная процедура AssignPrn (по аналогии с процедурой AssignFile) связывает
файловую переменную типа TextFile с текущим принтером. При этом процедуры Write и WriteLn
будут выводить строку текста сразу на принтер, соответственно, начиная печать с текущей позиции строки или с новой строки.

Procedure TForm1.Buton1Click (Sender: TObject);
Var MyFile: TextFile;
Begin
AssignPrn (MyFile);
Rewrite (MyFile);
Writeln (MyFile, 'Проверка принтера');
System.CloseFile (MyFile);
End;

3) Свойства и методы класса TPrinter

Свойство:

  1. Aborted

  2. Canvas

  3. Capabilities

  4. Copies

  5. Fonts

  6. Orientation

  7. PageHeight

  8. PageNumber

  9. PageWidth

  10. PrinterIndex

  11. Printers

  12. Printing

  13. Title

Назначение:

  • Имеет значение true, если пользователь прервал процесс печати

  •  Область вывода графической инфы для принтера

  • Настройки режима печати (ориентация, число копий и так далее)

  • Число печатаемых копий

  •  Список шрифтов, поддерживаемых текущим прнтером

  • Ориентация бумаги: книжная или альбомная

  • Высота печатаемой страницы в пикселах

  • Номер текущей печатаемой страницы

  • Ширина печатаемой страницы в пикселах

  •  Номер принтера из свойств Printers

  •  Список названий всех принтеров, доступных в системе

  • Имеет значение true, когда выполняется печать

  • Стандартный заголовок страницы

Метод:

  1. procedure Abort;

  2. procedure GetPrinter (ADevice, ADriver, APort: PChar;
    var ADeviceMode: THandle);

  3. procedure NewPage;

  4. procedure Refresh;

  5. procedure SetPrinter (ADevice, ADriver,
    APort: PChar; ADeviceMode: THandle);

 Назначение:

  1. Прерывание печати

  2. Получение инфы о текущем принтере

  3. Начало печати новой страницы

  4. Обновление списка шрифтов и
    принтеров, установленных в системе

  5. Указанный принтер становится
    текущим.

Архив моей рассылки находиться по адресу:
http://subscribe.ru/archive/comp.soft.prog.urokidelphi

Там вы сможете посмотреть все выпуски рассылки. Надо только кликнуть на дату выхода выпуска!
---
Завтра выйдет 12-й  урок. Удачи!

Автор - Александр Емельянов. Личный сайт - www.sashin-obzor.nm.ru  Страница рассылки - www.znay-na-5.by.ru
Использование текста рассылки в коммерческих целях - только с разрешения автора!

Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора		 Подписан адрес:
Код этой рассылки: comp.soft.prog.urokidelphi
Архив рассылки		 Отписаться Вебом Почтой
Вспомнить пароль
В избранное