Creación de componentes en ejecución.
Si no supieramos el numero de columnas a imprimir porque la stringgrid es de columnas variables por el usuario tendriamos que crear los TQRLabel en tiempo de ejecución:
Algo así:
este codigo seria en el create o antes del preview o del print del report.
for x:=0 to stringgrid.colcount-1 do begin
qlabeltemp:=tqrlabel.create(detalband);
qlabeltemp.tag:=x; //Asi identificamos a la columna que le corresponde
end;
luego en el oneeddata pondriamos algo asi.
for x:=0 to detailband.componentscount -1
with detailband.components[x] as tqrlabel do begin
caption:=stringgrid.cells[tag,linea];
end;
end;
Bueno espero que este codigo sirva de algo a alguien...
|