Ir para conteúdo
sandrofv

QuickRep1+QRPGrid1 - Margens extrapolando

Recommended Posts

 

Estou usando um componente, chamado QRPGrid1, onde eu o redimenciono  de acordo com o qrlabel de maior preenchimento pra criar essa aparencia de Grid,

As fontes em vermelho, significa que a rotina esta identificando qual o maior texto, pra poder redimencionar o grid de acordo com a altura  deste texto

 O código que uso pra redimencionar e este :
 

Citar

 

iTamNomeRepresentante :=  Length(trim(qrlNomeApresentante.caption));
  iTamNatFormalTitulo   :=  Length(trim(qrlNaturezaFormalTitulo.caption));
  iTamAnotacoes         :=  Trunc(Length(trim(qrlAnotacoes.caption)) * 0.674);

   if (iTamNomeRepresentante >= iTamNatFormalTitulo) and (iTamNomeRepresentante >= iTamAnotacoes) then
   begin
     lRect.Right := qrlNomeApresentante.width;
     lRect.Bottom:= qrlNomeApresentante.Height;
     sTexto      := qrlNomeApresentante.Caption;
     qrlNomeApresentante.Font.Color := clRed;

   end
   else if (iTamNatFormalTitulo >= iTamNomeRepresentante) and (iTamNatFormalTitulo >= iTamAnotacoes) then
         begin
           lRect.Right  := qrlNaturezaFormalTitulo.width;
           lRect.Bottom := qrlNaturezaFormalTitulo.Height;
           sTexto       := qrlNaturezaFormalTitulo.Caption;
           qrlNaturezaFormalTitulo.Font.Color := clRed;

         end
         else begin
                lRect.Right := qrlAnotacoes.width;
                lRect.Bottom:= qrlAnotacoes.Height;
                sTexto      := qrlAnotacoes.Caption;
                qrlAnotacoes.Font.Color := clRed;
             end;

  if Trim(sTexto) = ''
  then Exit;


  lFlags := DT_CALCRECT + DT_LEFT + DT_NOPREFIX + DT_WORDBREAK;

  DrawText(Canvas.Handle, pChar(sTexto), Length(sTexto), lRect, lFlags);

 

 
O problema e que qd o texto vaza pra outra pagina,  , o grid extrapola o tamanho na primeira pagina saindo fora da margem,

 alguem sabe como evitar que essa grid , extrapole ?

Segue a imagem.

 

image.thumb.png.81b64ccb814406e7c9e5646d7f7f8b82.png

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.