Помощь - Поиск - Пользователи - Календарь
Полная версия: Печать рисунка
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Делфи
Client
Привет smile.gif
есть задание - Написать программу которая выводит на печать картинку, которая находится в компоненте Timage, программа должна высчитывать реальный размер картинки.
Как примерно надо - на скрине.
Как указать в PrintDialog'е имя файла (рисунка) с нужным размером (хотя наверно автоматически берется исходный размер?)
volvo
Цитата
Как указать в PrintDialog'е имя файла (рисунка) с нужным размером
blink.gif А где ты видел там имя файла? Вот так отсылается на принтер картинка: DRKB -> WinAPI и Железо -> Принтер и печать -> Sending an image to the printer
Client
вот иммено что не видел 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
спасибо!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.