Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.02.2019, 21:24   #1
XerSon
Форумчанин
 
Аватар для XerSon
 
Регистрация: 21.01.2008
Сообщений: 211
Вопрос TPaintBox + TPrinters = Вывод на печать

Всем привет,

При таком раскладе на печать выводится изображение размером 1х1 см, хотя размер PainBox'a равен 230х230 пикс, в чем косяк?

Код:
var
  pRect: TRect;
  pBitMap: TBitmap;

begin
  pRect := Rect(0, 0, PaintBox.Width, PaintBox.Height);
  pBitMap := TBitmap.Create;
  try
    with pBitMap do
    begin
      Width := PaintBox.Width;
      Height := PaintBox.Height;
      Canvas.CopyRect(pRect, PaintBox.Canvas, pRect);
    end;
    with Printer do
    begin
      BeginDoc;
      Canvas.StretchDraw(pRect, pBitMap);
      EndDoc;
    end;
  finally
    pBitMap.Free;
  end;
XerSon вне форума Ответить с цитированием
Старый 23.02.2019, 01:10   #2
Black Fregat
Программист
Участник клуба
 
Аватар для Black Fregat
 
Регистрация: 23.06.2009
Сообщений: 1,772
По умолчанию

У принтера очень высокое разрешение, надо масштабировать
Берите разрегение принтера через GetDeviceCaps и вычисляйте коэффициенты
Black Fregat вне форума Ответить с цитированием
Старый 23.02.2019, 04:25   #3
XerSon
Форумчанин
 
Аватар для XerSon
 
Регистрация: 21.01.2008
Сообщений: 211
По умолчанию

Цитата:
Сообщение от Black Fregat Посмотреть сообщение
У принтера очень высокое разрешение, надо масштабировать
Берите разрегение принтера через GetDeviceCaps и вычисляйте коэффициенты
Спс, поиск привел в данный топик, попробуем.
XerSon вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вывод на печать cyx Общие вопросы Delphi 1 24.03.2015 17:24
Вывод на печать Dirt C# (си шарп) 0 19.06.2013 11:53
Вывод на печать. pusik Помощь студентам 0 13.05.2011 06:15
Вывод на печать((( oD1k Помощь студентам 3 02.12.2009 20:28
Вывод на печать sali_s Microsoft Office Excel 2 04.06.2008 12:05