SAT não imprimi logo

[Felippi]

Ola bom dia, a impressao do logo no sat funcionava normalmente, mas não está funcionando algo, alguem poderia me ajudar se estou fazendo algo errado?
 

ACBrSAT1.Extrato := ACBrSATExtratoFortes1;

ACBrSATExtratoFortes1.PictureLogo.LoadFromFile('CaminhoArquivo.jpg');

ACBrSATExtratoFortes1.LogoVisible  := True;
ACBrSATExtratoFortes1.LogoAutoSize := True;
ACBrSATExtratoFortes1.LogoCenter   := True;
ACBrSATExtratoFortes1.LogoStretch  := True;

Não adianta o que eu fizer ele nao imprimi.

Obrigado!

[Felippi]

Alguem pode me ajudar por favor?

[Juliomar Marchetti]

Usou o demo ? ele também fica com problema?

dá alguma mensagem?

chegou a debugar?

[adilsonpazzini]

Boa tarde Juliomar .. fiz o teste aqui tambem . e acabei de pegar uma versao atualizada ... so que uso o Lazarus ... realmente nao esta imprimindo o logo ...fiz o teste pelo proprio DEMO .

Da impressao que o logo foi diminuido pra um pequena linha ai ..

Segue anexo tela do teste .

[adilsonpazzini]

Pelo que entendi o componente rlLogo ta com a propriedade Heigth = 1 . e quando e feito essa parte

 Assim deu certo Juliomar

  //Detalhes de Dimensionamento LogoTipo
    {$IfNDef NOGUI}
     rlLogo.Visible := LogoVisible and Assigned(ACBrSATExtrato.PictureLogo);
     if rlLogo.Visible then
     begin
       rlLogo.Height:=LogoHeigth+1;
       imgLogo.Picture.Assign( ACBrSATExtrato.PictureLogo );
       imgLogo.Center   := LogoCenter;
       imgLogo.Width    := LogoWidth;
       imgLogo.Height   := LogoHeigth;
       imgLogo.AutoSize := LogoAutoSize;
       imgLogo.Stretch  := LogoStretch;
     end;

     rlLogoCanc.Visible := LogoVisible and Assigned(ACBrSATExtrato.PictureLogo);
     if rlLogoCanc.Visible then
     begin
       rlLogoCanc.Height:=LogoHeigth+1;
       imgLogoCanc.Picture.Assign( ACBrSATExtrato.PictureLogo );
       imgLogoCanc.Center   := LogoCenter;
       imgLogoCanc.Width    := LogoWidth;
       imgLogoCanc.Height   := LogoHeigth;
       imgLogoCanc.AutoSize := LogoAutoSize;
       imgLogoCanc.Stretch  := LogoStretch;
     end;
    {$EndIf}    

 

Adilson Pazzini

ACBrSATExtratoFortesFr.pas

Editado 30 Agosto, 2017 por adilsonpazzini

[Gustavo G]

Boa tarde,  eu também tive o mesmo problema com o logo. Fiz o Ajuste que o  adilsonpazzini e deu certo.

3 horas atrás, adilsonpazzini disse:

Pelo que entendi o componente rlLogo ta com a propriedade Heigth = 1 . e quando e feito essa parte

 Assim deu certo Juliomar

  //Detalhes de Dimensionamento LogoTipo
    {$IfNDef NOGUI}
     rlLogo.Visible := LogoVisible and Assigned(ACBrSATExtrato.PictureLogo);
     if rlLogo.Visible then
     begin
       rlLogo.Height:=LogoHeigth+1;
       imgLogo.Picture.Assign( ACBrSATExtrato.PictureLogo );
       imgLogo.Center   := LogoCenter;
       imgLogo.Width    := LogoWidth;
       imgLogo.Height   := LogoHeigth;
       imgLogo.AutoSize := LogoAutoSize;
       imgLogo.Stretch  := LogoStretch;
     end;

     rlLogoCanc.Visible := LogoVisible and Assigned(ACBrSATExtrato.PictureLogo);
     if rlLogoCanc.Visible then
     begin
       rlLogoCanc.Height:=LogoHeigth+1;
       imgLogoCanc.Picture.Assign( ACBrSATExtrato.PictureLogo );
       imgLogoCanc.Center   := LogoCenter;
       imgLogoCanc.Width    := LogoWidth;
       imgLogoCanc.Height   := LogoHeigth;
       imgLogoCanc.AutoSize := LogoAutoSize;
       imgLogoCanc.Stretch  := LogoStretch;
     end;
    {$EndIf}    

 

Adilson Pazzini

ACBrSATExtratoFortesFr.pas

Verifiquei uma outra questão com o logo do Cfe cancelado e fiz um ajuste. Segue em anexo como estava e como ficou o logo.

FontesAcbrFortesSAT.rar

[Felippi]

Muito Obrigado galera !

Achei que realmente era so comigo o problema, usei os arquivos do Gustavo e do Adilson e funcionou belezinha inclusive eu passando o tamanho que eu quero o logo..

Obrigadao!

[José M. S. Junior]

Boa Tarde, foi realizado ajustes referente mesma situação dos casos sitados acima e já está no SVN. Baseado no tópico: