Ver Mensaje Individual
  #11  
Antiguo 18-03-2015
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.806
Reputación: 22
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Perdón por la confusión. Lo que te he comentado es de otra vesión de FastReport.
En la que tu comentas (creo que debe ser la 3 o 4) debes utilizar el evento OnBeforePrint.

Código Delphi [-]
procedure TdtmReportes.frxAvisosRTFBeforePrint(Sender: TfrxReportComponent);
begin
  // Si se trata de un Memo
  if (Sender is TfrxCustomMemoView) then
  begin
     with TfrxCustomMemoView(Sender) do
     begin
        OutputDebugString('FastReport ha pasado por ' + Name + ', el cual contiene las siguientes líneas: ' + Memo.Text);
        // ...
     end;
  end;

  // Si se trata de un RichEdit
  if (Sender is TfrxRichView) then
  begin
     with TfrxRichView(Sender) do
     begin
        OutputDebugString('FastReport ha pasado por ' + Name + ' (RichEdit), el cual contiene el tag: ' + TagStr + ' las siguientes líneas: ' + Memo.Text);
        // ...
     end;
  end;

  // Si se trata de una imagen
  if (Sender is TfrxPictureView) then
  begin
     with TfrxRichView(Sender) do
     begin
        OutputDebugString('FastReport ha pasado por ' + Name + ' (Imagen), el cual contiene el siguiente tag: ' + TagStr);
        // ...
     end;
  end;
end;

A OnGetValue entra cada vez que evalúa una variable. Yo la utilizo para pasarle información que sería difícil controlar desde FastReport.
Código Delphi [-]
procedure TdtmReportes.frxAvisosRTFGetValue(const VarName: string; var Value: variant)
begin
  if (UpperCase(VarName) = 'CalculoDificilEnFastReport') then
  begin
     //...
     Value := {Resultado del cálculo}
  end;
end;

Última edición por duilioisola fecha: 18-03-2015 a las 17:36:36.
Responder Con Cita