Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  3 791

•  TDictionary Custom Sort  5 903

•  Fast Watermark Sources  5 704

•  3D Designer  8 478

•  Sik Screen Capture  6 038

•  Patch Maker  6 483

•  Айболит (remote control)  6 474

•  ListBox Drag & Drop  5 340

•  Доска для игры Реверси  94 954

•  Графические эффекты  6 678

•  Рисование по маске  5 803

•  Перетаскивание изображений  4 863

•  Canvas Drawing  5 237

•  Рисование Луны  4 959

•  Поворот изображения  4 505

•  Рисование стержней  3 188

•  Paint on Shape  2 434

•  Генератор кроссвордов  3 309

•  Головоломка Paletto  2 619

•  Теорема Монжа об окружностях  3 403

•  Пазл Numbrix  2 249

•  Заборы и коммивояжеры  2 910

•  Игра HIP  1 879

•  Игра Go (Го)  1 796

•  Симулятор лифта  2 132

•  Программа укладки плитки  1 860

•  Генератор лабиринта  2 296

•  Проверка числового ввода  1 985

•  HEX View  2 294

•  Физический маятник  1 958

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Класс TPrinter



Разговаривают два друга о компах, и разговор зашел про Билла Гейтса и его компе:
- Интересно, какая у Билла Гейтса видюха?
- Какая-нибудь Джи-Форс, последней модели...
- Хм, а какой у него камень? Пент 5-й?
- Такого еще не продают...
- А у него уже есть...
- Хе, и стоят у него Линуха!

Delphi имеет стандартный объект для доступа к принтеру - TPRINTER, находящийся в модуле PRINTERS. В этом модуле имеется переменная Printer:Tpinter, что избавляет от необходимости описывать свою. Он позволяет выводить данные на печать и управлять процессом печати. Правда, в некоторых версиях Delphi1 он имеет "глюк" - не работают функции Draw и StrethDraw. Но эта проблема поправима - можно использовать функции API. Далее приведены основные поля и методы объекта Printers :

PROPERTY

  • 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 - Имя документа или приложения. Под этим именем задание на печать регистрируется в диспетчере печати

METODS

  • AssignPrn(f:TextFile) - Связать текстовый файл с принтером. Далее вывод информации в этот файл приводит к ее печати. Удобно в простейших случаях.
  • Abort - Сбросить печать
  • BeginDoc - Начать печать
  • NewPage - Начать новую страницу
  • EndDoc - Завершить печать.

Пример :


Procedure TForm1.Button1Click(Sender: TObject);
Begin
 With Printer do Begin
  // Начало печати
  BeginDoc; 
  // Задали шрифт
  Canvas.Font:=label1.font; 
  // Печатаем текст
  Canvas.TextOut(100,100,'Delphi World - лучше всех !!! :) ');
  // Конец печати
  EndDoc; 
 end;
end;








Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте