FiveTech Software tech support forums

... params, 3, 0 ); #endif #ifndef __FLAT__ WORD wBmps = _VARRAYLEN( _param( 11, -1 ) ); #else WORD wBmps = __paralen( params, 11, 0 ); #endif HFONT hFont1 = ( HFONT ) _parni( 4 ); HFONT hFont2 = ( HFONT ) _parni( 5 ); LONG rgbPane = _parnl( 6 ); WORD wOption = _parni( 7 ); WORD wSize = _parni( ...

... 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 SetBkColor(hDC,nOldClrPane) else SetBkMode(hDC,nOldBkMode) ...

... : FONT oFntBrw y le agregue lo que indicas : lbCapDcs:SetFont( oFntBrw ) lbCapDcs:bFont := { |nRow,nCol,nStyleLine| IF( nStyleLine == 2,; oFntBrw:hFont, 0 ) } Pero, desafortunadamente sigue mostrando una font mas pequeña al editar. :cry: Gracias y Saludos

raymundo,
si le defino la font lo hago asi:
oLbx:SetFont(oFont)
oLbx:bFont:={|nRow,nCol,nStyleLine| ;
IF(nStyleLine==3,oFont:hFont,0) }
y asi me respeta el tipo de letra en la edicion
salu2
paco

... to len( ::aCaption ) WSay( ::hWnd, ::hDC, ::nDTop + ( n - 1 ) * ::nTxtHeight, ::nDLeft, ::aCaption[ n ], ::nClrText,,; If( ::oFont != nil, ::oFont:hFont, 0 ), .T., .T., ::nAlign ) next if ::lScroll .and. ::lWrap if ::lHorizontal for n := 1 to len( ::aCaption ) WSay( ::hWnd, ::hDC, ::nDTop + ( n ...

... dialog box in a multi dialog wizard. It activates the dialog box and immediately comes up with "Error BASE/1004 Class: NIL has no exported method:hFONT from errorsys, line: 0" This has appeared with FWH27 Jan using harbour. STATIC FUNCTION DoMatMed2() LOCAL lChoice := .F.,nSelect:=1,nLength LOCAL ...

... ::hWnd, WM_PAINT, ::hDC, 0 ) else SetTextColor( ::hDC, ::nClrText ) SetBkColor( ::hDC, ::nClrPane ) hOldFont = SelectObject( ::hDC, ::oFont:hFont ) do case case lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_CENTER ) SetTextAlign( ::hDC, TA_CENTER ) ExtTextOut( ::hDC, 0, ::nWidth() / 2, ; ...

... ::hWnd, WM_PAINT, ::hDC, 0 ) else SetTextColor( ::hDC, ::nClrText ) SetBkColor( ::hDC, ::nClrPane ) hOldFont = SelectObject( ::hDC, ::oFont:hFont ) do case case lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_CENTER ) SetTextAlign( ::hDC, TA_CENTER ) case lAnd( GetWindowLong( ::hWnd, GWL_STYLE ...

... ::hWnd, WM_PAINT, ::hDC, 0 ) else SetTextColor( ::hDC, ::nClrText ) SetBkColor( ::hDC, ::nClrPane ) hOldFont = SelectObject( ::hDC, ::oFont:hFont ) do case case lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_CENTER ) // 1 SetTextAlign( ::hDC, TA_CENTER ) // 6 case lAnd( GetWindowLong( ::hWnd, ...

... ::hWnd, WM_PAINT, ::hDC, 0 ) else SetTextColor( ::hDC, ::nClrText ) SetBkColor( ::hDC, ::nClrPane ) hOldFont = SelectObject( ::hDC, ::oFont:hFont ) ExtTextOut( ::hDC, 0, 0,; { 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) ) SelectObject( ::hDC, hOldFont ) endif if ValType( ::bPainted ...

... ::hWnd, WM_PAINT, ::hDC, 0 ) else SetTextColor( ::hDC, ::nClrText ) SetBkColor( ::hDC, ::nClrPane ) hOldFont = SelectObject( ::hDC, ::oFont:hFont ) ExtTextOut( ::hDC, 0, 0,; { 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) ) SelectObject( ::hDC, hOldFont ) endif // Fim da Mudanca ...

gracias, ya lo encontré

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

... font for a specific column: oBrwMov:bFont:={|nRow,nCol,nStyleLine| IF((nStyleLine==1.or.nStyleLine==0).and.(nCol==5.or.ncol==6.or.ncol==7),oFont5:hFont,; IF(nStyleLine==2,oFont5:hFont,)) } -Use diferent height of headers, rows or footers: oBrwMov:nHeaderHeight:= 32 oBrwMov:nFooterHeight:= 25 oBrwMov:nLineHeight:= ...

... -1 ) == -1 ::lHitBottom := .f. if ::nRowPos > 1 ::nRowPos-- else ::lScrolling := .T. //fgam WBrwScrl( ::hWnd, -1, If( ::oFont != nil, ::oFont:hFont, 0 ), ::nLineStyle ) endif else ::lHitTop := .t. endif ::DrawSelect() if ::oVScroll != nil If ::bLogicPos != Nil // By CeSoTech ::oVScroll:SetPos( ...