Texto na vertical em Image.Canvas

Delphi

06/04/2005

Como é possível escrever um texto numa dada direção , p.ex: vertical para baixo ( 90 graus) , no canvas de uma image. O TextOut não tem parâmtros para isso. Será que é alterando alguma característica da fonte?
Falando em fonte, não achei de jeito nenhum no help ( D7) como se altera uma fonte (tamanho,tipo, negrito etc..).
Alguém pode ajudar nessas dúvidas?
Grato
Geraldo


Geraldocg

Geraldocg

Curtidas 0

Respostas

Anfm

Anfm

06/04/2005

Use o seguinte código para escrever um texto na vertical:

[b:465c7217cc]var[/b:465c7217cc]
lf : TLogFont;
tf : TFont;
[b:465c7217cc]begin[/b:465c7217cc]
[b:465c7217cc]with[/b:465c7217cc] Form1.Canvas
[b:465c7217cc]begin[/b:465c7217cc]
Font.Name := ´Arial´;
Font.Size := 24;
tf := TFont.Create;
tf.Assign(Font);
GetObject(tf.Handle, sizeof(lf), @lf);
lf.lfEscapement := 900;
lf.lfOrientation := 450;
tf.Handle := CreateFontIndirect(lf);
Font.Assign(tf);
tf.Free;
TextOut(20, Height [b:465c7217cc]div[/b:465c7217cc] 2, ´Texto Diagonal!´);
[b:465c7217cc]end;[/b:465c7217cc]
[b:465c7217cc]end;[/b:465c7217cc]


GOSTEI 0
Geraldocg

Geraldocg

06/04/2005

Obrigado anfm

Você pode me dizer onde encontro algum help sobre os comandos que você me mandou?

Grato
Geraldo


GOSTEI 0
Beppe

Beppe

06/04/2005

A referência definitiva está em http://msdn.microsoft.com/


GOSTEI 0
POSTAR