Componente de Quickreport

[Patricio]

Hola lepe, gracias x tu contestacion, yo uso quickreport en delphi5, en la banda detalle cree 1 qrlabel con el tipo de fuente windgdings y le asigno la letra correspondiente al caracter tildado cuando tiene q estar activo y lo mismo para desactivo, pero me aparece en el mismo tipo de letra q el form

[[Lepe]]

Lo que he hecho es:
- Añadir un qrLabel
- Fuente "Wingdings"tamaño 12 puntos
- En el caption he puesto " q x "

En el QuickReport aparece los símbolos correspondientes, en la Presentación preliminar también, impreso también ¿será por tu versión de QR? .

Con la fuente Webdings tienes también la "a r" esas dos letras se corresponden con dos símbolos alternativos.

De todas formas, si no sale, lo único que se me ocurre es añadir dos qrImages con la imagen cargada, en el evento OnPrint de la banda, habilitas el que quieres ver:

Código Delphi [-]
procedure TquickReport1.qrBandDetallePrint(....);
begin
  qrImage1.Enabled := query1.CAmpo.asstring = 'Si';
  qrImage2.Enabled := not qrImage1.Enabled;
end;

Como sabrás en QuickReport se usa la propiedad Enabled para que el control se aparezca en el informe o no. (Aunque en delphi suele ser la propiedad visible).

Saludos


Saludos

[Patricio]

Ante todo gracias por las respuestas, la cosa es que como no me quiere imprimir en letra wingdings (rarisimo) hice dos imagenes en photoshop de 20 x 20 con un cuadrado tildado y uno vacio, lo puse en el quickReport y antes de imprimir le indico cual mostrar

Lo que me pasa ahora es que en la vista previa se ven bien las imagenes pero cuando las imprimo, las lineas del cuadrado se ven "punteadas", probe a cambiarle la resolucion a las imagenes (son jpg) agrandandolas y sigue igual.

Probe de cambiar de pc, sigo con la misma impresora pero en un pc mejor y lo mismo, se les ocurre algo?

Gracias

[salvica]

Empezado por Patricio

.....Lo que me pasa ahora es que en la vista previa se ven bien las imagenes pero cuando las imprimo, las lineas del cuadrado se ven "punteadas", probe a cambiarle la resolucion a las imagenes (son jpg) agrandandolas y sigue igual.

Probe de cambiar de pc, sigo con la misma impresora pero en un pc mejor y lo mismo, se les ocurre algo?

Gracias

Hola a tod@s, a mi modo de ver es mucho más fácil:
En modo diseño das al campo (QRExpr) una longitud fija y activas todos los frames (para que forme el cuadradito)

Para poner el contenido, puedes hacerlo de dos formas:
- En la propiedad Expression utiliza función IF del propio QReport: IF( condicion, valor_para_true, valor_para_false )

- En el evento OnPrint del QRExpr:

Código Delphi [-]
procedure TForm1.QRExpr1OnPrint(sender: TObject; var Value: String);
begin
  with QuickRep1.DataSet do
       if FieldByName( 'tu_campo_logico' ).AsBoolean
          then Value := 'X'
          else Value := '';
end;

El evento OnPrint es común a QLabel y QExpr por lo que el ejemplo vale para ambos.
Saludos
salvica.