verwendet jemand XbpMLE:Format := 3 zum Anzeigen von RTF unter Windows 10 ?
wenn ja, habt ihr Situationen wo er beim oMLE:SetData(cRTF) "hängt"
Code: Alles auswählen
::Descript:dataLink := { | x | IIF( PCOUNT() == 0, ::EditOrNot( ( ::PDRS )->DESCRIPT ), ( ::PDRS )->DESCRIPT := x ) }
::Workaround:dataLink := { | x | IIF( PCOUNT() == 0, ::EditOrNot( ( ::PDRS )->WORKAROUND ), ( ::PDRS )->WORKAROUND := x ) }
METHOD PdrLfuDialog:EditOrNot( cField )
LOCAL cLine1 := "{\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl{\f0\fswiss\fcharset0 Arial;}}"
LOCAL cLine2 := "{\colortbl ;\red255\green0\blue0;}"
LOCAL cLine3 := "{\*\generator Msftedit 5.41.15.1515;}\viewkind4\uc1\pard\f0\fs18 "
LOCAL cADpar := "\f1\fs20\par }"
LOCAL cMemo := ( cField )
IF ::lEdit = .T. .OR. SP_RTFtextel() = .F. .OR. EMPTY( ALLTRIM( cMemo ) )
// pure ASCI
ELSE
...
cLine3 := "{\*\generator Msftedit 5.41.15.1515;}\viewkind4\uc1\pard\f0\fs28 "
cMemo := cLine1 + cLine2 + cLine3 + cMemo + ( cADpar )
cMemo := STRTRAN( cMemo, CRLF, "\par " )
ENDIF
RETURN cMemo // <- hier hängt er wenn er zu o:SetData() zurück kehrt
klar das es funktioniert wenn ich SP_RTFtextel(.F.) setzte aber dann habe ich nicht den "optischen" Farben Effekt wie mit RTF.
jemand einen Tip wie man das unter Windows 10 wieder zum laufen bekommt