close

Вход

Забыли?

вход по аккаунту

?

Пояснительная записка

код для вставкиСкачать

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ
Федеральное агентство по образованию
Государственное образовательное учреждение высшего профессионального образования
Южный Федеральный университет
Технологический институт ЮФУ в г. Таганроге
Факультет автоматики и вычислительной техники
Кафедра вычислительной техники ОТЧЕТ
по лабораторной работе №2
"Использование API функций при работе с периферийными устройствами: принтер"
по курсу "Интерфейсы и периферийные устройства"
Выполнил:
студент группы З-156
Папченко В. В.
Проверил
Авдеев В. А.
Задание
Написать программу, которая будет демонстрировать пользователю работу с принтером.
Описание
При разработке использовалась среда программирование Borland Delphi 7. Интерфейс должен наглядно отображать пользователю нажатую клавишу. Проектируемый интерфейс показа ниже.
При разработке будет использоваться стандартный объект для доступа к принтеру - TPRINTER, находящийся в модуле PRINTERS. Он позволяет выводить данные на печать и управлять процессом печати. Свойства данного компонента ссылаются и используют функции СВОЙСТВА Aborted: boolean - Показывает, что процесс печати прерван Canvas: Tcanvas - Стандартный Canvas, как у любого графического объекта. Он позволяет рисовать на листе бумаге графику, выводить текст ... . Тут есть несколько особенностей, они описаны после описания объекта. Fonts: Tstrings - Возвращает список шрифтов, поддерживаемых принтером Handle: HDS - Получить Handle на принтер для использования функций 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 - Завершить печать.
Листинг
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Printers, StdCtrls, XPMan, winspool;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
XPManifest1: TXPManifest;
ListBox1: TListBox;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ColorDialog1: TColorDialog;
Button3: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Printer.BeginDoc; // Начало печати
Printer.Canvas.Font.Name:=ComboBox1.Text; // Название шрифта
Printer.Canvas.Font.Size:=StrToInt(ComboBox2.Text); // Размер шрифта
Printer.Canvas.Font.Color:=ColorDialog1.Color; // Цвет шрифта
Printer.Canvas.TextOut(100,100,Memo1.Text); // Печатаем текст
Printer.EndDoc; // Конец печати
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ListBox1.Items := Printer.Printers; // Получение доступных принтеров
ListBox1.Enabled := true;
end;
procedure TForm1.ListBox1Click(Sender: TObject);
begin
Printer.PrinterIndex := ListBox1.ItemIndex; // Установка активного принтера
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
ColorDialog1.Execute; // Выбор цвета по нажатию кнопки
end;
end.
Документ
Категория
Рефераты
Просмотров
24
Размер файла
56 Кб
Теги
пояснительная, записка
1/--страниц
Пожаловаться на содержимое документа