Method SetText() Transparent

[Dorneles]

http://img179.imageshack.us/my.php?image=tela1oc3.png

Changed the METHOD SetText( cText ) not to exceeding the limit as shown in Image 1, only that he lost his transparency, lack what?

Code: Select all  Expand view

METHOD SetText( cText ) CLASS TSSay

   local hDC , nWidth

   DEFAULT ::lTransparent := .f.

   ::cCaption := If( ::cPicture != nil,;
                    Transform( cText, ::cPicture ),;
                    cValToChar( cText ) )
                     
   if ! lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), nOr( SS_LEFT, SS_RIGHT, SS_CENTER ) )
      nWidth = GetTextWidth( 0, ::cCaption, If( ::oFont != nil, ::oFont:hFont,) ) 
      IF nWidth > ::nWidth
         nWidth = GetTextWidth( 0, ::cCaption, If( ::oFont != nil, ::oFont:hFont,) ) -(GetTextWidth( 0, ::cCaption, If( ::oFont != nil, ::oFont:hFont,) ) - ::nWidth)
      ENDIF
      if nWidth > ::nWidth
         ::nWidth = nWidth
      endif   
   endif   
   
   SetWindowText( ::hWnd, ::cCaption )

return nil

[Dorneles]

The image 2 this with the gray background, I make it transparent.

[Silvio]

Dear Dorneles,

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


it write trasparent on bitmap