Ver Mensaje Individual
  #2  
Antiguo 20-05-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola armando.

Agregá una banda TQRSubDetail y dentro de ella el TQRImage y proba este ejemplo:
Código Delphi [-]
...
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 // (El DataModule debe estar creado en este punto)
  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;
...

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita