FiveTech Support Forums

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,

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.

Villian,

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

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

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.

Obrigado Vilian.

do not end font in timers or valid clauses.

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

Thanks MR.Nages