FiveTech Software tech support forums

It shows the same error in the same line.

23/05/17 17:53:04: EXCESS RELEASE OF FONT Tahoma[ hFont : 0] ( nCount : 0 )
<-TFONT:END(285) <-REPORT(86) <-(b)MAIN(267) <-TWINDOW:ACTIVATE(1022) <-MAIN(267)

... oDlg CENTER RESIZE16oFnt1:End()oFnt2:End()oFnt:End() <- Line 84 23/05/17 14:27:54: EXCESS RELEASE OF FONT Tahoma[ hFont : 0] ( nCount : 0 ) <-TFONT:END(285) <-REPORT(84) <-(b)MAIN(266) <-TWINDOW:ACTIVATE(1022) <-MAIN(266) ------------------------------------------------------------ ...

Cristobal, some compiler Errors in menudraw.c: You must calculate the error-linenumber -9 as i compile with #pragma begindump! Warnung W8004 C:\\prg_allgemein\\menudraw.prg 1699: 'nPos' wurde ein Wert zugewiesen, der nie verwendet wird in Funktion FwSelectedItem(tagDRAWITEMSTRUCT *,HMENU__ *,int,lon...

... object in this way: CFontBot: END () But this is creating a log with this message: 10/03/2017 11:57:02: EXCESS RELEASE OF FONT Ms Sans Serif [hFont: 0] (nCount: 61) <-TFONT: END (284) <-TWINDOW: DESTROY (2145) <- (b) TDIALOG: TDIALOG (91) <-TDIALOG: DESTROY (0) <-TWINDOW: HANDLEEVENT ...

... ), ; WndChild():SetFocus() } the WndChild() function return the oControl SAY active ( lactive) on dialog it make error because not found hfont how I can change the font ( cfontname and sizes ) of the say ?

... TRADEW := XSCREEN PUBLIC TRADEH := YSCREEN - BUTTON_HEIGHT PUBLIC TRADEX := 0 PUBLIC TRADEY := 0 PUBLIC CUT800 := 230 PUBLIC CUT1024 := 230 PUBLIC HFONT := GETSTOCKOBJECT(OEM_FIXED_FONT) PUBLIC PRINTPORT := "1" PUBLIC ABUTTONS := {} PUBLIC TOTBUTTON := 0 PUBLIC BUTTNBLOCK PUBLIC TEMPTOTCOMM ...

... lo mismo ocurre con otros recursos como los brush ( CreateBrushIndirect ) Para ello, puedes utilizar la function hNewFont := CREATEFONTAS( oFont:hFont, oFont:lbold, oFont:lUnder, oFont:lItalic, oFont:nHeight ) //y, en tu caso, sería, por ejemplo ( para cambiar de bold o no bold y viceversa ) ...

... Default .F. If .t., single line border is drawn * Enhancement: Extended paramters for the function DrawTextEx( hDC, cText, aRect, nStyle, [hFont], ; [nTextClr], [@nRight] ) --> nHeight Additional optional parameters hFont and nTextClr are intended to simplify the code in the calling ...

... and assign a font object to it on the basis of font metrics of the dialog. Theoretically this assigned font object should be identical to the hFont of the dialog when created from resource. The relevant part of the code is this:  if ::oFont == nil      if ( hFont := ::SendMsg( WM_GETFONT ...

... a log with this conntent ------------------------------------------------------------ 25/05/2016 22:17:12: EXCESS RELEASE OF FONT Ms Sans Serif[ hFont : 0] ( nCount : -2 ) <-TFONT:END(284) <-TCONTROL:DESTROY(2132) <-TBTNBMP:DESTROY(925) <-TWINDOW:HANDLEEVENT(0) <-TCONTROL:HANDLEEVENT(1733) ...

... ventana ( "objeto gráfico" ) Msginfo( oWnd:hWnd )  Cada objeto de tipo " gráfico " tiene su identificador FONT -> hFont BRUSH -> hBrush etc Buenas tardes Cristobal, gracias por la breve explicacion y ejemplo le agradezco su atencion Saludos Rosa

... ( "objeto gráfico" ) Msginfo( oWnd:hWnd )  Cada objeto de tipo " gráfico " tiene su identificador FONT -> hFont BRUSH -> hBrush etc

... 2. test with 1 button I 'm getting the following messages iside the LOG file From the 1. test 08.04.2016 22:55:31: EXCESS RELEASE OF FONT Arial[ hFont : 0] ( nCount : 0 ) <-TFONT:END(284) <-MAIN(179) ------------------------------------------------------------ from the 2. test 08.04.2016 ...

To own c-files should be added the fwh.h and all constructs "( HDC ) hb_parnl( param )" should now be wrote as "( HDC ) fw_parH( param )" to be compatible.

Antonio this should expanded to HWND and HFONT too!

Have you tried to change the width of the column ?

oBrw:aCols[ ... ]:nWidth := GetTextWidth( 0, "textwithdesiredwidth", oBrw:hFont )