Label na Vertical

Question

Bom tarde pessoal,estou precisando colocar um Label na vertical(Estou usando o Delphi 2006), mas nao sei como fazer. Tentei usar um tal de ScrollText, mas tentei instalar � nao consigo. Alguem podi me...

Xandy · Answer

Agora consegui instalar o ScrollText, mas ele n�o resolvi meu problema pq eu quero deixar o texto na vertical, ele apenas passa o texto na vertical e na horizontal. Eu queria deixar o texto na vertical (em p�) nao sei como fazer alguem podi me ajudar????

Desde ja agrade�o.

Ruyoutor · Answer

Acho q assim faz o q voc� quer[code:1:7968cabbbe]Label1.caption := �D�+#13+�E�+13+�V�+13+� �+13+�M�+13+�E�+13+�D�+13+�I�+13+�A�;[/code:1:7968cabbbe]espero ter ajudado.[/code]...

Adriano Santos · Answer

[quote:55135bf617=�ruyoutor�]Acho q assim faz o q voc� quer[code:1:55135bf617]Label1.caption := �D�+#13+�E�+13+�V�+13+� �+13+�M�+13+�E�+13+�D�+13+�I�+13+�A�;[/code:1:55135bf617]espero ter ajudado.[/code][/quote:55135bf617]Vc pode tamb�m marcar a propriedade AutoSize como False e a WordWrap como True. Ent�o vc diminui a largura do label at� ficar com apenas 1 carater e logo em seguida aumenta a altura dele pra mostrar todos os caracteres....

Xandy · Answer

com este codigo eu consigo colocar o texto do jeito q eu quero (na vertical), mas eu gostaria de saber se tem algum componente pra fazer a msm coisa. Do jeito q vc falaram o texto continua na horizontal. Eu preciso q o texto fique na vertical, se vc poderem me ajudar agrade�o.

procedure TFrmPrincipal.Button1Click(Sender: TObject);
var
lf : TLogFont;
tf : TFont;
begin
with Canvas do
begin
Font.Name := �Verdana�;
Font.Size := 10;
Font.Style:= [fsbold];
tf := TFont.Create;
tf.Assign(Font);
GetObject(tf.Handle, sizeof(lf), @lf);
lf.lfEscapement := 900;
lf.lfOrientation := 100;
tf.Color := clBlue;
tf.Handle := CreateFontIndirect(lf);
Font.Assign(tf);
tf.Free;
Font.Color := clRed;

// seg. parametro - (Height - 50)
if Button1.Hint = �� then
begin
Button1.Hint := �1�;
TextOut(01, 400, �Texto 2�);
end
else
TextOut(30, 400, �Texto 1�);
end;
end;

Xandy · Answer

Preciso colocar este codigo com canvas dentro tabsheet, alguem sabe fazer isto?????...

Claudiocjr · Answer

Ola pessoalFiz o Explo acima e deu certomas como crio na vertical e Horizontal, como fa�o pravoltar para HorizontalgratoClaudio...

Anderson Gaitolini · Answer

...