FiveTech Software tech support forums

... aparece automoaticamente, me puse a depurar los fuentes. Casi resolvi todo, a excepcion de: 11/12/2019 09:53:45: EXCESS RELEASE OF FONT Segoe UI[ hFont : 0] ( nCount : 0 ) <-TFONT:END(284) <-TCONTROL:DESTROY(2124) <-TOUTLOOK2010:DESTROY(424) <-TAPPLICATIONWITHDLL:ACTIVATE(1494) <-MAIN(834) ...

... aparece automoaticamente, me puse a depurar los fuentes. Casi resolvi todo, a excepcion de: 11/12/2019 09:53:45: EXCESS RELEASE OF FONT Segoe UI[ hFont : 0] ( nCount : 0 ) <-TFONT:END(284) <-TCONTROL:DESTROY(2124) <-TOUTLOOK2010:DESTROY(424) <-TAPPLICATIONWITHDLL:ACTIVATE(1494) <-MAIN(834) ...

... I added Line 93 // DEFAULT nWidth := SAY_CHARPIX_W * Len( ::cCaption ) - 4 DEFAULT nWidth := GetTextWidth( 0, ::cCaption, If( oFont != nil, oFont:hFont,; If( oWnd:oFont != nil, oWnd:oFont:hFont,) ) ) + 5 because NO textwidth and height is defined ( DEFAULT-values ) should be corrected for a undefined ...

Hola.. estoy actualizando versiones y cuando ejecuto empezó a generar un .LOG con lo siguiente: EXCESS RELEASE OF FONT Courier New[ hFont : 0] ( nCount : -2 ) <-TFONT:END(285) <-TCONTROL:DESTROY(2166) <-TMULTIGET:DESTROY(523) <-TWINDOW:HANDLEEVENT(0) <-TMULTIGET:HANDLEEVENT(1731) ...

Any News ??

After using sbutton the font of sbutton is changed


Before

http://prntscr.com/nr8o6h



After

http://prntscr.com/nr8nqy


tx

... {nElemento,cSettore,cTypeRoom,nStatus } aBmps[nY,nX]:bPainted:= { |hDC| FW_SayText( hDC, ltrim(str(nElemento)), { 30, 2, 48, 25 },,oFontOmbrelloni:hFont, CLR_WHITE, nARGB(255,COLOR_ARANCIONE) , .t. ) } next nx next ny https://i.postimg.cc/ZKT3SFB0/jj.png write all zero as you can ...

and with... :bPainted := { | hDC, cP, oBtn | DrawText2(hDC, oFont:hFont, 2, LTrim( Str(oBtn:Cargo)) + " " ,2, 20, 34, 62,CLR_WHITE, CLR_RED )} FUNCTION DrawText2( hDC, hFont, nBkMode, cText, nTop, nLeft, nWidth, nHeight,color,color2 ) LOCAL hFontOld:= ...

Otto, mycent... try with :bPainted := { | hDC, cP, oBtn | DrawText2(hDC, oFont:hFont, 1, LTrim( Str(oBtn:Cargo)) + " " ,2, 30, 34, 62, CLR_WHITE )} FUNCTION DrawText2( hDC, hFont, nBkMode, cText, nTop, nLeft, nWidth, nHeight,color ) LOCAL hFontOld:= SelectObject( ...

... oBtnLeft SIZE 16, 16 OF Self oBtnLeft:hBitmap1 := LoadBitmap( 0, 32750 ) oBtnLeft:bAction := {|| Msginfo() } oBtnLeft:oFont := ::oWnd:oFont2:hFont I sent you test test Application===========   Path and name: C:\Work\errori\dashboard\TEST.Exe (32 bits)   Size: 3,643,904 ...

It is still created logerror() file. 18/01/18 09:09:28: EXCESS RELEASE OF FONT Tahoma[ hFont : 0] ( nCount : 0 ) <-TFONT:END(285) <-TCONTROL:DESTROY(2154) <-TSBUTTON:DESTROY(971) <-TWINDOW:HANDLEEVENT(0) <-TCONTROL:HANDLEEVENT(1731) <-TSBUTTON:HANDLEEVENT(1322) ...

Dutch, Please try it this way: METHOD Destroy() CLASS TSButton   ::FreeBitmaps()   If Empty( ::cCaption )      ::oFont:End() // changed   EndIf   If ::lAnimated      If oAnima != Nil         oAnima:End()         oAnima := Nil      EndIf   EndIfreturn ::Super:D...

I've remark ::Super:Destroy(). The logerror() file is not created anymore. What is the problem, if I do it? * ============================================================================* METHOD TSButton:Destroy() Version 7.0 Oct/31/2009* =====================================================...

... and it create a log file every time I end font object. It seem NO FONT OBJECT to :end(). 01/17/2018 16:09:04: EXCESS RELEASE OF FONT Tahoma[ hFont : 0] ( nCount : 0 ) <-TFONT:END(285) <-MAIN(32) // Testing GETs#include "FiveWin.ch"#include "TSbutton.ch"function Main()  ...

... close. It doesn' make any error but I would like to disable these messages for the final release. 11/30/17 16:18:52: EXCESS RELEASE OF FONT Arial[ hFont : 0] ( nCount : 0 ) <-TFONT:END(285) <-TCONTROL:DESTROY(2154) <-TBTNBMP:DESTROY(952) <-(b)TBTNBMP:TBTNBMP(178) <-TBTNBMP:END(0) ...

... is creating log. NOTE: The problem only happens if you press the ESC KEY on WINDOW. 08/06/2017 14:09:00: EXCESS RELEASE OF FONT Lucida Console[ hFont : 0] ( nCount : 0 ) <-TFONT:END(284) <-VALID_MESA(72) <-(b)EVAL(63) <-(b)MSGRUN(37) <-(b)TDIALOG(95) <-TDIALOG:DISPLAY(0) <-TDIALOG:HANDLEEVENT(901) ...