Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Печать растровых изображений [D5, Win95/98]


ГС ТОФ ©   (2003-01-21 13:34:00) 

При выводе на печать изображения в Image на бумаге оно получается в 10 раз меньше, чем размер Image
Использую код:
//Печать
procedure TForm1.Button5Click(Sender: TObject);
begin
Printer.BeginDoc;
Printer.Canvas.Draw(0,0,Image1.Picture.Bitmap);
Printer.EndDoc;
end;
А как можно Image из программы напечатать один к одному?


MBo   (2003-01-21 13:43:00) [1]

Естественно - разрешение- то разное.
Делай StretchDraw c учетом GetDeviceCaps


Наверх

Титульная страница Поиск, карта сайта Написать письмо