Marco Turco wrote:Great !! Adding oFld:SetFont( oWnd:oFont ) all seem to runs well (tested on 1000 open/close).
Do you think could it be possible to fix directly the tFolder class (or the FWH class related to the problem) ?
Hi Rao,
it isn't very clear what you mean.
With FWH oct 2009 all runs well with or without the oFld:Setfont(oWnd:oFont) addition.
#include "fivewin.ch"
function main()
local oWnd,oBtn
define window oWnd
@1,1 button oBtn action consultas()
activate window oWnd
FERASE("CHECKRES.TXT")
CHECKRES()
winExec("notepad .\checkres.txt")
return nil
FUNCTION Consultas()
LOCAL oFnt, oDlg
DEFINE FONT oFnt NAME "Ms Shell Dlg" SIZE 0, -10
DEFINE DIALOG oDlg OF wndMain() FONT oFnt
@ 1,1 say "test font" of oDlg
ACTIVATE DIALOG oDlg
oDlg := NIL
oFnt:end()
RETURN ( NIL )James,
With your sample I found something interesting: if I add @1,1 button oBtn action NIL to the main window of my app the problem goes away!
Andre