TQRImage в run-time

← →
opolo2000 © (2009-12-07 21:04) [0]

Есть 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;
Как вставить "разрыв страницы" между двумя рисунками? Может есть более простой способ?

← →
KilkennyCat © (2009-12-07 22:43) [1]

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

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

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

TQRImage в run-time Найти похожие ветки