Imprimir qrlabel en vertical con QuickReport

[aig]

Hola.

Tengo la version QuickReport Standar 3.5.1 para Delphi 6.

Quisiera saber si es posible imprimir un qrlabel (o lo que sea) en vertical para incluir en un documento la típica nota legal de Registro Mercantil.

Si no es posible, agradezco cualquier sugerencia.

Saludos.
Carlos

[andres1569]

Hola:

Creo que no es posible, salvo que haya algún componente por ahí derivado de TQRLabel que lo haga.

Sugerencia: Que escribas el registro mercantil en un Bitmap y lo asocies a un TQRImage.

Un saludo

[Investment]

Lo que puedes hacer es añadir un QRMemo y escribir en el:

R
E
G
I
S
T
R
O

[...]

[José Luis Garcí]

Si puedes usar un qrlabel al estilo del memo poniendo el autosize a false, tacenter y un tipo de letra del mismo tamaño para cada letra, o buscar un componente que rote el label 90º, se que los hay no estoy seguro si en el Delphipages o el DelphiSpirit, busca a ver.

www.Delphipages.com
www.DelphiSpirit.com

Suerte y un saludo desde CANARIAS.

[Investment]

Si puedes usar un qrlabel al estilo del memo poniendo el autosize a false, tacenter y un tipo de letra del mismo tamaño para cada letra


En un solo qrLabel? Y como se hace eso?


Con un qrLabel por letra?

[José Luis Garcí]

Peter si en un solo qrlabel, escribes en el caption por ejemplo

Aroma 1

que sería su salida normal y como he descrito saldría

A
r
o
m
a

1

Claro que aplicandole la propiedad talimengnt (creo que se escribe así) a center, por cierto se me olvido comentar que en algún lado (no recuerdo donde) existe un truco para rotar un label que me imagino te valdrá para un Qrlabel, de todas maneras, busca en el foro antigua por que el tema ya se trato.

Un saludo desde Canarias.

[Investment]

:confused:

Supongo que será cuestion de las versiones de QuickReport porque en la mia 3.0.5 y con Delphi 5 desgraciadamente el caption del qrLabel sigue saliendo en horizontal por mucho que le ponga el AutoSize a False y el Alignment a taCenter.

[aig]

quote:
--------------------------------------------------------------------------------
Si puedes usar un qrlabel al estilo del memo poniendo el autosize a false, tacenter y un tipo de letra del mismo tamaño para cada letra
--------------------------------------------------------------------------------

A mí tampoco me funciona con la versión Standar QR 3.5.1, no sé si debo cambiar alguna otra propiedad.

Ya que esto es un caso muy puntual que nos ha surgido, utilizaremos la opción que comentaba Andrés1569. La ventaja que tiene respecto al qrMemo es que puedes colocar las letras en vertical, no en una columna.

Gracias a todos.

[José Luis Garcí]

Lo lamento fallo mio, pero no veo que investigueis un poco, las propiedades son las que dije, sólo se me olvido comentar que se separara entre letras con un espacio para que actue el WorWrap.

hay veces que se enciende una luz para indicar el camino, pero no quiere decir que tengas que ir en linea recta.

Lamento averme olvidado del detalle.

Un saludo desde Canarias.

[Combat-F2D]

desde Delphi3, tengo por ahi un componente para Qr que dispone de la posiblidad de rotar un nº determinado de grados el label; actualmente trabajo con D6 y Qr3.5.1 Standar (espero no haberme equivocado de version) en donde dicho componente va a la perfeccion;

si a alguine le interesa, que me lo haga llegar

[ramiretor]

hola a todos:

Pues si no has tenido la respuesta, te quiero decir que si es posible rotar el texto de la siguiente manera:

Uses
Windows,
Graphics;
procedure AngleTextOut(Canvas: TCanvas; const Text: String; x, y, angle:
Integer);
var
LogFont : TLogFont;
SaveFont : TFont;
begin
SaveFont := TFont.Create;
SaveFont.Assign(Canvas.Font);
GetObject(SaveFont.Handle, sizeof(TLogFont), @LogFont);
with LogFont do
begin
lfEscapement := angle *10;
lfPitchAndFamily := FIXED_PITCH or FF_DONTCARE;
lfOutPrecision:=out_tt_precis;
lfQuality:=proof_quality;
end;
Canvas.Font.Handle := CreateFontIndirect(LogFont);
SetBkMode(Canvas.Handle, TRANSPARENT);
Canvas.TextOut(x, y, Text);
Canvas.Font.Assign(SaveFont);
SaveFont.Free;
end;

este procedimiento te gira el texto pero no en el reporte si no sacandolo con canvas. Lo que tienes que hacer es pasarle a este procedimiento como parametro la etiqueta que quieres girar, y generar este procedimiento en el BeforePrint del reporte.

Pero por si no funciona dejame decirte que existen componentes especiales para Qreports que giran el texto como tú quieras, si los necesitas yo los tengo para Delphi 4 y les hice brujería para que sirvan en Delphi 7, solo avisame

Salu2 foro

[Broskil Giovann]

Avisado queda usted Ernesto!

Si no fuera mucha molestia un pequeño envio por correo con esos componentes de Quick para delphi 4, solucionaria mi problema solucionado.

Gracias!
__________________

"El miedo mata la mente ..."

[Combat-F2D]

mandame tu e-mail particular para porde renviartelo

[spider_Ramon]

Si no es mucha molestia enviarme los componentes de QuickReport PLis me urgenn.,... :confused:

mi correo es:
ralmeida@sewsus.com.mx :D

Gracias.

[Combat-F2D]

a tu email lo he remitido

[spider_Ramon]

a tu email lo he remitido
Gracias por el COmponente pero...

Resulta que estoy trabajando con Delphi 6 y no me corrio :confused: , si conoces algun componente que me opueda funcionar en delphi 6, o pagina o funcion Te Lo Agradecere.

De Nuevo Gracias.

[spider_Ramon]

Gracias por el COmponente pero...

Resulta que estoy trabajando con Delphi 6 y no me corrio :confused: , si conoces algun componente que me opueda funcionar en delphi 6, o pagina o funcion Te Lo Agradecere.

De Nuevo Gracias.
Ya Quedo jejejeje