TRichView.com

Will send a 'before and after' set of two files via e-mail. Probably you're right about ANSI to Unicode being the cause of the growth, since the styles that 'remain' after the conversion are Unicode styles.

Just a question to make sure I'm not doing something wrong. When I do the conversion on my test file to force its current 26 text styles to be one of three styles by using

FMain.RichViewEdit1.ApplyTextStyle([0,1 or 2]) on the selected columns the result seems fine and the number of styles after ...

Perfect! Just the functionality I was looking for!

Thanks Very Much

Yes - for many operations.

This relates to the Change Font In Table Cell question - which had a relatively easy solution.

Now I would like to add the option to change the text in each table cell to the same BASE (typeface and any font effects - e.g. Arial, bold) but retain the rest of the 'font effects' relating to each text ...

Thank you for your comments, Sergey - I will clean up the code as you suggest. Not necessary to do multiple tables - there is only ONE master :-).

Please see my new post, though - as I've decided it would be nice to allow the user to retain the 'font effects' and change only the typeface - this ...

And the winner is:

for i := Fmain.RichViewEdit1.ItemCount - 1 downto 0 do
begin
case Fmain.RichViewEdit1.GetItemStyle(i) of
rvsTable:
Table := TRVTableItemInfo(Fmain.RichViewEdit1.GetItem(i));
end;
end;
ItemNo := Fmain.RichViewEdit1.GetItemNo(table);
Fmain.RichViewEdit1.BeginItemModify ...

Perhaps rather than showing bad solutions, I should just state the problem :-)

I wish to apply an arbitrary existing style to the text items in a table cell - the text items can be of any style (and multiple styles) and be unicode or not and the existing style I want to apply may be Unicode or not ...

Hi Sergy,

I've made some progress with this using the following code:

//Check Unicode status of Question Default Font
IsUnicode := FMain.RVStyleQ.TextStyles[1].Unicode;
for i := 0 to MasterRVTable.RowCount - 1 do
begin
for j := 0 to MasterRVTable.Cells[i,1].ItemCount - 1 do
begin ...

I've figured out how to AVOID changing the style if it will cause a problem by:

//Check Unicode status of Question Default Font
IsUnicode := FMain.RVStyleQ.TextStyles[1].Unicode;
for i := 0 to MasterRVTable.RowCount - 1 do
begin
for j := 0 to MasterRVTable.Cells[i,1].ItemCount - 1 do
begin ...

It's not necessary to make the change undo-able.

Could you give a short code example on how to avoid these:

>> The error may occur when you assign 1 to:
- StyleNo of non-text item (they must not be changed)
- StyleNo of text item having different value of FMain.RichViewEdit1.Style.TextStyles ...

I'm using this code to force all fonts in a given table column to a standard style (they may have been pasted from other sources, etc.):

//Get the 'handle' of the inserted table
for i := Fmain.RichViewEdit1.ItemCount - 1 downto 0 do
begin
case Fmain.RichViewEdit1.GetItemStyle(i) of
rvsTable ...

I'll check out the Category portion of the code as you suggest. Further fooling with this shows that the quoted code will run repeatedly without issue IF similar code in the parser which parses the Answer rather than the Question is NOT run - it appears that this code somehow interferes with the ...

I'm trying to port very complex program to D2010 and it's not easy :-) I'm currently stuck on a RVE error called by this section of code:

if ItsAQuestion then
begin
StrPCopy(Category, GetRVDataText(MasterRVTable.Cells[PairNumber-1,0]));
MainText.Clear;
Stream := TMemoryStream.Create;
try ...

Hi Sergey,

I got the RVAPopupMenu.OnPopup working fine with Live Spelling but only if I hard-code the rve involved - as it is in the Demo. I'm trying to generalize this so that it will work with multiple .rve's (I have many in my multi-tab editor) using the code below, but I get an Invalid Class ...