Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.04;
Скачать: CL | DM;

Вниз

Печать картинок   Найти похожие ветки 

 
Miralex ©   (2003-08-20 13:57) [0]

У меня есть Image1 : TImage
Strech = true;
в него загружаеться картинка и автоматом выравниваеться по размеру (height = 153 width = 337)

Хочу потом распечатать ету картинку. Пишу:

logo:=Image1.Picture.Bitmap;
Printer.BeginDoc;
Printer.Canvas.Draw(100,100,logo);
Printer.EndDoc;

В результате я получаю на бумаге Ужасно маленькую картинку!

Как мне получить нормальную картинку при етом чтоб ее размер был фиксированым? (как в Image1 Strech = true)


 
Семен Сорокин ©   (2003-08-20 14:03) [1]

попробуй
Printer.Canvas.CopyRect


 
KSergey ©   (2003-08-20 15:39) [2]

Ну надо указать, какого она должна быть размера - вот и все ;)

См. http://doc.trecom.tomsk.su/Delphi/UnofficialDevelopersFAQ/pages/printe r.htm
Там есть готовая функция
Не забудь разобраться с системами координат - как устанавливать нужных попугаев (SetMapMode и т.п.)



Страницы: 1 вся ветка

Текущий архив: 2003.09.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
4-11029
Stany
2003-07-06 09:47
2003.09.04
Как получить атрибуты форматирования и шрифта текста в RichEdit д


7-11000
K-sergey
2003-06-19 15:14
2003.09.04
Поднятие трубки


1-10727
Vorobyev Sergey
2003-08-20 09:21
2003.09.04
Можно ли использовать .OBJ файл,созданный в D6(dcc32.exe) в CB5 ?


7-10995
цоб
2003-06-17 19:33
2003.09.04
<CTRL-ALT-DEL> под Win XP home ed.


1-10829
DDDeN
2003-08-21 14:33
2003.09.04
Загрузка и выгрузка из TImageList