Форум: "Начинающим";
Текущий архив: 2010.01.31;
Скачать: [xml.tar.bz2];
Вниз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]Про процедура что-нить известно?
← →
oldman © (2009-12-08 09:08) [2]Картинка1.Печать;
Картинка2.Печать;
Имхо, напечатается на 2-х листах
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2010.01.31;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c