FiveTech Software tech support forums

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

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

... "Segoe UI", "Ms Sans Serif" ) FWH reuses fonts in order to reduce the GDI consume. Class TFont has the DATAs nCount, lDestroy to know in how many different places the font is being used. lDestroy becomes true to know when the font has to be destroyed finally. ...

Mr. Rao. many thanks for the explanation. You can see that I get ( nCount : -2 ), this means that I release the font more times than I create or use, but how you say, I only create one time and release one time. Maybe my problems is that I change the say's ...

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

Quizás esta funcion te sirva

AScan(<aTargets>, <expSearch>, [<nStart>], [<nCount>],[<lExact>], [<lASCII>]) -> nStoppedAt

... 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 22:58:34: EXCESS ...

... a public variable to hold the font!? This is the log after 1 call to a dialog: 08.01.2016 21:28:49: EXCESS RELEASE OF FONT Segoe UI[ hFont : 0] ( nCount : 0 ) <-TFONT:END(284) <-TCONTROL:DESTROY(2132) <-TGET:DESTROY(0) <-TWINDOW:HANDLEEVENT(0) <-TCONTROL:HANDLEEVENT(1733) <-TGET:HANDLEEVENT(0) ...

... es released excesivamente. En algún punto de tu programa hay un oFont:End() de más. Para comprobarlo y como solución cortoplacista es poner oFont:nCount:= 999 Revisa: http://forums.fivetechsupport.com/viewtopic.php?f=6&t=30017&hilit=ncount&start=15#p171326 http://forums.fivetechsupport.com/viewtopic.php?f=6&t=30228&start=0&hilit=ncount ...

... me ha gustado mucho. Baje del link de fivedit2 y con Windows 10 y me da el siguiente error: Error description: Erro BASE/1004 No exported method: NCOUNT Called from: => NCOUNT(0) Called from: fivedit.prg => MAIN(63) Lo descargue del link que publico Antonio.

Usas fonts en tu aplicación ?

En el font que usas para los botones haz:

oFont:nCount++

... before running the locate code. xHarbour help <Scope> This option defines the number of records to scan. It defaults to ALL. The NEXT <nCount> scope scans the next <nCount> records, while REST scans records beginning from the current record to the end of file. The search begins ...

... Local nReg:=TablaRecout("exi_suc") Local oma_arti,cSql,cExi_Det Local totini,totent,totsal Local oCmd,oRsCmd Local nCount:=0 nActual := 0 nTotal := 0 oCmd:=TOleAuto():New("ADODB.Command") oCmd:CommandText :="select count(*) from exi_suc WHERE sto_ok='"+"1'" ...

... ) No aparece nada, lo que creo que esta bien. Pero en Miapp.log me sale 09/03/2015 12:02:27: EXCESS RELEASE OF FONT MS SANS SERIF[ hFont : 0] ( nCount : 0 ) <-TFONT:END(246) <-MAIN(322) ------------------------------------------------------------ 09/03/2015 12:02:27: EXCESS RELEASE OF ...

... Probé efectivamente ::SetFont( oFont ) sin éxito. Sigue diciendo 23/02/2015 14:51:26: EXCESS RELEASE OF FONT Ms Sans Serif[ hFont : 0] ( nCount : 0 ) <-TFONT:END(246) <-MSGDATE(176) <-MAIN(47) ------------------------------------------------------------ Pongo un ejemplo a ver ...