TRichView.com

Hello,

Finally I got it working

1) add TRichViewEdit=1 in nsapps.ini
2) handle this messages

TRichViewEdit = class(RVEdit.TRichViewEdit)
private
FLastPos: Integer;
FLastChar: Integer;
FLastLen: Integer;
FLastText: string;
procedure EMReplaceSel(var Msg: TMessage); message EM_REPLACESEL ...

Hello,

I'm still playing with the Dragon

to implement EM_POSTFROMCHAR I need to return the pixel position of the nth character for the text

I've made a quick test with TMemo with a the text "test"

EM_POSFROMCHAR -1, 0 returns $FFFFFFFF
EM_POSFROMCHAR 0, 0 returns MakeLong(1, 4)
EM_POSFROMCHAR 1 ...