I found the point of my problem case for creating logerror() file. This is TESTGET.PRG in sample folder.
I just add SBUTTON.LIB 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)
- Code: Select all Expand view
- // Testing GETs
#include "FiveWin.ch"
#include "TSbutton.ch"
function Main()
LOCAL oDlg, oGet, oFont
LOCAL cCad := "Testing " // pad("Testing Gets",40)
LOCAL nNum := 0
LOCAL dDat := Date()
Set century On
Set Date Ansi
Set Date format "mm/dd/yyyy"
SET _3DLOOK ON
DEFINE FONT oFont NAME 'Tahoma' SIZE 0, -14
DEFINE DIALOG oDlg TITLE "TGet from " + FWDESCRIPTION FONT oFont
@ 1, 2 SAY "Text..:" OF oDlg
@ 1, 6 GET oGet VAR cCad OF oDlg SIZE 60, 10 COLOR "W/G" PICTURE "@K"
@ 1.8, 2 SAY "Number:" OF oDlg
@ 2, 6 GET oGet VAR nNum OF oDlg SIZE 60, 10 PICTURE "9999999.99"
@ 2.6, 2 SAY "Date:" OF oDlg
@ 3, 6 GET oGet VAR dDat PICTURE "@E" OF oDlg SIZE 60, 10 // "@D"
@ 3, 7 SBUTTON oBtn PROMPT "&Ok" OF oDlg SIZE 30, 12 ACTION oDlg:End()
@ 3, 16 BUTTON "&Cancel" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL
ACTIVATE DIALOG oDlg CENTERED
oFont:End()
return nil
The problem line is ::Super:Destroy()
- Code: Select all Expand view
- * ============================================================================
* METHOD TSButton:Destroy() Version 7.0 Oct/31/2009
* ============================================================================
METHOD Destroy() CLASS TSButton
::FreeBitmaps()
If Empty( ::cCaption )
::oFont := Nil
EndIf
If ::lAnimated
If oAnima != Nil
oAnima:End()
oAnima := Nil
EndIf
EndIf
::Super:Destroy() <-- I think, It is compatible with FWH1711
Return 0
How can I fix it?
Thank you in advance for any help and suggestion.
Dutch
