Ir al contenido


Foto

[RESUELTO] Se puede escribir un texto vertical en QReport?


  • Por favor identifícate para responder
7 respuestas en este tema

#1 JoAnCa

JoAnCa

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 776 mensajes
  • LocationPinar del Río, Cuba

Escrito 20 enero 2011 - 07:46

Hola a todos
Pues eso, necesito saber si se puede escribir un texto (o TQRLabel) vertical, como hacerlo  :(

Pues resulta que el modelo tiene que salir en formato Carta, y los titulos de las columnas son palabras un poco grandes y no caben en el ancho de la misma, pero no pueden ponerse en abreviaturas

Nota:
En el modelo oficial que estaba antes en excel, lo tienen vertical girando el texto 90 grados

  • 0

#2 Wilson

Wilson

    Advanced Member

  • Moderadores
  • PipPipPip
  • 2.137 mensajes

Escrito 20 enero 2011 - 07:58

No  creo que se pueda, pero podrías utilizar en vez de un qrLabel un qrMemo y escribir en cada linea del memo una letra.

Saludos

PD: Fast Reports dispone de lo que necesitas.
  • 0

#3 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.419 mensajes
  • LocationRepública Dominicana

Escrito 20 enero 2011 - 08:02

Prueba con esto a ver:



delphi
  1. var
  2.   texto:  string;
  3.   i:  integer;
  4. begin
  5.   texto := TLabel(QRLabel1).caption;
  6.   TLabel(QRLabel1).Height := length(texto)*13;
  7.   TLabel(QRLabel1) .caption := '';
  8.     for i :=0 to length(texto) -1 do
  9.       begin
  10.         TLabel(QRLabel1).caption := TLabel(QRLabel1).caption + texto[i]+#13;
  11.       end;
  12.   TLabel(QRLabel1).Repaint;
  13. end;



Aunque QuickReports tiene como ADD On un componente llamado TQRAngledlbl que hace exactamente lo que deseas, lo que no sé si en versiones recientes ya viene incluído.

Saludos.
  • 0

#4 JoAnCa

JoAnCa

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 776 mensajes
  • LocationPinar del Río, Cuba

Escrito 20 enero 2011 - 09:06

Gracias po su pronta respuesta
Probaré con el codigo que me diste enecumene

Con FastReport nunca he trabajado, hay versiones gratuitas o es de pago?

  • 0

#5 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.419 mensajes
  • LocationRepública Dominicana

Escrito 20 enero 2011 - 09:08

...Con FastReport nunca he trabajado, hay versiones gratuitas o es de pago?


Trial y de pago.
  • 0

#6 JoAnCa

JoAnCa

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 776 mensajes
  • LocationPinar del Río, Cuba

Escrito 20 enero 2011 - 12:58

Enecumene, estuve revisando tu codigo pero de esa forma no me sirve, pues no gira el texto, escribe las letras una debajo de la otra

De esa forma ya habia probado, pero mas sencillo y sin escribir codigo:
Autosize = False
WordWrap = True
El Caption lo escribi dejando un espacio entre cada letra
El Width lo reduje hasta el ancho de una letra

Pero de esa forma no le gustó mucho al usuario
  • 0

#7 felipe

felipe

    Advanced Member

  • Administrador
  • 3.283 mensajes
  • LocationColombia

Escrito 20 enero 2011 - 01:10

¿Y una imagen con el texto no serviría?


Saludos!
  • 0

#8 JoAnCa

JoAnCa

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 776 mensajes
  • LocationPinar del Río, Cuba

Escrito 21 enero 2011 - 07:42

¿Y una imagen con el texto no serviría?


Saludos!


Pues si, al final fue eso lo que hice
Salio bien y asi no tengo que pasar mas trabajo buscando como hacerlo con los Labels

  • 0




IP.Board spam blocked by CleanTalk.