- Code: Select all Expand view
#include "Fivewin.ch"
#include "Richedit.ch"
FUNCTION MAIN()
LOCAL hDll := LOADLIBRARY( "RICHED20.DLL" )
LOCAL oDlg
LOCAL oRich, cVar := ""
DEFINE DIALOG oDlg
@ 0, 0 RICHEDIT oRich VAR cVar
ACTIVATE DIALOG oDlg;
ON INIT oDlg:SetControl( oRich );
CENTER
FREELIBRARY( hDll )
RETURN NIL
EMG