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
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Colorear una línes con Printer
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.
Saludos
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.
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
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Groiss:
Te coloco estos ejemplos
Espero que te sirba de ayuda
http://www.4shared.com/zip/bSNQNiuw/reportes1.html
Te coloco estos ejemplos
Espero que te sirba de ayuda
http://www.4shared.com/zip/bSNQNiuw/reportes1.html