Classe Richedit

[Pier Luigi]

Ho un problema con la classe RichEdit.
Questo è il codice:

Code: Select all

#include "Fivewin.ch"
#include "Richedit.ch"

FUNCTION MAIN()

    LOCAL hDll := LOADLIBRARY( "RICHED20.DLL" )

    LOCAL oDlg

    LOCAL oRich, cVar := ""

    DEFINE DIALOG oDlg FROM 0, 0 TO 15, 40 TITLE "Test Richedit"

    @ 0, 0 RICHEDIT oRich VAR cVar SIZE 160,80 OF oDlg

    @ 5, 11 BUTTON "&Second" ACTION DIALOG_2()

    ACTIVATE DIALOG oDlg CENTER

    FREELIBRARY( hDll )

RETURN NIL

STATIC FUNCTION DIALOG_2()

    LOCAL oDlg

    LOCAL oRich, cVar := ""

    DEFINE DIALOG oDlg FROM 30, 100 TO 45, 140 TITLE "Second"

    @ 0, 0 RICHEDIT oRich VAR cVar SIZE 160,80 OF oDlg

    @ 5, 11 BUTTON "&First" ACTION oDlg:End()

    ACTIVATE DIALOG oDlg

RETURN NIL

Se chiudo il programma senza richiamare la seconda dialog è tutto ok.
Se richiamo la seconda dialog, torno sulla prima e chiudo il programma ottengo questo errore:

Harbour Exception

Called from RESETOLEUNINIT(0)

Ho l'impressione che, quando chiudo la seconda dialog, la funzione RESetOleUnInit( ::hWnd ) del metodo SetOleInit() effettui il reset anche dell'oggetto della prima dialog.

Potete aiutarmi?
Grazie.

Pier Luigi

[Enrico Maria Giordano]

Il tuo esempio a me non dà problemi. Uso le ultime versioni sia di FWH che di xHarbour (dal CVS) e BCC55.

EMG

[Pier Luigi]

Io uso FWH 7.04 + Harbour + BCC55.
Forse è un problema di Harbour ...

Pier Luigi

[Enrico Maria Giordano]

Provato anche con Harbour (sempre ultima versione dal CVS): nessun problema.

EMG

[Pier Luigi]

Anche con l'ultima versione di Harbour intercetto lo stesso errore.
D'altra parte, la funzione Resetoleuninit() (che provoca l'errore) è contenuta nella libreria FIVEH.LIB.

A questo punto dovrei acquistare l'ultima versione di FWH

Pier Luigi