[Bug 4144] Numerous RichText problems

[Wine Bugs]

http://bugs.winehq.org/show_bug.cgi?id=4144

------- Additional Comments From [e-mail]  2005-30-12 00:06 -------
Try clicking on the 'Reset Color' button.  All this does is
invoke the function
Private Sub bBlack_Click()
  With T1
    .SelStart = 0
    .SelLength = Len(T1.Text)
    .SelColor = vbBlack
    .SelStart = 0
  End With
End Sub
in file F1.frm.  Wine can't handle this, and the program exits
with a dialog box saying "Run-time error 380: invalid property value".
Here's an exerpt of the log with +ole,+richedit:

trace:richedit:ME_SplitByBacktracking Must backtrack to split at: L"strictly
enforced so you may see both. "
trace:richedit:ME_UpdateScrollBar min=0 max=2097 page=363 pos=1734 shift=0
trace:richedit:RichEditANSIWndProc hWnd 0x1004c msg 2111 () 04000000 0001004c
trace:richedit:RichEditANSIWndProc hWnd 0x1004c msg 0434 (EM_EXGETSEL) 00000000
7bb18450
trace:richedit:RichEditANSIWndProc EM_EXGETSEL = (0,10380)
trace:ole:CreateErrorInfo (0x7bb1e948)
trace:ole:IErrorInfoImpl_QueryInterface (0x7bcbc970)->(
        IID:    {22f03340-547d-101b-8e65-08002b2bd119},0x7bb1e948)
trace:ole:ICreateErrorInfoImpl_AddRef (0x7bcbc970)
trace:ole:IErrorInfoImpl_AddRef (0x7bcbc970)->(count=1)
trace:ole:IErrorInfoImpl_QueryInterface -- Interface: (0x7bb1e948)->(0x7bcbc974)
trace:ole:IErrorInfoImpl_Release (0x7bcbc970)->(count=2)
trace:ole:ICreateErrorInfoImpl_SetGUID
(0x7bcbc970)->({e9a5593c-cab0-11d1-8c0b-0000f8754da1})
trace:ole:ICreateErrorInfoImpl_SetHelpFile (0x7bcbc970,L"RTFBox98.CHM")
trace:ole:ICreateErrorInfoImpl_SetHelpContext (0x7bcbc970,380)
trace:ole:ICreateErrorInfoImpl_SetDescription (0x7bcbc970): L"Invalid property
value"
trace:ole:ICreateErrorInfoImpl_SetSource (0x7bcbc970): L"RichtextCtrl"

A similar error happens if you click "Find" after entering text
in the search box; the text is found and highlit, and then
you get the same error dialog box, and the program quits.
Here's an excerpt of a +ole,+richedit log:

fixme:richedit:ME_FindText Case-insensitive search not implemented
trace:richedit:ME_FindText found at 10343-10344
trace:richedit:RichEditANSIWndProc hWnd 0x2003c msg 0437 (EM_EXSETSEL) 00000000
7bb1eb7c
trace:richedit:RichEditANSIWndProc EM_EXSETSEL (10343,10344)
trace:richedit:ME_StrRelPos L"strictly enforced so you may see both. ",0,&26
trace:richedit:ME_StrRelPos L"strictly enforced so you may see both. ",0,&27
trace:richedit:ME_StrRelPos L"strictly enforced so you may see both. ",0,&27
trace:richedit:ME_StrRelPos L"strictly enforced so you may see both. ",0,&26
trace:richedit:ME_StrRelPos L"strictly enforced so you may see both. ",0,&27
trace:richedit:RichEditANSIWndProc hWnd 0x2003c msg 0014 () 00000f08 00000000
trace:richedit:RichEditANSIWndProc hWnd 0x2003c msg 000f () 00000f08 00000000
trace:richedit:RichEditANSIWndProc hWnd 0x2003c msg 0434 (EM_EXGETSEL) 00000000
7bb183e4
trace:richedit:RichEditANSIWndProc EM_EXGETSEL = (10343,10344)
trace:richedit:RichEditANSIWndProc hWnd 0x2003c msg 00b7 (EM_SCROLLCARET)
00000000 00000000
fixme:richedit:RichEditANSIWndProc EM_SCROLLCARET: stub
trace:ole:_invoke returns 00000000
trace:ole:ITypeInfo_fnInvoke varresult: 0x7bb1ec74->{VT_I4|VT_BYREF,0x7bbb4882}
trace:ole:ITypeInfo_fnInvoke -- 0x00000000
trace:ole:ITypeInfo_fnRelease (0x7bcb39c0)->(2)
trace:ole:ITypeLib2_fnRelease (0x7bc8edb8)->(1)
trace:ole:ITypeLib2_fnAddRef (0x7bc8edb8)->ref was 1
trace:ole:ITypeInfo_fnAddRef (0x7bcb39c0)->ref is 3
trace:ole:SetErrorInfo (0, (nil))
trace:ole:ITypeInfo_fnInvoke
(0x7bcb39c0)(0x7bc8b470,id=8,flags=0x00000004,0x7bb1ede8,(nil),0x7bb1edc8,0x7bb1edf8)
trace:ole:dump_DispParms args=1 named args=1
trace:ole:dump_Variant 0x7bb1ee50->{VT_I4|VT_BYREF,0x7bb1ef58}
trace:ole:ITypeInfo_fnInvoke invoking:
trace:ole:_invoke Calling 0x200079f5(7bc8b470,929083f6,)
trace:ole:CreateErrorInfo (0x7bb1e8a4)
trace:ole:IErrorInfoImpl_QueryInterface (0x7bcbce90)->(
        IID:    {22f03340-547d-101b-8e65-08002b2bd119},0x7bb1e8a4)
trace:ole:ICreateErrorInfoImpl_AddRef (0x7bcbce90)
trace:ole:IErrorInfoImpl_AddRef (0x7bcbce90)->(count=1)
trace:ole:IErrorInfoImpl_QueryInterface -- Interface: (0x7bb1e8a4)->(0x7bcbce94)
trace:ole:IErrorInfoImpl_Release (0x7bcbce90)->(count=2)
trace:ole:ICreateErrorInfoImpl_SetGUID
(0x7bcbce90)->({e9a5593c-cab0-11d1-8c0b-0000f8754da1})
trace:ole:ICreateErrorInfoImpl_SetHelpFile (0x7bcbce90,L"RTFBox98.CHM")
trace:ole:ICreateErrorInfoImpl_SetHelpContext (0x7bcbce90,380)
trace:ole:ICreateErrorInfoImpl_SetDescription (0x7bcbce90): L"Invalid property
value"
trace:ole:ICreateErrorInfoImpl_SetSource (0x7bcbce90): L"RichtextCtrl"