Re: Insert Numbering

Return to index

Author

Message

Sergey Tkachenko

Posted: 02/21/2005 23:16:14

Process OnExecute event of TrvActionParaNumbering action:

procedure TForm3.rvActionParaNumbering1Execute(

  Sender: TObject);

var i: Integer;

begin

  // assigning the current font to the numbering

  for i := 0 to TrvActionParaNumbering(Sender).ListLevels.Count-1 do

    TrvActionParaNumbering(Sender).ListLevels[i].Font.Assign(

      RichViewEdit1.Style.TextStyles[Form3.RichViewEdit1.CurTextStyleNo]);

  // executing the default action procedure

  TrvActionParaNumbering(Sender).OnExecute := nil;

  try

    TrvActionParaNumbering(Sender).Execute;

  finally

    TrvActionParaNumbering(Sender).OnExecute :=

rvActionParaNumbering1Execute;

  end;

end;

> I have used the rvAction for insert a numbering. How can I insert the

> numbering follow the current selected font and font style. For example, in

> my editor I have set the font name to arial, then bold and Underline as

its

> style, I want the numbering to be inserted following the font setting on

> caret.

>

>