FWH 11.01: Memory leak with TRichEdit
Posted: Wed Mar 23, 2011 12:01 am
Hello!
With this code:
I get:
With this code:
Code: Select all
#include "FiveWin.ch"
#include "RichEdit.ch"
//----------------------------------------------------------------------------//
FUNCTION MAIN()
LOCAL oDlg, oRTF, hDLL
local cRTF := ""
SetResDebug()
hDLL := LoadLibrary( "Riched20.dll" )
DEFINE DIALOG oDlg FROM 1, 1 TO 22, 75 ;
TITLE "Test"
@ 3, 2 RICHEDIT oRTF VAR cRTF PIXEL SIZE 100, 100 OF oDlg
ACTIVATE DIALOG oDlg
FreeLibrary( hDLL )
FERASE("CHECKRES.TXT")
CHECKRES()
winExec("notepad .\checkres.txt")
return(0)
//----------------------------------------------------------------------------// 03/23/11 00:58:53: BRUSH,1480,TDIALOG:SETCOLOR(2477)->TDIALOG:NEW(196)->MAIN(17)
03/23/11 00:58:53: FONT,1496,TRICHEDIT:NEW(307)->MAIN(19)
03/23/11 00:58:53: FONT,1700,TDIALOG:GETFONT(2751)->TDIALOG:INITIATE(633)->TDIALOG:HANDLEEVENT(917)->DIALOGBOXINDIRECT(0)->TDIALOG:ACTIVATE(273)->MAIN(21)