FiveTech Software tech support forums

... 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] ...

... oWnd MAXIMIZED ON PAINT ( _miTxt(hDC) ) function _miTxt( hDC ) Local oFont DEFINE FONT oFont NAME "ROMAN" SIZE 0,-12 BOLD oFont:Activate( hDC ) SetBkMode(hDC,1) SetTextColor(hDC,CLR_BLUE) DrawText(hDC,"SysCtrl Software",{10, 20, 500, 600}, nOr( 1, 4 ) ) RETURN NIL Espero te sirva Saludos...

... &lb ); FillRect( lpdis->hDC, &lpdis->rcItem, hBrush ); DeleteObject( hBrush ); SetBkColor( lpdis->hDC, nClrMenu ); SetBkMode( lpdis->hDC, TRANSPARENT ); SetTextColor( lpdis->hDC, nClrMenuTxt); if( lpdis->itemState & ODS_SELECTED && ! ( lpdis->itemState ...

... := cOldCAption nLenText := GetTextWidth( hDC, ::cCaption , If( ::oFont != nil, ::oFont:hFont, 0 ) ) IF nLenText > ::nWidth() hDC = ::hDC SetBkMode( hDc, 1 ) SetTextColor( hDC,::nClrText ) SelectObject( hDC, If( ::oFont != nil, ::oFont:hFont, 0 ) ) nTxtHeight := Max(14, GetTextHeight( ...

... BRUSH oBrush COLOR RGB( nColor, nColor, nColor ) FillRect( hDC, aRect, oBrush:hBrush ) RELEASE BRUSH oBrush aRect[ 1 ] += 3 nColor -= 1 NEXT nI SetBkMode( hDC, 1 ) SetTextColor( hDC, CLR_WHITE ) DrawText(hDC, "© Miguel Salas",{oWnd:nHeight - 105, oWnd:nWidth - 135, oWnd:nHeight - 10, oWnd:nWidth ...

... nOldClrText, nOldClrPane nOldClrText:=SetTextColor(hDC,nClrText) if nClrPane<>nil nOldClrPane:=SetBkColor(hDC,nClrPane) else nOldBkMode:=SetBkMode(hDC,1) endif hOldFont:=SelectObject(hDC,oFont:hFont) TextOut(hDC,Y,X,cPrompt,Len(cPrompt)) SelectObject(hDC,hOldFont) if nClrPane<>nil ...

Elías,

SetBkMode() se usa para el color de fondo al utilizar algunas funciones de pintado del GDI de Windows. A que le quieres cambiar el color de fondo ?

Para una ventana, diálogo y algunos controles, puedes usar oWnd:SetColor( nClrFore, nClrBack )

... ENDIF RETURN NIL FUNCTION SCROLLMESSAGE(cMESSAGE) LOCAL hDC LOCAL nOldFont LOCAL hPen LOCAL hOldPen IF lADVERTISE * hDC:=oSCROLLBMP:hDC * SetBkMode(hDC, TRANSPARENT) * TextOut(hDC, 5, 100,cMESSAGE) nSCROLLCOL+=5 IF nSCROLLCOL > 1300 nSCROLLCOL:=-500 ENDIF hDC := oSCROLLBMP:hDC nOldFont ...

... nOldClrText, nOldClrPane nOldClrText:=SetTextColor(hDC,nClrText) if nClrPane<>nil nOldClrPane:=SetBkColor(hDC,nClrPane) else nOldBkMode:=SetBkMode(hDC,1) endif hOldFont:=SelectObject(hDC,oFont:hFont) TextOut(hDC,Y,X,cPrompt,Len(cPrompt)) SelectObject(hDC,hOldFont) if nClrPane<>nil ...

... := left oRect:nTop := top oRect:nRight := aData[1] - right - ::nXoffset - ::nXoffset oRect:nBottom := aData[2] - bottom - ::nYoffset - ::nYoffset SetBkMode( ::hDCOut, 1 ) PlayEMF( ::hDCOut, hMeta, oRect:cBuffer , .T. ) DeleteEnhMetafile( hMeta ) RestoreDC( ::hDCOut ) Return nil DLL32 FUNCTION ...

Jose Luis:

Se te olvido:

SetBkMode(oWndc:dc,0) para hacer el texto transparente

o

SetBkMode(oWndc:dc,1) para hacerlo con opaco

Amigos, ninguna forma fucionó!

SetBkMode( oBitmap:hDC, 1 )
TextOut( oBitmap:hDC, 1, 1, "PROBANDO EL TEXTO" )
DrawText( oBitmap:hDC, "OTRA PRUEBA DEL TEXTO", { 1,1,500,500 } )


Alguna otra alternativa ???