Classe Richedit

[Pier Luigi]

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

Code: Select all | Expand

#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 NILSTATIC 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 oDlgRETURN 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