Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   como marcar renglones en rave (https://www.clubdelphi.com/foros/showthread.php?t=70856)

servicomp 15-11-2010 03:06:11

como marcar renglones en rave
 
Cordial saludo

tengo un reporte en rave reports, el cual lista una base datos, con varios campos en más de una hoja, lo que sucede es que para que el usuario final lea lo impreso, debe de usar una regla para poder saber a que fila pertenece cada registro.
tratamos de colocar una linea debajo de cada registro, pero también se presta para confusión.
existe otra manera de hacer la diferencia entre un renglón y el otro que no sea una línea, como por ejemplo usar un sombreado

Agradeciendo de antemano su colaboración

identsoft 16-11-2010 10:04:53

Yo lo he resuelto de la siguiente forma (no se si es la mejor):
1.- defino un rectangulo en la linea.
2.- en el evento rectangle1.OnBeforePrint
Código Delphi [-]
      begin
         if self.Fillcolor = clWhite then
            Self.Fillcolor = clSilver;
        else
             Self.Fillcolor := clWhite;
      end;
Creo que es facil de entender.
naturalmente, el rectangulo lo tengo definido sin bordes

ElDioni 17-11-2010 17:04:48

Pues no se a los demás pero a mi me parece una buena idea identsoft.

Un saludo.

servicomp 20-11-2010 00:34:22

El codigo es el programa o en el Rabe.

Si es en el Rabe me esta dando un error y como nunca he programado en rabe, no se como hacerlo


Agradeciendo de antemano tu colaboración

Loviedo 21-11-2010 10:58:15

Corrige la sintaxis.

Código Delphi [-]
begin
   if self.Fillcolor = clWhite thenSelf.Fillcolor := clSilver;
   else
     Self.Fillcolor := clWhite;
   end if;

Es en el rectangle1.OnBeforePrint del Rave.
Lo he probado y no da error.
saludos.

Loviedo 21-11-2010 11:00:36

Se ha comido el último 'End'
Saludos.

Loviedo 21-11-2010 12:03:40

Perdón, no se corregir el mensaje.
Revisa la sintaxis.

Código Delphi [-]
 
function Rectangle1_OnBeforePrint(Self: TRaveRectangle);
beginif self.Fillcolor = clWhite thenSelf.Fillcolor := clSilver;
   else
      Self.Fillcolor := clWhite;
   end if;end OnBeforePrint;

Es en el Rave.
Lo he probado y funciona.
saludos.

Loviedo 21-11-2010 12:05:48

Lo siento. lo escribo correctamente, pero sale como quiere.
Saludos.


La franja horaria es GMT +2. Ahora son las 11:34:57.

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