QRDBText com mais de uma linha.

Delphi

14/08/2003

Estou terminando um relatório de orçamentos, e existe um campo da SubDetail que tem que ter largura fixa (aprox. 40 caracteres), mas no BD este campo tem tamanho de 160 carac. Como fazer para o QRDBText imprimir em mais de uma linha quando for necessário? Tentei usar o AutoStretch, mas apesar da band aumentar, só é impressa a primeira linha do DBText.
Obrigado.


Abueno_silva

Abueno_silva

Curtidas 0

Respostas

Koplin

Koplin

14/08/2003

Configure as propriedades autosize para false e wordwrap para true. Esta ultima quebra a linha. Voce precisa definir o tamanho do componente para caber todos os caracteres. O mesmo se aplica ao componente memo do QR


GOSTEI 0
Abueno_silva

Abueno_silva

14/08/2003

Valeu! Se precisar de algo, é só perguntar!
[]´s


GOSTEI 0
Joelson

Joelson

14/08/2003

Koplin no delphi 5 não funciona. Mesmo alterando as propriedades autosize para false e wordwrap para true. Alguém tem uma outra solução?
GOSTEI 0
Marco Antônio

Marco Antônio

14/08/2003

Bom dia.
Kra é uma gambiarra do kralho o que vou dizer mas vamos lá.
Eu colocaria 4 TQRLabel, todos com a largura para comportar os 40 caracteres, e alinhados um abaixo do outro. Criando o efeito de 4 linhas.

Seleciona o primeiro TQRLabel e no seu evento OnPrint vc coloca:
Value := copy( MinhaQuery.fieldByName(''meuCampo'').asString, 01, 40 );

No segundo TQRLabel no seu evento OnPrint vc coloca:
Value := copy( MinhaQuery.fieldByName(''meuCampo'').asString, 41, 40 );

No terceiro TQRLabel no seu evento OnPrint vc coloca:
Value := copy( MinhaQuery.fieldByName(''meuCampo'').asString, 81, 40 );

No quarto TQRLabel no seu evento OnPrint vc coloca:
Value := copy( MinhaQuery.fieldByName(''meuCampo'').asString, 121, 40 );

Sei que eh uma gambiarra danada, mas nesses bug do Quick não vejo outra solução.

Qualquer coisa, se ajudar avisa ae.

Abc.
GOSTEI 0
POSTAR