Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

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

 
 
 

Советы по delphi \ Система \ Принтеры и Печать \ Печать в миллиметрах

Печать в миллиметрах

uses
  printers; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  printer.BeginDoc; 
  //Each logical unit is mapped to 0.1 millimeter. 
  //Positive x is to the right; positive y is up. 
  SetMapMode(printer.Canvas.Handle, MM_LOMETRIC); 
  with printer.Canvas do 
  begin 
    //font 5 mm height 
    Font.Height := 50; 
    Font.Name   := 'Verdana'; 
    TextOut(250, - 110, 'SwissDelphiCenter'); 
    TextOut(250, - 180, 'http://www.swissdelphicenter.ch'); 
    MoveTo(250, - 240); 
    //Draw a line of 7,5 cm 
    LineTo(1000, - 240); 
  end; 
  printer.EndDoc;
end;

Название: Печать в миллиметрах
Дата публикации: 2004-09-09 (2388 Прочтено)

 
 

 

Page generation 0.044 seconds