EXCESS RELEASE OF FONT - oFonte:End()

[MGA]

In a window at the end of the font the system 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) <-DIALOGBOXINDIRECT(0) <-TDIALOG:ACTIVATE(296)
------------------------------------------------------------



oFonteBotao := TFont():New('Lucida Console' , -0, -12,.f.,.f.)

define window s_oWndMesas title '.:: Mesas ::.' mdichild of M->oWnd vscroll


@ 10,10 BTNBMP aMesas[n] OF s_oWndMesas ;
TOP SIZE 100,100 ;
PROMPT cDescricao 2007 ;
RESOURCE MESA_FECHADA ;
FONT oFonteBotao
ACTION ( MSGINFO('TESTE') ) ;
PIXEL


activate window s_oWndMesas maximized on init(On_Init( oTimer ));
valid(ValidWindow( oFonteBotao), .t. )

return

/********************************************************************************/
static procedure ValidWindow( oFonteBotao )
/*
*/
oFonteBotao:End()
HB_GCALL(.t.)
return

[vilian]

SGS,

Look at this:

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=34186&p=202608&hilit=release#p202608

[MGA]

Vilian,

your link returns to this same post, I just add that I'm working with a WINDOW and not a DIALOG.

NOTE: The problem only happens if you press the ESC KEY on WINDOW.

[vilian]

Here is the right link:

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=33757&p=201999&hilit=RELEASE#p201999

[MGA]

Villian,

The problem happens when you press ESC on a WINDOW. If I close the window by X it works fine.

[vilian]

SGS,

Look at your code and search for thinks like oObj:oFont := oFont
You must replace it for oObj:SetFont( oFont ) or use its FONT clause.

[MGA]

Vilian,

oFonteBotao: = TFont (): Novo ('Lucida Console', -0, -12, .f.,. F.)

Define janela s_oWndMesas título '. :: Mesas ::.' Mdichild de M-> oWnd vscroll

@ 10,10 BTNBMP aMesas [n] OF s_oWndMesas;
TOP TAMANHO 100,100;
PROMPT cDescricao 2007;
RECURSO MESA_FECHADA;
FONT oFonteBotao
ACTION (MSGINFO ('TESTE'));
PIXEL

[vilian]

SGS,

IF your program is creating a .log file with this message, certainly you have what I wrote in my previous message in somewhere(Eg: Other functions, etc). Fix it and .log file will not be created.

[MGA]

Obrigado Vilian.

[nageswaragunupudi]

do not end font in timers or valid clauses.

What you need to do after the end of MDICHILD, do it in oWnd:bPostEnd

[MGA]

Thanks MR.Nages