Pessoal, eu precisava manipular os botões do preview do FastReport, ocultando/exibindo alguns.
Não encontrei uma forma de fazer do jeito que o componente estava, então criei, na classe ACBrBoletoFCFR uma propriedade BotoesPreview, para poder setar isso na função
function TACBrBoletoFCFR.PrepareReport(const DmBoleto: TdmACBrBoletoFCFR): Boolean;
begin
Result := False;
if Trim(fFastReportFile) <> '' then
begin
if FileExists(fFastReportFile) then
DmBoleto.frxReport.LoadFromFile(fFastReportFile)
else
raise EACBrBoletoFCFR.CreateFmt('Caminho do arquivo de impressão do boleto "%s" inválido.', [fFastReportFile]);
end
else
raise EACBrBoletoFCFR.Create('Caminho do arquivo de impressão do boleto não assinalado.');
if PrepareBoletos(DmBoleto) then
begin
//****************************** acrescentei aqui ***************************************
if BotoesPreview <> [] then
DmBoleto.frxReport.PreviewOptions.Buttons := BotoesPreview;
//*********************************************************************************************
Result := DmBoleto.frxReport.PrepareReport;
end;
end;
se souberem de uma forma melhor de fazer isso, por favor, me avisem, senão, vejam se é interessante adicionarem, definitivamente, na classe.
Abraço
Társis Francke Ferreira