Altura da band no Quick Report

Delphi

15/02/2014

Caros amigos, como posso fazer para que a band de um QuickReport possa aumentar de acordo com o conteúdo do campo (QRDBText) inserido nela.alguns tên até 8 linhas de altura, pois trata-se de um campo do tipo text.

Uso Delphi XE3, MySQL e Navicat.


Desde já agradeço.
Aloisio Santos

Aloisio Santos

Curtidas 0

Respostas

Luiz

Luiz

15/02/2014

Bom dia, você pode tratar diretamente no evento beforeprint da sua banda ... você faz algo do tipo:

Se o tamanho da variável for maior do que quanto cabe de caracteres na linha ... 

if  lenght(variavel) > 100 then
begin
    variavel.height := variavel.height + 10;
    banda.height   := banda.height + 10;
end;

if  lenght(variavel) > 200 then
begin
    variavel.height := variavel.height + 10;
    banda.height   := banda.height + 10;
end;

...


ps: para utilizar o QRDBText precisa alterar as propriedades autosize para false e wordwrap para true; ou você pode utilizar o Memo.
GOSTEI 0
POSTAR