Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

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

×

Informação importante

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