FiveTech Software tech support forums

... AUTOCOLS LINES NOBORDER FONT oFont2 ; BACKGROUND cBackImg STRETCH UPDATE :D // OK see image doesn't work :( // TILED 0 // STRETCH 1 // FILL 2 SetBkMode( oBrw1:GetDC(), 2 ) changing BACKGROUND cBackImg UPDATE //STRETCH SetBkMode( oBrw1:GetDC(), 1 ) oBrw1:Refresh() no difference ----------------------- ...

... oFont := ::oPrn:oFont DEFAULT nBkMode := 1 DEFAULT nPad := 0 IF oFont != nil oFont:Activate( ::oPrn:hDCOut ) ENDIF // 1,2 transparent or Opaque SetbkMode( ::oPrn:hDCOut, nBkMode ) IF nClrText != NIL #IFDEF __HARBOUR__ SetTextColor( ::oPrn:hDCOut, nClrText ) #ELSE SetTextCol( ::oPrn:hDCOut, nClrText ...

Dear Mr. Nages, I put the SetBkMode (hDC, 1) straight into the function and it worked. If nClrBack != NIL nBkMode := SetBkMode( hDC, OPAQUE ) nOldClr := SetBkColor( hDC, nClrBack ) Else SetBkMode( hDC, 1 ) EndIf Thank you very much. Att., ...

... "ese numero variará cada 5 minutos" lo que requiero es que se vean de forma "Transparente", como lo hace: oBmp:bPainted = { || SetBkMode( oBmp:hDC, 1 ),; SetTextColor( oBmp:hDC, CLR_BLACK ),; TextOut( oBmp:hDC, 20, 540, "Numero de Clientes:" ) } Pero necesito cambiarle, ...

... determinado tiempo por ejemplo: @ 5, 5 BITMAP oBmp2 FILENAME "c:\conteo\logo.bmp" SIZE 500, 400 OF oWnd NOBORDER oBmp:bPainted = { || SetBkMode( oBmp:hDC, 1 ),; SetTextColor( oBmp:hDC, CLR_YELLOW ),; TextOut( oBmp:hDC, 50, 15, "Actualmente con nosotros" ) } //¿ Se puede cambiar ...

... says, till they are reset either by another call to Say() method with a different color and bkmode or explicitly changed by SetTextColor() / SetBkMode(). In other words, calling Say() with a text color, switches the color for the current and all subsequent says, rather than using the color ...

... DrawText2( hDC, hFont, nBkMode, cText, nTop, nLeft, nWidth, nHeight,color,color2 ) LOCAL hFontOld:= SelectObject( hDC, hFont ) LOCAL nBkOld := SetBkMode( hDC, nBkMode ) SetTextColor( hDC, color ) setBkColor( hDC, color2 ) DrawText( hDC, cText, { nTop, nLeft, nTop+nWidth, nLeft+nHeight } ) SelectObject( ...

... FUNCTION DrawText2( hDC, hFont, nBkMode, cText, nTop, nLeft, nWidth, nHeight,color ) LOCAL hFontOld:= SelectObject( hDC, hFont ) LOCAL nBkOld := SetBkMode( hDC, nBkMode ) SetTextColor( hDC, color ) DrawText( hDC, cText, { nTop, nLeft, nTop+nWidth, nLeft+nHeight } ) SelectObject( hDC, hFontOld ...

Antonio, aquí la segunda parte: Error: Unresolved external '_HB_FUN_DRAWTHEMED' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_GETDLGBASEUNITS' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_CDLG2CHR' referenced from P...

Antonio Linares wrote:Have you tried with SetBkMode( hDC, TRANSPARENT ) ?

on method Painttext antolin used SetBkMode( hDC, 1 ) i think perhaps it not need drawpback

but sometimes I have problem with fonts on win 7

do you Know the Antolin mail ? I wish ash some questions ...

Have you tried with SetBkMode( hDC, TRANSPARENT ) ?

... oFont := ::oPrn:oFont DEFAULT nBkMode := 1 DEFAULT nPad := 0 IF oFont != nil oFont:Activate( ::oPrn:hDCOut ) ENDIF // 1,2 transparent or Opaque SetbkMode( ::oPrn:hDCOut, nBkMode ) IF nClrText != NIL #IFDEF __HARBOUR__ SetTextColor( ::oPrn:hDCOut, nClrText ) #ELSE SetTextCol( ::oPrn:hDCOut, nClrText ...

... nI:=Len(cText)+1 nP++ ENDIF NEXT nI IF nP>=Len(cText)-1 nP:=1 ENDIF ENDDO ENDIF ENDIF if oFont != nil oFont:Activate( ::hDCOut ) endif SetbkMode( ::hDCOut, nBkMode ) // 1,2 transparent or Opaque if nClrText != nil SetTextColor( ::hDCOut, nClrText ) endif Do Case Case nPad == PAD_LEFT ...

... oTitle1:nShadow := 0 oTitle1:aGrdBack := {} oTitle1:lTransparent := .T. @ 1, 1 TITLETEXT OF oTitle1 TEXT TIME() FONT oFont3 COLOR nPenColor //SetBkMode( hMemDC, 1 ) //SetTextColor( hMemDC, nPenColor ) //TextOut( hMemDC, aPoints[1][1], aPoints[1][2], TIME() ) //SelectObject ( hMemDC, hOldFont ...

Silvio,
after this line :

hOldFnt := SelectObject( hDc, oFont:hFont )

SetBkMode( hDC, 1 )
SetTextColor( hDC, nPenColor ) // Textcolor
...
...
...
DeleteObject( hOldFnt )

Best regards
Uwe