Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 31.05.2013, 10:19   #1
WantToKnow
Новичок
Джуниор
 
Регистрация: 31.05.2013
Сообщений: 1
По умолчанию Печать нескольких компонентов

Как текстовый файл распечатать - видела, просто картинку - тоже.
А что нужно написать в обработчике кнопки Принт, если мне нужно напечатать все, что находится на компоненте Панель (а там у меня Image and Edit)?
WantToKnow вне форума Ответить с цитированием
Старый 31.05.2013, 10:22   #2
kangreon
Форумчанин
 
Аватар для kangreon
 
Регистрация: 03.04.2009
Сообщений: 305
По умолчанию

Вроде у визуальных компонентов есть метод Print. Проверьте. Только перед печатью нужно не забыть выполнить соответствующие настройки принтера.
А нет. Он есть только у формы.

Попытка 2.
Можно получить изображение выбранной панели и уже печатать именно его.

UPD Получение изображения компонента
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  Bitmap: TBitmap;
  Panel: TWinControl;
begin
  Panel := Panel1; // Компонент, изображение которого нужно получить
  Bitmap := TBitmap.Create;
  try
    Bitmap.SetSize(Panel.Width, Panel.Height);
    BitBlt(Bitmap.Canvas.Handle, 0, 0, Panel.Width, Panel.Height,
      Self.Canvas.Handle, Panel.Left, Panel.Top, SRCCOPY);
    Image1.Picture.Assign(Bitmap);
  finally
    Bitmap.Free;
  end;

Последний раз редактировалось kangreon; 31.05.2013 в 10:30.
kangreon вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Создание нескольких компонентов сразу в цикле artemavd Общие вопросы Delphi 40 08.06.2012 20:59
Вычислить произведение компонентов файла и вывести на печать Nuars Помощь студентам 3 13.04.2012 22:47
Программа Анкета с ипсользованием компонентов нескольких видов Obender13 Помощь студентам 4 03.05.2009 19:01
печать нескольких листов checkbox Microsoft Office Excel 2 16.01.2008 00:50
Печать компонентов формы monushka Помощь студентам 6 07.11.2007 19:30