With this code:
- Code: Select all Expand view
- #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)
