Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 02.12.2011, 14:37
KarlMarks KarlMarks вне форума
Прохожий
 
Регистрация: 17.03.2010
Сообщения: 2
Репутация: 10
По умолчанию Как отправить содержимое Image1 на печать?

Есть график выведенный на Image, как его теперь отправит на принтер?
Ответить с цитированием
  #2  
Старый 02.12.2011, 14:42
freedomman freedomman вне форума
Новичок
 
Регистрация: 12.10.2011
Сообщения: 51
Репутация: 10
По умолчанию

Используйте приведенный код. И не забудьте включить Printers в список используемых модулей:

Строки, на которые вы должны обратить внимание, справа содержат комментарий // **. Данный код осуществляет корректное масштабирование изображения, в противном случае при печати вы можете получить небольшую иконку. Разрешение принтера больше, чем разрешение вашего дисплея.

Код:
procedure AngleTextOut(CV: TCanvas; const sText: string; x, y, angle: integer);

var

  LogFont: TLogFont;

  SaveFont: TFont;



  procedure TForm1.Button1Click(Sender: TObject);

  var

    ScaleX, ScaleY: Integer;

    R: TRect;

  begin

    Printer.BeginDoc; // **

    with Printer do

      try

        ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;

        ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;

        R := Rect(0, 0, Image1.Picture.Width * ScaleX,

          Image1.Picture.Height * ScaleY);

        Canvas.StretchDraw(R, Image1.Picture.Graphic); // **

      finally

        EndDoc; // **

      end;

  end;

http://libray.narod.ru/delphi/print_image.html
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 14:17.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025