FWH 11.01: Memory leak with TRichEdit

[IBTC]

Hello!

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)

//----------------------------------------------------------------------------// 

I get:

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)