1 respuesta en este tema

[TiammatMX]

Buen día, jóvenes...

Les comparto que tengo dentro de un reporte de QuickReport 3.0 (trabajando con Delphi 6.0) la creación de una etiqueta (TQRLabel) a través de éste código:

delphi

with TQRLabel.Create(Rprt.Bands.ColumnHeaderBand) do
 begin
   Parent := Rprt.Bands.ColumnHeaderBand;
   Left := iIzqrdActl;
   Top := 0;
   Height := 40;
   Width := 120;
   AutoSize := False;
   Caption := 'Texto:'+IntToStr(iApntdr);
end;

El detalle que necesito incluir en la creación de la etiqueta para cumplimentar un requerimiento que me pasaron hoy en la mañana, es que si el apuntador contiene números pares, cambiar el color o la presentación (lo cual no me plantea problema)

Dado éste código, ¿cómo puedo incluir un evento OnPrint exclusivo de la nueva etiqueta e incluirle el código que ya tengo en funcionamiento?

Ejemplo:

delphi

with TQRLabel.Create(Rprt.Bands.ColumnHeaderBand) do
   begin
     Parent := Rprt.Bands.ColumnHeaderBand;
     Left := iIzqrdActl;
     Top := 0;
     Height := 40;
     Width := 120;
     AutoSize := False;
     Caption := 'Texto:'+IntToStr(iApntdr);
  [b]OnPrint := qrlabel[i]x[/i]Print;[/b]
  end;

  Agradeciendo de antemano su colaboración...

[andres1569]

Hola Felipe, veo que lo más lógico y sencillo es que tengas ya definido, desde diseño, el método del evento OnPrint para la nueva (o nuevas) etiqueta/s, y que lo asignes a la/s nueva/s etiqueta/s cuando la/s crees al vuelo. Lo de asignar una cadena no te va a servir puesto que lo que en realidad asignas es un puntero a un método, no una cadena.

delphi

unit Unit1;
 
interface
 
uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
  StdCtrls, ExtCtrls, Forms, Quickrpt, QRCtrls;
 
type
  TQuickReport1 = class(TQuickRep)
    QRLabelAlVuelo: TQRLabel;
    procedure QRLabelAlVueloPrint(sender: TObject; var Value: String);
  private
    procedure CreaLabelAlVuelo;
  public
  end;
 
var
  QuickReport1: TQuickReport1;
 
implementation
 
{$R *.DFM}
 
procedure TQuickReport1.QRLabelAlVueloPrint(sender: TObject; var Value: String);
begin
  // Pintar de color gris o lo que sea
end;
 
procedure TQuickReport1.CreaLabelAlVuelo;
begin
  with TQRLabel.Create(Rprt.Bands.ColumnHeaderBand) do
  begin
    Parent := Rprt.Bands.ColumnHeaderBand;
    Left := iIzqrdActl;
    Top := 0;
    Height := 40;
    Width := 120;
    AutoSize := False;
    Caption := 'Texto:' + IntToStr(iApntdr);
    OnPrint := QRLabelAlVueloPrint;
  end;
end;
 
end.

Un saludo