QRlabel en vertical

[Pablo Carlos]

Hola gente... necesito saber si se puede poner los qrlabel en vertical (y como se haría :D )...
Cuando digo vertical no quiero esto...
e
s
t
o
si no realmente vertical :p (busque en el historico y no encontré respuestas)
Uso QuitReport y delphi 5
Gracias... Saludos

[marcoszorrilla]

e
s
t
o

Si puede hacerse, pero lo que tu pides no, aunque el resultado es el mismo.

Un Saludo.

[Pablo Carlos]

e
Si puede hacerse, pero lo que tu pides no, aunque el resultado es el mismo.
Un Saludo.Hola... el resultado no es el mismo... no es lo mismo verlo de esta manera->
e

que la "e" "mirando para arriba" (bueno aca tampoco puedo hacerlo :( )
Saludos

[marcoszorrilla]

Aunque esta solución no sirve para QuickReport sino para imprimir con el "Canvas" de la impresora aquí te la pongo, ahora ya veo lo que quieres decir orientación vertical del texto.


Cómo imprimir un texto vertical
procedure AngleTextOut(CV: TCanvas; const sText: String; x, y,
angle:integer);
var
LogFont: TLogFont;
SaveFont: TFont;
begin
SaveFont := TFont.Create;
SaveFont.Assign(CV.Font);
GetObject(SaveFont.Handle, sizeof(TLogFont), @LogFont);
with LogFont do begin
lfEscapement := angle *10;
lfPitchAndFamily := FIXED_PITCH or FF_DONTCARE;
end; {with}
CV.Font.Handle := CreateFontIndirect(LogFont);
SetBkMode(CV.Handle, TRANSPARENT);
CV.TextOut(x, y, sText);
CV.Font.Assign(SaveFont);
SaveFont.Free;
end;




Un Saludo.

[Pablo Carlos]

Aunque esta solución no sirve para QuickReport
Esa solución la encontré en este club en trucos... pero como dices: no sirve. :(
Te agradezco la preocupación..:)
Googlie un poco y aún no encuentro nada :(

Saludos

[Pablo Carlos]

Hola... lei por alli que si quieres tu hilo en primer lugar... respondete tu mismo :D

Perdon pero aún no soluciono el problema y mi plazo es martes 21/9 :(
Saludos

[aig]

Mira en este hilo.

http://www.clubdelphi.com/foros/showthread.php?t=1110


Saludos.
Carlos. :cool: