FiveTech Software tech support forums

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

Romeo,

Romeo wrote:xtesto:=GetTextWidth(0,cvar,ofont)
ytesto:=GetTextHeight(0,cvar,ofont)

Code: Select all  Expand view

xtesto:=GetTextWidth(0,cvar,ofont:hFont)

Mentre non mi risulta una GetTextHeight() analoga alla GetTextWidth().

EMG

... @10,10 BUTTON obtn prompt cvar of ownd size a,b font ofont pixel xbutt:=obtn:nWidth ybutt:=obtn:nHeight xtesto:=GetTextWidth(0,cvar,ofont) ytesto:=GetTextHeight(0,cvar,ofont)  E poi proseguo con i test x capire se ci stà il cvar nel button, ma canno da qualche parte !??!? Grazie Romeo/Zingoni

... nRow := nTop local cLine, nFontHt, nAt nAt := AT( CRLF, cText ) IF nAt > 0 cLine := Left( cText, nAt - 1 ) oBold:Activate( hDC ) nFontHt := GetTextHeight( oCol:oBrw:hWnd, hDC ) DRAWTEXTEX( hDC, cLine, { nRow, nLeft, nRow + nFontHt + 4, nRight }, 1 ) //oCol:nDataStyle ) oBold:DeActivate( ...

Nadie sabe ???? De todas maneras muchas gracias Publicaste el post un domingo (en la tarde por tu ubicacion, en la noche para europa), muchos no trabajan ese dia, y solo han pasado 14 horas para adentramos al lunes, por lo menos en la parte de america es bastante temprano, la proxima vez ten un poc...

... SIZE 0,-10 OF oPrinter // Init... Mwidth = oPrinter:nHorzRes() Mheight = oPrinter:nVertRes() Mrow = 0 M_col = 0 nCol = 0 nHgt = oPrinter:GetTextHeight("X", oFont1 ) nCopy = 2 FOR nPrt=1 TO nCopy /* Start Printing Page */ PAGE // Init... Mrow = 0 M_col = 0 // Print data _IntlAwb( ...

... OF oPrn DEFINE FONT oFont4 NAME "Arial" SIZE 0,-8 OF oPrn // Init... Mwidth = oPrn:nHorzRes() Mheight = oPrn:nVertRes() M_hgt = oPrn:GetTextHeight("X", oFont3 ) SELECT (cTmpDb) GO TOP DO WHILE ! EOF() IF EMPTY( (cTmpdb)->prt ) SKIP LOOP ENDIF // Start... PAGE M_row = ...

... FONT oFont4 NAME "Arial" SIZE 0,-8 OF oPrinter // Init... Mwidth = oPrinter:nHorzRes() Mheight = oPrinter:nVertRes() M_hgt = oPrinter:GetTextHeight("X", oFont3 ) SELECT (cTmpDb) GO TOP DO WHILE ! EOF() IF EMPTY( (cTmpdb)->prt ) SKIP LOOP ENDIF // Start... PAGE M_row = ...

Hello Antonio I have a casual GPF error and don't know how to resolve . The message is :Offset : 001fb5f and this is the section of the MAP file 0001:0001F02C c611_0 0001:0001F02C __SetAcceleratorTable 0001:0001F047 _HB_FUN_SETIDLEACT 0001:0001F04C _HB_FUN___GENGPF 0001:0001F058 _HB_FUN_WINRUN 0001...

... GetStockObject() GetSubMenu() GetSysColor() GetSysDir() GetSysFont() GetSysMetrics() GetSystemMenu() GetTasks() GetTextAlign() GetTextColor() GetTextHeight() GetTextWidth() GetTickCount() GetVersion() GetWinDir() GetWindowWord() GetWinFlags() GetWinTxtLength() GetWndApp() GetWndFrame() GetWndRect() ...

Hello Antonio I have a casual GPF error and don't know how to resolve . The message is :Offset : 001fb5f and this is the section of the MAP file 0001:0001F02C c611_0 0001:0001F02C __SetAcceleratorTable 0001:0001F047 _HB_FUN_SETIDLEACT 0001:0001F04C _HB_FUN___GENGPF 0001:0001F058 _HB_FUN_WINRUN 0001:...

... ::nAlign, TA_BOTTOM ) == TA_BOTTOM if ::oFont != nil ::SetFont( ::oFont ) else ::SetFont( ::oWnd:oFont ) endif ::nTxtWidth = 0 ::nTxtHeight = GetTextHeight( ::hWnd, 0 ) ::aCaption = Array( MLCount( ::cCaption, 254 ) ) AEval( ::aCaption, {|c, n| ::aCaption[ n ] := Trim( MemoLine( ::cCaption, ...

... := aCoord[ 3 ], nRight := aCoord[ 4 ] local nRow := nTop local cLine, nFontHt SetTextColor( hDC, CLR_HBLUE) ofont1:Activate( hDC ) nFontHt := GetTextHeight( oCol:oBrw:hWnd, hDC ) DrawTextEx( hDC, ALLTRIM(odb1:ctitle), { nRow, nLeft, nRow + nFontHt + 4, nRight }, oCol:nDataStyle ) ofont1:DeActivate( ...

... hDC = ::hDC SetBkMode( hDc, 1 ) SetTextColor( hDC,::nClrText ) SelectObject( hDC, If( ::oFont != nil, ::oFont:hFont, 0 ) ) nTxtHeight := Max(14, GetTextHeight( ::hWnd )-2) FOR nX := 1 TO len(::cCaption) IF substr(::cCaption,nX,1) == " " // or seek for a CRLF TextOut( hDC,nR * nTxtHeight , 1 , ...

... naltura, nColorIndex, lVertAdjust ) METHOD CheckSpelling() METHOD End() METHOD EndPage() METHOD FillRect( aRect, oBrush ) METHOD GetTextHeight( oFont ) METHOD GetTextWidth(cText, oFont) METHOD GoBottom() INLINE ::oTexto:Invoke( 'EndKey', 6) METHOD GoTop() INLINE ::oTexto:Invoke( ...