FastReport exportação PDF ficando Grande, propriedade mudou de false para true

[EdmarFrazao]

O componente FastReport passou a propriedade

frxPDFExport.Transparency   para padrão true

Fazendo assim todos os pdf com Logos ficarem muito maiores

quando gera o pdf do xml e este tem logo o PDF passou a ficar grande

precisamos mudar a propriedade do componente e ou publicar um nova

 

unit:ACBrNFeDANFEFRDM

linha : frxPDFExport.Transparency  := FALSE;

 

Talvez tenha que ser mudado em todos os fontes da Acbr que use o Fast para gerar PDF.

ACBrNFeDANFEFRDM.pasFetching info...

[BigWings]

É compatível com os Fast mais antigos por ex o FastReport 4?

[EdmarFrazao]

não sei dizer esta propriedade ja tinha no Fast 6 e mudou o padrão para o fast 2021

[Daniel Simoes]

@BigWings, para ficar compatível com as versões antigas..

Será que poderíamos usar a RTTI, para verificar se a propriedade existe, e ligar ela por RTTI ?

 

[Juliomar Marchetti]

  Em 21/09/2021 at 20:11, Daniel Simoes disse:

@BigWings, para ficar compatível com as versões antigas..

Será que poderíamos usar a RTTI, para verificar se a propriedade existe, e ligar ela por RTTI ?

 

Expandir  

No caso a RTTI só funciona nas versões mais recentes . delphi 7 não vai.

[EdmarFrazao]

Não seria melhor pela versão do delphi, Quais versões de Delphi ainda estariam usando Fast 4?

Se houver varios com Fast teria que ter uma diretiva de compilação no instalador(mais trabalhoso )

 

O pdf fica de 4x ou mais maior e deve esta afetando todos os componentes acbr que geram pdf com fast.

   Um exemplo pdf deu 500k versos 1500k so mudando a propriedade

 

A propriedade esta no Lazarus também talvez afete ( não uso)

https://www.fast-report.com/en/blog/show/make-PDF-from-Delphi-Lazarus-CBuilder/

{Set whether to export images with transparency}
frxPDFExport1.Transparency := True;

Editado 21 Setembro, 2021 por EdmarFrazao

[Daniel Simoes]

@Juliomar Marchetti, a RTTI sempre existiu no D7...   É através dela que a IDE, manipula os formulários, com o Object Inspector...

Atualmente existem classes mais simples, e de alto nível... mas veja o exemplo abaixo, que é 100% funcional no D7

Uses TypInfo
  
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  c: TComponent;
  propInfo: PPropInfo;
begin
  for i:=0 to Self.ComponentCount-1 do
  begin
    c := Self.components[i];          // Look for the property
    propInfo := getPropInfo(c,'caption');
    if assigned(propinfo) then         //If found
      SetPropValue(c, 'caption', 'TESTE');
  end;
end;

[BigWings]

  Em 21/09/2021 at 20:11, Daniel Simoes disse:

Será que poderíamos usar a RTTI, para verificar se a propriedade existe, e ligar ela por RTTI ?

Expandir  

Eu não entendo quase nada de RTTI, mas fiz alguns testes aqui e me pareceu possível sim.

[Juliomar Marchetti]

  Em 21/09/2021 at 20:56, Daniel Simoes disse:

@Juliomar Marchetti, a RTTI sempre existiu no D7...   É através dela que a IDE, manipula os formulários, com o Object Inspector...

Atualmente existem classes mais simples, e de alto nível... mas veja o exemplo abaixo, que é 100% funcional no D7

Uses TypInfo
  
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  c: TComponent;
  propInfo: PPropInfo;
begin
  for i:=0 to Self.ComponentCount-1 do
  begin
    c := Self.components[i];          // Look for the property
    propInfo := getPropInfo(c,'caption');
    if assigned(propinfo) then         //If found
      SetPropValue(c, 'caption', 'TESTE');
  end;
end;

Expandir  

Isso que estava falando cuidar isso.

mas creio que com IFDEF já resolve a situação acima. creio que foi isso que o bigwings fez

[Daniel Simoes]

mas tem como fazer algum IFDEF para o FAST ?

Pois creio que o Dev poderia (em teoria) ter um Fast antigo, em Delphi's recentes, correto ?

[BigWings]

  Em 21/09/2021 at 21:43, Daniel Simoes disse:

mas tem como fazer algum IFDEF para o FAST ?

Expandir  

A não ser que eles tenham diretiva pra indicar versão (eu não tenho os fontes), creio não ser possível...

O jeito seria via Rtti mesmo.

@EdmarFrazao queira por favor testar com a unit anexo:

 

ACBrNFeDANFEFRDM.pasFetching info...

[Juliomar Marchetti]

Então existe o frx.inc e nele trata as diretivas

[EdmarFrazao]

Poderia usar a propriedade 

if frxreport.Version >= '6.0.0'

mas não sei se tem no fast 4

[Daniel Simoes]

  Em 21/09/2021 at 23:06, EdmarFrazao disse:

if frxreport.Version >= '6.0.0'

Expandir  

Isso só funcionaria em tempo de execução... ou seja, mesmo com o IF, o código não seria compilado em uma versão do Fast onde a propriedade não existe...

Acho que a solução usando a RTTI, proposta pelo BigWings, ficou bem bacana

[EdmarFrazao]

  Em 21/09/2021 at 22:25, BigWings disse:

A não ser que eles tenham diretiva pra indicar versão (eu não tenho os fontes), creio não ser possível...

O jeito seria via Rtti mesmo.

@EdmarFrazao queira por favor testar com a unit anexo:

 

ACBrNFeDANFEFRDM.pas 95 kB · 1 download

Expandir  

fiz o Teste no Fast 2021.3 e funcionou

[EdmarFrazao]

  Em 21/09/2021 at 17:53, EdmarFrazao disse:

O componente FastReport passou a propriedade

frxPDFExport.Transparency   para padrão true

Fazendo assim todos os pdf com Logos ficarem muito maiores

quando gera o pdf do xml e este tem logo o PDF passou a ficar grande

precisamos mudar a propriedade do componente e ou publicar um nova

 

unit:ACBrNFeDANFEFRDM

linha : frxPDFExport.Transparency  := FALSE;

 

Talvez tenha que ser mudado em todos os fontes da Acbr que use o Fast para gerar PDF.

ACBrNFeDANFEFRDM.pas 94 kB · 2 downloads

Expandir  

Usei a mesma rotina para Cte e funcionou também segue

ACBrCTeDACTEFR.pasFetching info...

[EdmarFrazao]

seria interessante declarar a função RttiSetProp  em uma unit para ser compartilhada com todos os projetos que usaram  a mesma

 

[EdmarFrazao]

alguma posição da alteração?

A alteração precisa ser feita em todos os projetos que usam Fastreport

[Daniel Simoes]

@Juliana Tamizou, essa tarefa está no nosso backlog ?

[Juliana Tamizou]

Boa tarde,

Adicionado, TK-2017.

Att.

[Victor H. Gonzales - Panda]

Por favor atualize seus fontes, pelo SVN do ACBr... 

Já subimos para o nosso repositório de fontes, modificações que podem corrigir algum dos itens referentes a esse tópico...

Por favor atualize seus fontes, faça testes, e se possível comente em uma nova resposta, se o problema foi resolvido...

Dúvidas, sobre o uso do SVN ?  Clique aqui e veja um vídeo

[EdmarFrazao]

  Em 03/11/2021 at 22:06, Victor H. Gonzales - Panda disse:

Por favor atualize seus fontes, pelo SVN do ACBr... 

Já subimos para o nosso repositório de fontes, modificações que podem corrigir algum dos itens referentes a esse tópico...

Por favor atualize seus fontes, faça testes, e se possível comente em uma nova resposta, se o problema foi resolvido...

Dúvidas, sobre o uso do SVN ?  Clique aqui e veja um vídeo

Expandir  

 

Funcionou.

Creio que foi adicionado em todos os projetos o comando

RttiSetProp(frxPDFExport, 'Transparency', 'False');

 

units alteradas:

  ACBrBPeDABPEFR, ACBrCTeDACTEFR, ACBrGNREGuiaFRDM, ACBrMDFeDAMDFEFR, ACBrNFeDANFEFRDM, ACBrNFeDANFEFRDM, ACBrNFSeDANFSeFR

 

obrigado pela atualização.

 

[Victor H. Gonzales - Panda]

  Em 04/11/2021 at 11:06, EdmarFrazao disse:

 

Funcionou.

Creio que foi adicionado em todos os projetos o comando

RttiSetProp(frxPDFExport, 'Transparency', 'False');

 

units alteradas:

  ACBrBPeDABPEFR, ACBrCTeDACTEFR, ACBrGNREGuiaFRDM, ACBrMDFeDAMDFEFR, ACBrNFeDANFEFRDM, ACBrNFeDANFEFRDM, ACBrNFSeDANFSeFR

 

obrigado pela atualização.

 

Expandir  

Além das citadas, ACBrBoletoFCFR e ACBrSATExtratoFR

[Victor H. Gonzales - Panda]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.