Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Como puedo Crear un QrLabel en una Banda del Quick Report? (https://www.clubdelphi.com/foros/showthread.php?t=16319)

AGAG4 23-11-2004 22:01:11

Como puedo Crear un QrLabel en una Banda del Quick Report?
 
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:

Código Delphi [-]
   with TQRLabel.Create(Application) do
   begin
      Parent := <>;
      //Configura el resto de las propiedades
   end;

AGAG4 23-11-2004 22:45:06

Pero...
 
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).

Código Delphi [-]
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
 
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.
Código Delphi [-]
 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.


La franja horaria es GMT +2. Ahora son las 07:10:59.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi