| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TQRImage в run-time [D6, XP]

opolo2000 ©   (2009-12-07 21:04:00) 

Есть 2 небольших рисунка (размер примерно 100*100): C:\1.bmp, C:\2.bmp.
Нужно в run-time вывести на печать на первой странице первый рисунок, на второй – второй. Пробую так:
procedure TForm1.Button1Click(Sender: TObject);
const f1Name = 'C:\1.bmp';
     f2Name = 'C:\2.bmp';
var qrb1, qrb2: TQRBand;
   QRImage1, QRImage2: TQRImage;
begin
    with myQuickRepForm.myQuickRep do begin
      qrb1:=TQRBand.Create(self);
      qrb2:=TQRBand.Create(self);
      qrb1.Parent:=myQuickRepForm.myQuickRep;
      qrb2.Parent:=myQuickRepForm.myQuickRep;
      QRImage1:=TQRImage.Create(self);
      QRImage2:=TQRImage.Create(self);
      QRImage1.Parent:=qrb1;
      QRImage2.Parent:=qrb2;
      try QRImage1.Picture.LoadFromFile(f1Name);
          QRImage2.Picture.LoadFromFile(f2Name);
      finally
      end;
      with QRImage1 do begin
        Top:=10;
        Left:=10;
      end;
      with QRImage2 do begin
        Top:=10;
        Left:=10;
      end;
      Prepare;
      PreView;
      QRImage1.Free;
      QRImage2.Free;
      qrb1.Free;
      qrb2.Free;
    end;
end;
Как вставить "разрыв страницы" между двумя рисунками? Может есть более простой способ?

---

oldman   (2009-12-08 09:08:00) [1]

Картинка1.Печать;
Картинка2.Печать;

Имхо, напечатается на 2-х листах

---

KilkennyCat   (2009-12-07 22:43:00) [2]

Про процедура что-нить известно?

---

Наверх