FiveTech Software tech support forums

Enrico,

Please look for hOldFont in Class TBtnBmp where it is assigned and change it this way:

hOldFont = SelectObject( ::hDC, ::oFont:hFont )

That solves it

... on oDrawImg ??? ---------------------------- STATIC FUNCTION CL_DT( hMemDC, nStyle, oDrawImg ) LOCAL hOldFont := SelectObject( hMemDC, oFont3:hFont ) , oTitle1 @ aPoints[1][1], aPoints[1][2] TITLE oTitle1 SIZE 300, 50 OF oDrawImg NOBORDER oTitle1:nShadow := 0 oTitle1:aGrdBack := {} oTitle1:lTransparent ...

... #ifndef __HARBOUR__ CLIPPER TSDrawCell( PARAMS ) // ( hWnd, hDC, nRow, nColumn , nWidth , // uData, nAlign , nClrFore, nClrBack , // hFont, nBitmap, nHeightCell, // b3DLook, nLineStyle, nClrLine, nHeadFoot, // nHeightHead, nHeightFoot, hHeightSuper, // lAdjBmpl, lMultiLine, nVAlign, ...

Silvio,
after this line :

hOldFnt := SelectObject( hDc, oFont:hFont )

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

Best regards
Uwe

Sorry, I use this command : hOldFnt := SelectObject( hDc, oFont:hFont ) ExtTextOut( hDc, nLinea, 22, {nLinea,22,nLinea+16,22+nwidth}, aText[nCont,1] ) I not remeber but exit a selectobject command to make trasparent ... I'm trying to create a class to simulate ...

...        (function  in ?)    WINDOW.PRG     3716 HELPTOPIC()            (function  in ?)    WINDOW.PRG      646   649   649   651  3713  3718  3722 HFONT                  WINDOW.PRG      602   623  2387  3300  3304  3311  3312G 3314  3314  3359                   3359  3368 HICON                 ...

... Also, it is a very good practice to save and restore the GDI objects that we select, i.e.: hOldFOnt := SelectObject( oDlgMain:hDC, oMainFont:hFont ) ... SelectObject( oDlgMain:hDC, hOldFont )

... the changes progressively in case that some code could bring a problem. In fact, I think that everytime we supply a HWND, HDC, HBITMAP, HBRUSH, HFONT, etc (any handle) we could simply call hb_parnll() even for 32 bits apps, but I am not sure yet 100% if this could have any side effect. Same ...

... !!! ::Skip( ::nRowPos - wBrwPane( ::hWnd, ::hDC, Self, ::bLine,; ::aColSizes, ::nColPos, ::nClrText, ::nClrPane,; If( ::oFont != nil, ::oFont:hFont, 0 ), ::aJustify, ; ::nLineStyle, 0 , .f., ::bTextColor, ::bBkColor, ::nClrLine,; ::oBrush:nRGBColor, ::bFont ) ) #endif if ::nLen < ::nRowPos ...

... 1 to Len( ::aDialogs ) AAdd( ::aSizes, If( ::aVisible[ n ], GetTextWidth( 0, StrTran( ::aPrompts[ n ], "&", "" ), ::oFont:hFont ) + TXTLPAD + TXTRPAD, 0) ) next if Len( ::aLeft ) > 0 ::aLeft[ ::nOffSet ] = ::nLeftMargin endif for n = ::nOffSet + 1 to Len( ::ASizes ) ...

... que incluirlos y la lina 33 es la segunda del siguiente bloque. #ifndef __HARBOUR__ CLIPPER SBtnPaint( PARAMS ) // ( hWnd, hBitmaP, lPressed, // hFont, cText, nPos, nClrText, ClrBack, // lMouseOver, lOpaque, hBrush, nRows, lW97, // lAdjust, lMenu, lMenuPress, lFocused, // nShape, lBorder, lBox, ...

... static far WORD wFooterHeight; // CeSoTech static far WORD wLineHeight ; // CeSoTech static far BOOL bWorking; WORD WBrwRowsC( HWND hWnd, HDC hDC, HFONT hFont ); // CeSoTech static void FW_DrawText( HDC hDC, RECT * rct, LPCSTR pText, WORD wAlign, int iLen, HFONT hFont, BOOL bHeadFoot ) ; // CeSoTech ...

GetTextWidth( <hDC>, <cString>, [<hFont>] ) --> <nPixelWidth>

Copiado del Manual

Saludos

... nStyle=3 .AND. !oBArt:lCellStyle, ; GETSYSCOLOR(COLOR_BTNFACE),))} oBCmp:bFont := {|nRow,nCol,nStyleLine| ; IF(nStyleLine==1 .AND. nCol==2,oFnt:hFont,) } Espero sea de tu utilidad Saludos Paco Hola Francisco, buenas tardes como estas mi buen,antes que nada le envio cordiales saludos. 1.- ando ...

... = LoadIcon(0, (LPCTSTR)IDI_APPLICATION); wcex.hCursor = LoadCursor(NULL, IDC_ARROW); wcex.lpszClassName = WndClass00; RegisterClassEx(&wcex); HFONT hfont0 = CreateFont(-11, 0, 0, 0, 0, FALSE, FALSE, FALSE, 1, 0, 0, 0, 0, ("MS Sans Serif")); HWND hwnd = CreateWindowEx(0, ("WndClass0"), ...