Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ Печать рисунка

Автор: Client 22.03.2010 20:16

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

Эскизы прикрепленных изображений

Автор: volvo 22.03.2010 20:48

Цитата

Как указать в PrintDialog'е имя файла (рисунка) с нужным размером

А где ты видел там имя файла? Вот так отсылается на принтер картинка: DRKB -> WinAPI и Железо -> Принтер и печать -> Sending an image to the printer

Автор: Client 22.03.2010 20:57

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

Добавлено через 3 мин.

Цитата

Вы не можете изменять репутацию одного и того же пользователя чаще один раз за 1 дней!

где справедливость!!!

Добавлено через 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 в исходном размере. код немного странный, но работает

спасибо!