Texto na vertical em Image.Canvas

Question

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 ...

Anfm · Answer

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]

Geraldocg · Answer

Obrigado anfmVoc� pode me dizer onde encontro algum help sobre os comandos que voc� me mandou?GratoGeraldo...

Beppe · Answer

A refer�ncia definitiva est� em //msdn.microsoft.com/...

F�rum Texto na vertical em Image.Canvas #275967