Re: rv.AddLineBreak ?

Author

Message

Mats

Posted: 04/11/2003 14:51:24

Thanks!

Solved the problem by using Checkpoints instead.

By placing a Checkpoint on Both sides of the original paragraph, and allowing

adding of paragraphs between the checkpoints, I can still track "what's going

on".

Many thanks.

"Sergey Tkachenko" <svt@trichview.com> wrote:

>Hi,

>This simplest way to do it is by modifying RichView sources: open RVEdit.pas

>and move KeyDown method to the public section of the class declaration.

>Now you can write:

>procedure TForm3.RichViewEdit1KeyDown(Sender: TObject; var Key: Word;

> Shift: TShiftState);

>begin

> if (Key = VK_RETURN) and not (ssShift in Shift) then begin

> TCustomRichViewEdit(Sender).KeyDown(Key, Shift+[ssShift]);

> Key := 0;

> end;

>end;

>PS: mixing editing operations with operations introduced in viewer

>(TCustomRichView) like AddNLTag is dangerous for undo/redo buffers.

>Viewer methos should be used on initial stages, after calling Clear and

>before editing.

>> Hi there.

>> I'm trying to add a LineBreak into a Paragraph when in editing.

>> (RichViewEdit)

>> I don't want the addition of another paragraph when the user hits the

>> Enter-key, instead I want to simulate the Shift-Enter. But I still want

>the

>> user to be able to hit the Enter key to start typing on a new line, but

>> the same paragraph. ( I don't want to bother the user with the use of

that

>> shift key)

>> I have tried the following, in On keyDown;

>> case Key of

>> ...

>> VK_RETURN:

>> begin

>> Key := 0;

>> myitem := rv.CurItemNo; // used to restore cursor pos.

>> rv.SetAddParagraphMode(False);

>> rv.AddNLTag('',somestyleID,someparagraphID,myTag);

>> rv.SetAddParagraphMode(True);

>> rv.Format;

>> ... some code

>> end;

>> ....

>> But I have problems restoring the cursor possition, etc..

>> Can this be done? Can I send A win_message faking the Shift-Enter key?