IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Печать рисунка
сообщение
Сообщение #1


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  20  +


Привет smile.gif
есть задание - Написать программу которая выводит на печать картинку, которая находится в компоненте Timage, программа должна высчитывать реальный размер картинки.
Как примерно надо - на скрине.
Как указать в PrintDialog'е имя файла (рисунка) с нужным размером (хотя наверно автоматически берется исходный размер?)


Эскизы прикрепленных изображений
Прикрепленное изображение
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Цитата
Как указать в PrintDialog'е имя файла (рисунка) с нужным размером
blink.gif А где ты видел там имя файла? Вот так отсылается на принтер картинка: DRKB -> WinAPI и Железо -> Принтер и печать -> Sending an image to the printer
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  20  +


вот иммено что не видел smile.gif
спасибо, там много материала, буду изучать smile.gif

Добавлено через 3 мин.
Цитата
Вы не можете изменять репутацию одного и того же пользователя чаще один раз за 1 дней!
где справедливость!!! tank.gif

Добавлено через 14 мин.
procedure TForm2.Button1Click(Sender: TObject);
var
ScaleX, ScaleY: Integer;
RR: TRect;
begin
with Printer do
begin
BeginDoc;
// The StartDoc function starts a print job.
try
ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
// Retrieves information about the Pixels per Inch of the Printer.
RR := Rect(0, 0, Image1.picture.Width * scaleX, Image1.Picture.Height * ScaleY);
Canvas.StretchDraw(RR, Image1.Picture.Graphic);
// Stretch to fit

finally
EndDoc;
end;
end;
end;
Печатает изображение с TImage в исходном размере. код немного странный, но работает smile.gif
спасибо!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 27.10.2020 17:18
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name