FiveTech Software tech support forums

... (HFONT) _parni( 5 ) ; int wHeight = _parni( 6 ) ; int nHeightHead = _parni( 7 ) ; int nHeightSuper = _parni( 8 ) ; HDC hDC = GetDC( hWnd ) ; HFONT hOldFont ; int wMaxRight ; RECT rct ; if( hFont ) hOldFont = SelectObject( hDC, hFont ) ; GetWindowRect( hWnd, &rct ) ; wMaxRight = rct.right; rct.top ...

Antonio, 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 :-) I found two occurrences: hOldFont = SelectObject( ::hDC, If( ...

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

... possible, to paint a TTITLE on hMemDC instead 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 ...

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

... = hb_parl( 6 ); PCLIPVAR pAsizes = hb_param( 7, -1 ); HFONT hFont = (HFONT) hb_parnl( 8 ); BOOL bDestroyDC = FALSE; TEXTMETRIC tm; RECT rct; HFONT hOldFont; if( ! hDC ) { bDestroyDC = TRUE; hDC = GetDC( hWnd ); } if( hFont ) hOldFont = SelectObject( hDC, hFont ); GetClientRect( hWnd, &rct ); ...

... = hb_parl( 6 ); PCLIPVAR pAsizes = hb_param( 7, -1 ); HFONT hFont = (HFONT) hb_parnl( 8 ); BOOL bDestroyDC = FALSE; TEXTMETRIC tm; RECT rct; HFONT hOldFont; if( ! hDC ) { bDestroyDC = TRUE; hDC = GetDC( hWnd ); } if( hFont ) hOldFont = SelectObject( hDC, hFont ); GetClientRect( hWnd, &rct ); ...

Héctor,

En todas las líneas en las que uses SelectObject() tendras que hacerles el "casting" al mismo tipo de la variable que recibe el valor devuelto:

hOldFont = ( HFONT ) SelectObject( hDC, hFont ) ;

ya que SelectObject() devuelve un HGDIOBJ y lo vas a guardar en un HFONT.

... METHOD Paint() CLASS TRegla local hOldPen, n := 1,pos,j,posmm local hLightPen,hOldFont local texto,finmm WNDRAISED(::hWnd,::hDC) hOldPen = SelectObject( ::hDC, ::oPen:hPen ) hOldFont= SelectObject( ::hDC, ::oFont:hFont ) SetTextColor(::hDC, ...

... TRUE ); return lResult; } else if( uMsg == WM_PAINT ) { PAINTSTRUCT ps; char text[ 256 ]; RECT rct; HDC hDC = BeginPaint( hWnd, &ps ); HGDIOBJ hOldFont; GetWindowText( hWnd, text, 255 ); GetClientRect( hWnd, &rct ); SetBkMode( hDC, TRANSPARENT ); SelectObject( hDC, GetStockObject( DEFAULT_GUI_FONT ...

... so important, one button, or every buttons. If font will be change on all buttons, it will be OK! I tried to replace this string in btnbmp.prg: hOldFont = SelectObject( ::hDC, If( ::lBarBtn, ::oWnd:oFont:hFont, ::oFont:hFont ) ) // method paint() befor Drawtext... on just simple: hOldFont = ...

... my mistake? - Can I change the font of the buttons captions (prompts) on buttonbar? It seems that string in method paint() of class btnbmp: "hOldFont = SelectObject( ::hDC, If( ::lBarBtn, ::oWnd:oFont:hFont, ::oFont:hFont ) )" means that font always take from parent window... Why it ...

... ....... ....... //----------------------------------------------------------------// STATIC FUNCTION ONPAINT( hDC, cMsg, oFont ) LOCAL hOldFont hOldFont := SelectObject( hDC, oFont:hFont ) SetBkMode( hDC, TRANSPARENT ) IF nCOLTEXT = 1 .or. e_COLTEXT = 1 SetTextColor( hDC, CLR_WHITE ...

... WINDOW oWnd return nil //----------------------------------------------------------------// static function OnPaint( hDC, cMsg, oFont ) local hOldFont hOldFont := SelectObject( hDC, oFont:hFont ) SetBkMode( hDC, TRANSPARENT ) TextOut( hDC, 5, 5, cMsg ) SelectObject( hDC, hOldFont ) return nil

... Static Function DrawRotated(hDC,cPrompt,Y,X,nClrText,nClrPane,oFont) Local hOldFont, nOldMode, nOldClrText, nOldClrPane nOldClrText:=SetTextColor(hDC,nClrText) if nClrPane<>nil nOldClrPane:=SetBkColor(hDC,nClrPane) else ...