Imprimir texto con brush (SOLUCIONADO)

[hmpaquito]

Buenas a todos y todas,

Trato de poner un color de relleno/fondo/ brush, sin éxito, a los textos que imprimo.

Para ello hago algo asi:

Code: Select all  Expand view

oBrush:TBrush():New(,CLR_RED)
hBrush:= SelectObject(::oPrinter:hdcOut, oBrush:hWnd)
nBkMode:= 2  // Opaque
::oPrinter:CmSay( nRow, nCol, cText, oFont,nWidth, nClrText, nBkMode, nPad )
SelectObject(::oPrinter:hdcOut, hBrush)
oBrush:End()

¿ Permite la clase printer imprimir textos con brush ? ¿ Hay que usar/ funcionara con la funcion API ExtTextOut() ?

Saludos

[Armando]

hmpaquito:

Se que pides apoyo para la clase TPrinter y el ejemplo que te muestro
es para la clase Treport, pero tal vez te de una idea de como hacerlo
para la TPrinter.

Code: Select all  Expand view

        oReporte:bStartLine := {|o|IF((oReporte:nCounter % 2 == 0),SHADOWROW(o),)}  // Para lograr el efecto pijama
 

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.

[karinha]

Asi, no te sirve?

Code: Select all  Expand view

LOCAL oPrn

PRINT oPrn PREVIEW MODAL
    PAGE
        oPrn:SayImage( 0, 0, oImg, oPrn:nHorzRes(), oPrn:nVertRes() )
    ENDPAGE
ENDPRINT
 

ó

Code: Select all  Expand view

   SayBitmap( nRow, nCol, xBitmap, nWidth, nHeight, nRaster )
 

[hmpaquito]

Gracias Armando, gracias karinha, pero...

Quizá mi cuestión no está bien delimitada.
La cuestión sería ¿ Imprime oPrinter:CmSay() el brush que se tiene seleccionado con SelectObject() ?

A ver si así me he explicado mejor.

Saludos.

[hmpaquito]

Resuelto: Utilizando la funcion SetBkColor() se resolvió.

[karinha]

Resuelto: Utilizando la funcion SetBkColor() se resolvió.

Como en el ejemplo: GENREP.PRG?

Gracias, saludos.

[hmpaquito]

Veo que Armando también me lo pasó en su ejemplo. Ahí estaba también la solución.