Qrlabel: tem como o texto ficar na vertical ?

sim, tem como fazer isso,

tem componente

8)
Esse codigo coloca um Label na vertical, se for util blz entao.
var
texto:string;
i:integer;
begin
texto:=Label1.caption;
Label1.Height:=length(texto)*13;
Label1.caption:=´´;
for i:=0 to length(texto)-1 do
begin
Label1.caption:= Label1.caption + texto[i]+#13;
end;
Label1.Repaint;

8)
Esse codigo coloca um Label na vertical, se for util blz entao.
var
texto:string;
i:integer;
begin
texto:=Label1.caption;
Label1.Height:=length(texto)*13;
Label1.caption:=´´;
for i:=0 to length(texto)-1 do
begin
Label1.caption:= Label1.caption + texto[i]+#13;
end;
Label1.Repaint;[/quote:7c580c99bb]

blz, vou testar no Qrlabel pra ver se funciona, qualquer coisa posto aqui .. valeu .....

Não testei o exemplo + parece q vc ta colocando caracter embaixo de caracter, é isso mesmo?

Se for isso acho q não é o q ele quer, bem, pelo menos precisei uma x colocar o texto todo na vertical e não tive outra opção a não ser usar componentes de 3os.

ah é realmente nao havia pensado nisso... va sair caracter embaixo do outro tipo :
A
B
C

na verdade eu queria que fosse escrito na vertical...
vc conhece algum procedimento ou componente. . free de preferencia ...
abraçosl

Caro colega,
eu tenho um componente que escreve em qualquer angulo

me escreva que lhe mando
luizfernando777@yahoo.com.br

www.qusoft.com em Add On products, procure por TQRAngledLabel

valeu pela ajuda ..