Colorear una línes con Printer

[groiss]

Hola, primero pedir disculpas por molestar con esto, pero es que no consigo que me salga. Os cuento, mi idea es en la emisión de un informe, usando la clase printer, quiero que en lineas alternas el fondo sea gris claro, utilizo el método fillrect, creando antes un objeto brush sin estilo y con el color CLR_LIGHTGRAY, la matriz de las coordenadas la pongo en pixeles, y el resultado es que no veo por ninguna parte que me coloree el rectangulo.
Algo estoy haciendo mal, pero no veo donde me equivoco. ¿Cual sería el proceso correcto?
Gracias y un saludo

[Armando]

Groiss:

Creo recordar que este código es de las FAQ de THE FULL (Saludos Rafa),
yo lo uso con la clase TReport, si publicas parte de tu código intentaremos
adaptarlo a la clase TPrinter.

Code: Select all  Expand view

FUNCTION ShadowRow(oRep)
    LOCAL nCols := LEN(oRep:aCols)
    LOCAL nLine := IF(EMPTY(oRep:nDataLine),1,oRep:nDataLine)

    IF oRep:oShdBrush == NIL
        DEFINE BRUSH oRep:oShdBrush COLOR oRep:nClrShadow
    ENDIF

    SetBkMode(oRep:oDevice:hDCOut,1)

    oRep:oDevice:FillRect( {oRep:nRow + 1,;
                                    oRep:aCols[1],;
                                    oRep:nRow + 1 + oRep:aDataHeight[nLine],;
                                    oRep:aCols[nCols] + oRep:aColumns[nCols]:nWidth},;
                                    oRep:oShdBrush)
RETURN (NIL)
 

Saludos

[ruben Dario]

Groiss:
Te coloco estos ejemplos
Espero que te sirba de ayuda


http://www.4shared.com/zip/bSNQNiuw/reportes1.html