Privacidad: Recuerde que la información escrita en los foros de programación es 100% pública y que su ip será registrada asociada a su mensaje. Si encuentra un mensaje fuera de lugar, por favor, notifiquelo para su revisión y eliminación.
Imprimir QrDbImage sobre QReport
Enviado por franharo el día 11 de octubre de 2008
Hola a todos! necesito imprimir un listado de productos que saco de un DBGrid a los
TQRLabel del QReport, hasta aqui todo bien, ahora necesito imprimir ademas una imagen
que tengo en la tabla en paradox,que cargo al DBGrid, se que debo hacerlo con el QrDbImage, pero
como hago para sacarlo de la tabla? Alguna sugerencia? Lo estoy trabajando asi a los campos texto.
campo:array of TQRLabel;
begin
band:=false;
px:=115;
begin
SetLength(campo, fventa.DBGrid2.DataSource.DataSet.RecordCount);
fventa.DBGrid2.DataSource.DataSet.First;
For n := 0 to (fventa.DBGrid2.DataSource.DataSet.RecordCount) - 1 do
if band=false then
begin
Campo[n] := TQRLabel.Create(Quick);
Campo[n].Caption :=fventa.DBGrid2.DataSource.DataSet.FieldValues['cant'];
campo[n].Parent:=Quick;
Campo[n].Top := px;
Campo[n].Left := 65;
Campo[n].Visible := true;
Campo[n].Transparent := False;
//asi con cada campo. y deberia acompañar la foto del mismo
fventa.DBGrid2.DataSource.DataSet.Next;
px:=px+14;
end
else
begin
total.Left:=375;
total.Top:=635;
total.Caption:='Total $ '+fventa.Edit3.Text;
end;
Foros de debate
Delphi / Kylix / C++ Builder
