Label na Vertical
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 ajudar???
Desde ja agradeço.
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 ajudar???
Desde ja agradeço.
Xandy
Curtidas 0
Respostas
Xandy
09/05/2007
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.
Desde ja agradeço.
GOSTEI 0
Ruyoutor
09/05/2007
Acho q assim faz o q você quer
espero ter ajudado.[/code]
Label1.caption := ´D´+#13+´E´+13+´V´+13+´ ´+13+´M´+13+´E´+13+´D´+13+´I´+13+´A´;
espero ter ajudado.[/code]
GOSTEI 0
Adriano Santos
09/05/2007
Acho q assim faz o q você quer
espero ter ajudado.[/code]
Label1.caption := ´D´+#13+´E´+13+´V´+13+´ ´+13+´M´+13+´E´+13+´D´+13+´I´+13+´A´;
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.
GOSTEI 0
Xandy
09/05/2007
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;
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;
GOSTEI 0
Xandy
09/05/2007
Preciso colocar este codigo com canvas dentro tabsheet, alguem sabe fazer isto?????
GOSTEI 0
Claudiocjr
09/05/2007
Ola pessoal
Fiz o Explo acima e deu certo
mas como crio na vertical e Horizontal, como faço pra
voltar para Horizontal
grato
Claudio
Fiz o Explo acima e deu certo
mas como crio na vertical e Horizontal, como faço pra
voltar para Horizontal
grato
Claudio
GOSTEI 0
Anderson Gaitolini
09/05/2007
Instale a biblioteca de componentes JEDI e utilize o jvLabel (Digite no Google: Git, Jedi)
Vá até o propriedade Angle e atribua o valor de 90 que representa o ângulo de 90 graus
GOSTEI 0