Re: Assign current font to numbering

Return to index

Author

Message

CCY

Posted: 04/26/2005 5:54:40

Any idea??

Please give me some hints!! Urgent need...

"CCY" <[email protected]> wrote in message

news:[email protected]...

> var

>   nCounter: Integer;

> begin

>   inherited;

>   //assigning the current font to the numbering

>   for nCounter := 0 to TrvActionParaNumbering(Sender).ListLevels.Count - 1

> do

>     TrvActionParaNumbering(Sender).ListLevels[nCounter].Font.Assign(

>       rveEditor.Style.TextStyles[rveEditor.CurTextStyleNo]);

>   // executing the default action procedure

>   TrvActionParaNumbering(Sender).OnExecute := nil;

>   try

>     TrvActionParaNumbering(Sender).Execute;

>   finally

>     TrvActionParaNumbering(Sender).OnExecute :=

> rvActionParaNumberingExecute;

>   end;

>

> this is solution given for solving the problem where the insert numbering

> doesn't follow the current font type. It has some problems.

> 1. Select a font type then insert numbering, the numbering will follow the

> selected font type. Then I start typing. After that when I try highlight

the

> text to change its font type, the numbering doens't change its style

> accordingly.

> 2. Insert a numering, then start typing a few paragraph of words. After

> typing, try to change the font style from one of the line. Then unset the

> numbering of the line above. You will see what is shown in the attachment.

>

>

>