FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Imprimir texto con brush (SOLUCIONADO)
hmpaquito
Posts: 1515
Joined: Thu Oct 30, 2008 02:37 PM
Imprimir texto con brush (SOLUCIONADO)
Posted: Mon Oct 10, 2016 11:48 AM
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 (fw): Select all Collapse
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
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Imprimir texto con brush
Posted: Mon Oct 10, 2016 03:32 PM
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 (fw): Select all Collapse
        oReporte:bStartLine := {|o|IF((oReporte:nCounter % 2 == 0),SHADOWROW(o),)}  // Para lograr el efecto pijama



Code (fw): Select all Collapse
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
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: Imprimir texto con brush
Posted: Mon Oct 10, 2016 05:35 PM
Asi, no te sirve?

Code (fw): Select all Collapse
LOCAL oPrn

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


贸

Code (fw): Select all Collapse
   SayBitmap( nRow, nCol, xBitmap, nWidth, nHeight, nRaster )
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
hmpaquito
Posts: 1515
Joined: Thu Oct 30, 2008 02:37 PM
Re: Imprimir texto con brush
Posted: Mon Oct 10, 2016 05:43 PM

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
Posts: 1515
Joined: Thu Oct 30, 2008 02:37 PM
Re: Imprimir texto con brush (SOLUCIONADO)
Posted: Mon Oct 10, 2016 06:03 PM

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

karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: Imprimir texto con brush (SOLUCIONADO)
Posted: Mon Oct 10, 2016 07:47 PM
hmpaquito wrote:Resuelto: Utilizando la funcion SetBkColor() se resolvi贸.


Como en el ejemplo: GENREP.PRG?

Gracias, saludos.
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
hmpaquito
Posts: 1515
Joined: Thu Oct 30, 2008 02:37 PM
Re: Imprimir texto con brush (SOLUCIONADO)
Posted: Mon Oct 10, 2016 08:05 PM

Veo que Armando tambi茅n me lo pas贸 en su ejemplo. Ah铆 estaba tambi茅n la soluci贸n.

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions