Pregunta sobre RichEdit...
Tengo el suguiente Codigo , al ejecutar me carga el documento , y en dicho documento tengo unos Link, para accesar el navegador o enviar un correo. El Problema es que al darle Click genera un error en el Ejecutable. Es un memnsaje de Windows ..FOLDER.Exe ha detectado un problema y debe cerrarse.
Alguien le ha pasado esto o como lo soluciono.
Aqui easta todo el ejemplo para poder reproducir el error.
[url]
http://www.4shared.com/zip/0WgmoHwa/file.html
[/url]
- Code: Select all Expand view
#include "fivewin.ch"
#include "RichEdit.ch"
function Main()
local oDlg, oFld, oGet, oRich, oRich1, oRich2, oBtn
local lSyntaxHL := .f.
local hDLL := LoadLibrary( "Riched20.dll" )
DEFINE DIALOG oDlg RESOURCE "DIALOGO";
TITLE "FiveWin Dynamic folders" ;
REDEFINE FOLDER oFld ID 4001 PROMPT "Fold1","Fold2","fold3" OF oDlg;
DIALOGS "Fold1","fold2","fold3"
oRich = TRichEdit():Redefine( 4001, { || "" }, oFld:aDialogs[1] )
oRich:lHighLight = .f.
oRich:LoadFromRTFFile( "GRACIAS.RTF" )
oRich1 = TRichEdit():Redefine( 4002, { || "" }, oFld:aDialogs[2] )
oRich1:lHighLight = .f.
oRich1:LoadFromRTFFile( "GRACIAS.RTF" )
oRich2 = TRichEdit():Redefine( 4003, { || "" }, oFld:aDialogs[3] )
oRich2:lHighLight = .f.
oRich2:LoadFromRTFFile( "GRACIAS.RTF" )
Redefine BUTTON oBtn ID 4004 OF oDlg ACTION oDlg:End()
ACTIVATE DIALOG oDlg CENTERED //;
// ON INIT oRich:AutoURLDetect( .t. )
FreeLibrary( hDLL )
return nil
procedure AppSys // Xbase++ requirement
return
- Code: Select all Expand view
// RESOURCE SCRIPT generated by "Pelles C for Windows, version 6.00".
#include <windows.h>
#include <commctrl.h>
#include <richedit.h>
LANGUAGE LANG_ENGLISH,SUBLANG_ENGLISH_US
DIALOGO DIALOGEX DISCARDABLE 6, 18, 266, 266
STYLE DS_SHELLFONT|WS_POPUP|DS_MODALFRAME|DS_3DLOOK|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION "Dialog"
FONT 8, "MS Shell Dlg", 0, 0, 1
{
CONTROL "", 4001, "SysTabControl32", TCS_MULTILINE, 4, 4, 260, 228
CONTROL " ", 4004, "Button", WS_TABSTOP, 108, 240, 50, 14
}
FOLD1 DIALOGEX DISCARDABLE 6, 18, 210, 142
STYLE DS_SHELLFONT|WS_CHILD|DS_MODALFRAME|DS_CONTEXTHELP|DS_3DLOOK|WS_SYSMENU|WS_VISIBLE
FONT 8, "MS Shell Dlg", 0, 0, 1
{
CONTROL "Rich-edit", 4001, "RichEdit20W", ES_MULTILINE|WS_VSCROLL|WS_BORDER|WS_TABSTOP, 0, 0, 208, 140
}
FOLD2 DIALOGEX DISCARDABLE 6, 18, 210, 142
STYLE DS_SHELLFONT|WS_CHILD|DS_MODALFRAME|DS_CONTEXTHELP|DS_3DLOOK|WS_SYSMENU|WS_VISIBLE
FONT 8, "MS Shell Dlg", 0, 0, 1
{
CONTROL "Rich-edit", 4002, "RichEdit20W", ES_MULTILINE|WS_VSCROLL|WS_BORDER|WS_TABSTOP, 0, 0, 208, 140
}
FOLD3 DIALOGEX DISCARDABLE 6, 18, 210, 142
STYLE DS_SHELLFONT|WS_CHILD|DS_MODALFRAME|DS_CONTEXTHELP|DS_3DLOOK|WS_SYSMENU|WS_VISIBLE
FONT 8, "MS Shell Dlg", 0, 0, 1
{
CONTROL "Rich-edit", 4003, "RichEdit20W", WS_BORDER|WS_TABSTOP, 0, 0, 208, 140
}