- •Министерство образования респулики беларусь
- •Оглавление
- •Устройства ввода Краткие теоретические сведения
- •Пример приложения
- •Задания для самостоятельного выполнения
- •Контрольные вопросы
- •Устройства вывода. Работа с принтером Краткие теоретические сведения
- •Компонент tPrintDialog
- •Пример программы
- •Процедура печати текста из Memo
- •Процедура печати картинки из Image
- •Задания для самостоятельного выполнения
- •Контрольные вопросы
- •Работа с накопителями Рекомендации по выполнению работы
- •Пример программы
- •Обработчик нажатия кнопки
- •Задания для самостоятельного выполнения
- •Контрольные вопросы
- •Работа с параллельным портом Основные теоретические сведения
- •Задания для самостоятельного выполнения
- •Контрольные вопросы
- •Список использованных источников
Контрольные вопросы
На какие события мыши способны реагировать приложения, разработанные в Delphi?
На какие события клавиатуры способны реагировать приложения, разработанные в Delphi?
Каким образом в обработчиках событий мыши и клавиатуры отслеживается нажатие различных клавиш или кнопок?
Как узнать над каким компонентом был курсор мыши в момент возникновения события?
Для чего служат объекты pen и brush канвы (холста)?
Какими методами канвы осуществляется рисование прямоугольников, квадратов, окружностей, эллипсов?
Как рисуются закрашенные фигуры?
Как производится очистка канвы?
Что делает функция Rect()?
ЛАБОРАТОРНАЯ РАБОТА №2
Устройства вывода. Работа с принтером Краткие теоретические сведения
Delphi имеет стандартный объект для доступа к принтеру — TPRINTER, находящийся в модуле PRINTERS. В этом модуле имеется переменная Printer:Tpinter, что избавляет от необходимости описывать свою. Объект Printer позволяет выводить данные на печать и управлять процессом печати.
Далее приведены основные поля и методы объекта Printers:
Aborted:boolean — Показывает, что процесс печати прерван
Canvas:Tcanvas — Стандартный Canvas, как у любого графического объекта. Он позволяет рисовать на листе бумаге графику, выводить текст.
Fonts:Tstrings — Возвращает список шрифтов, поддерживаемых принтером
Handle:HDS — Указатель на принтер для использования функций API.
Orientation:TprinterOrientation — Ориентация листа при печати :(poPortrait, poLandscape)
PageHeight:integer — Высота листа в пикселях
PageNumber:integer — Номер страницы, увеличивается на 1 при каждом вызове NewPage
PageWidth:integer — Ширина листа в пикселях
PrinterIndex:integer — Номер используемого принтера по списку доступных принтеров Printers
Printers:Tstrings — Список доступных принтеров
Printing:boolean — Флаг, показывающий, что сейчас идет процесс печати
Title:string — Имя документа или приложения. Под этим именем задание на печать регистрируется в диспетчере печати
AssignPrn(f:TextFile) — Связать текстовый файл с принтером. Далее вывод информации в этот файл приводит к ее печати. Удобно в простейших случаях.
Abort — Сбросить печать
BeginDoc — Начать печать
NewPage — Начать новую страницу
EndDoc — Завершить печать.
После команды BeginDoc шрифт у Canvas принтера сбрасывается и его необходимо задавать заново. Все координаты даны в пикселях, а в большинстве случаев удобнее использовать миллиметры У TPrinter информация о принтере определяются один раз — в момент запуска программы (или смены принтера). Поэтому изменение настроек принтера в процессе работы программы может привести к некорректной работе, например, неправильной печати шрифтов True Type.
Компонент tPrintDialog
Компонент TPrintDialog создает стандартное диалоговое окно для выбора параметров печати. Вид окна приведен на рисунке 1.
Рисунок 1 — Вид диалогового окна настройки параметров печати
Основные свойства компонента:
property Collate: Boolean — Если имеет значение True, окно показывается с выбранным переключателем разобрать (collate). Если этот переключатель выбран, печать нескольких копии документа будет идти по копиям: сначала первая копия, затем вторая и т. д., в противном случае — по страницам: сначала все копии первой страницы, затем второй и т. д.
Copies: Integer — Определяет количество копии (0 — одна копия)
FromPage: Integer — Определяет начальную страницу печати
MaxPage: Integers — Определяет верхнюю границу диапазона страниц для свойств FromPage, ToPage
MinPage: Integer — Определяет нижнюю границу диапазона страниц для свойств FromPage, ToPage
TPrintDialogOption = (poPrintToFile, poPageNums, poSelection, poWarning, poHelp, poDisablePrintToFile) ;
TPrintDialogOptions = set of TPrintDialogOption;
Options: TPrintDialogOptions — Определяет настройку окна: poPrintToFile — печатать в файл; poPrintToFile — разрешает выбор диапазона страниц; poSelection — разрешает печать выбранного текста; poWarning — предупреждать пользователя о неустановленном принтере; poHelp вставить в окно кнопку Help; poDisablePrintToFile — запрещает печать в файл
TPrintRange = (prAllPages, prSelection, prPageNums) ;
PrintRange: TPrintRange — Определяет диапазон печатаемых страниц: prAllPages — все страницы; preelection — выделенный фрагмент текста; prPageNums — страницы по номерам
PrintToFile: Boolean — Содержит True, если пользователь выбрал печать в файл
ToPage: Integer — Определяет конечную страницу печати