Ir para conteúdo
  • Cadastre-se

dev botao

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


EdmarFrazao
Ver Solução Respondido por Victor H. Gonzales - Panda,
  • Este tópico foi criado há 876 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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

Link para o comentário
Compartilhar em outros sites

  • Fundadores

@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 ?

 

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • Moderadores
10 minutos atrás, 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 ?

 

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

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

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 por EdmarFrazao
Link para o comentário
Compartilhar em outros sites

  • Fundadores

@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;

image.png

  • Curtir 1
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • Moderadores
57 minutos atrás, Daniel Simoes disse:

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

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

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores
36 minutos atrás, 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;

image.png

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

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • Fundadores

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 ?

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • Moderadores
40 minutos atrás, Daniel Simoes disse:

mas tem como fazer algum IFDEF para o FAST ?

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

  • Curtir 1
Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

  • Fundadores
3 horas atrás, EdmarFrazao disse:

if frxreport.Version >= '6.0.0'

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

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

18 horas atrás, 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

fiz o Teste no Fast 2021.3 e funcionou

Link para o comentário
Compartilhar em outros sites

23 horas atrás, 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

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

ACBrCTeDACTEFR.pas

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • 3 semanas depois ...
  • Administradores

Boa tarde,

Adicionado, TK-2017.

Att.

  • Curtir 1
Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

  • 3 semanas depois ...
  • Consultores
  • Solution

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

  • Curtir 1
Consultor SAC ACBr

Victor H Gonzales - Pandaaa
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

"Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci

"Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo"

Link para o comentário
Compartilhar em outros sites

12 horas atrás, 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

 

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.

 

Link para o comentário
Compartilhar em outros sites

  • Consultores
1 hora atrás, 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.

 

Além das citadas, ACBrBoletoFCFR e ACBrSATExtratoFR

  • Curtir 1
  • Obrigado 1
Consultor SAC ACBr

Victor H Gonzales - Pandaaa
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

"Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci

"Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo"

Link para o comentário
Compartilhar em outros sites

  • Consultores

Obrigado por reportar.

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

Consultor SAC ACBr

Victor H Gonzales - Pandaaa
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

"Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci

"Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo"

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 876 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.