habe mit TxControl 9.1(alte Lizenz) versucht, einen MemoEdit Ersatz zusammenzubauen,
das Aufrufen und Editieren funktioniert, jedoch beim Speichern des geänderten Memotextextes bekomme ich eine Fehlermeldung:
oError:description : Falscher Objekt Status
oError:filename :
oError:genCode : 104
oError:operation : XBPACTIVEXCONTROL:GETNOIVAR
oError:osCode : 0
oError:severity : 2
oError:subCode : 0
oError:subSystem : BASE
oError:thread : 3
oError:tries : 0
------------------------------------------------------------------------------
CALLSTACK:
------------------------------------------------------------------------------
Aufgerufen von EXCEPTION:RAISE(195)
Aufgerufen von EXCEPTION:RAISEOBJECTSTATE(259)
Aufgerufen von XBPACTIVEXCONTROL:GETNOIVAR(1265)
Code: Alles auswählen
LOCAL cText := text->txt // memo
@ 3,2 DCSTATIC type XBPSTATIC_TYPE_TEXT object oStatic1 SIZE 80,20 TABSTOP
DCREAD GUI;
TO lSpeichern;
TITLE "Text Dokument bearbeiten";
PARENT @oDlg;
OPTIONS GetOptions ;
EVAL {||MyCreateTxControl(@oTxMenu,.T.,.T.,oDlg,oStatic1,@oStatic1,@oTxControl,@oTxButtonBar,@oTxStatusBar,cText,.F.)}
IF lSpeichern .AND. rec_lock()
REPLACE text->txt WITH oTxControl:Text // hier kommt Fehler !!
ENDIF
FUNCTION MyCreateTxControl(oTxMenu,lResizeable,lEditAble,oOwner,oWindow, oDlgArea,oTxControl,oTxButtonBar,oTxStatusBar,cMemoText,lIsDatei )
.........
oTxControl:Text := (hardcr(cMemoText))
...........
RETURN oTxControl
Gruß Peter