...
type
TForm1 = class(TForm)
QuickRep1: TQuickRep;
QRSubDetail1: TQRSubDetail;
QRImage1: TQRImage;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
procedure TuDataSetAfterScroll(DataSet: TDataSet);
public
end;
var
Form1: TForm1;
implementation
uses jpeg, uTuDataMod;
procedure TForm1.FormCreate(Sender: TObject);
begin
with TuDataModule do begin
TuDataSet.Open;
QRSubDetail1.DataSet := TuDataSet;
TuDataModule.TuDataSet.AfterScroll := TuDataSetAfterScroll;
end;
end;
procedure TForm1.TuDataSetAfterScroll(DataSet: TDataSet);
begin
with TuDataModule.TuDataSet do
QrImage1.Picture.LoadFromFile(FieldByName('IMAGEN').AsString);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
QuickRep1.Prepare;
QuickRep1.Preview
end;
...