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
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;
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;
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 :=
end;
end;