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

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

 
 
 

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

Получить размер бумаги в миллиметрах

uses
  printers; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
  papermmx, papermmy: Extended; 
begin 
  Printer.BeginDoc; 

  { 
  PHYSICALWIDTH = Dots horizontal of the paper 
  LOGPIXELSX    = DPI (Dots per Inch) 
  25.4          = To calculte Inch to Millimeter 
  } 
  papermmx := GetDeviceCaps(Printer.Canvas.Handle, PHYSICALWIDTH) / 
    GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSX) * 25.4; 
  papermmy := GetDeviceCaps(Printer.Canvas.Handle, PHYSICALHEIGHT) / 
    GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSY) * 25.4; 

  with Printer.Canvas do 
  begin 
    TextOut(200, 100, floattostr(papermmx) + ' mm x ' +
      floattostr(papermmy) + ' mm'); 
  end; 
  Printer.EndDoc; 
end;

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

 
 

 

Page generation 0.034 seconds