Ver la Versión Completa : Como puedo Crear un QrLabel en una Banda del Quick Report?
AGAG4
23-11-2004, 22:01:11
Como puedo Crear un QrLabel en alguna Banda del Quick Report?
Esto lo quiero para ir creando dichos labels en tiempo de ejecucion y redefinir sus parámetros de Columna,Renglon,Ancho,etc.
Agradezco cualquier sugerencia.
eduarcol
23-11-2004, 22:17:58
Coloca este codigo en el evento que tu consideres adecuado:
with TQRLabel.Create(Application) do
begin
Parent := <<nombre de la banda>>;
//Configura el resto de las propiedades
end;
AGAG4
23-11-2004, 22:45:06
Gracias por su respuesta.
Pero No menciona en que Banda se tiene que crear cada Elemento.
Pongo el ejemplo siguiente en donde muestro como lo estoy haciendo, pero el problema es que no me esta visualizando los Elementos(zrLabel) de cada Banda en el Prever del Reporteador, y por ultimo pido Disculpas no era en un QuickReport es en el ZReport aunque es casi la misma(tiene casi las mismas bandas y la estructura).
procedure TfConfPrintTxt.zReportBeforePrint(Sender: TObject;
var DoPrint: Boolean);
var zlabel:TZRLabel;
begin
tPrintElemDoc.First;
//Configurar Elementos
while not tPrintElemDoc.Eof do begin
//Si esta en el Encabezado Entonces
if tPrintElemDocPOSPAGINA.Value=1 then
zLabel:=TZRLabel.Create(zrEncPag)
else //Se localiza en el Pie de Pagina
zLabel:=TZRLabel.Create(zrPiePag);
zlabel.Left:=tPrintElemDocCOL.AsInteger;
zlabel.Top:=tPrintElemDocREN.AsInteger;
zlabel.Width:=tPrintElemDocLON.AsInteger;
zlabel.Caption:=tPrintElemDocCVEPELEM.value;
tPrintElemDoc.Next;
end;
....
Agradezco cualquier sugerencia.
AGAG4
23-11-2004, 22:54:43
No me haga caso Eduardo Ya lo resolvi Gracias a usted solo que no sabia que significaba el Parent:=<> .
Y quedo asi para quien le sirva.
with TZRLabel.Create(Application) do begin
if tPrintElemDocPOSPAGINA.Value=1 then
Parent :=zrEncPag
else //Se localiza en el Pie de Pagina
Parent :=zrPiePag;
....
Que tenga buen día.
vBulletin v3.6.8, Derechos ©2000-2013, Jelsoft Enterprises Ltd.