Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   QRlabel en vertical (https://www.clubdelphi.com/foros/showthread.php?t=14388)

Pablo Carlos 18-09-2004 23:21:37

QRlabel en vertical
 
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 19-09-2004 10:01:29

e
s
t
o

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

Un Saludo.

Pablo Carlos 19-09-2004 19:34:28

Cita:

Empezado por marcoszorrilla
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 19-09-2004 21:58:03

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ódigo Delphi [-]
   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 19-09-2004 22:04:57

Cita:

Empezado por marcoszorrilla
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 21-09-2004 00:39:43

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 21-09-2004 09:22:16

Mira en este hilo.

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


Saludos.
Carlos. :cool:


La franja horaria es GMT +2. Ahora son las 20:09:21.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi