Re: how can i implement a TucLineEdit ?

Return to index

Author

Message

Sergey Tkachenko

Posted: 11/06/2003 10:25:32

Try to process OnVScrolled, and set VScrollPos := 0;

> unicode single line edit ( like Tedit ).

>

> my current settings are:

>

> editorOptions :=  [rvoDoNotWantReturns, rvoDoNotWantShiftReturns ];

> RTFReadProperties.paraStyleMode := rvrsUseSpecified;

> RTFReadProperties.textStyleMode := rvrsUseSpecified;

> curParaStyleNo := 0; curTextStyleNo := 0;

> style.paraStyles[0].options := style.paraStyles[0].options +

[rvpaoNoWrap];

> style.textStyles[0].unicode := true;

> I also use onPaste-event to allow pasting from unicode/ansicode only.

>

> ********

> This works, but still missing, at least:

> I don't know how to disable the vertical scrolling-effect (from

cursor-key)

>

>

> Thank you

>

>

>