Re: Set a default font

Return to index

Author

Message

Sergey Tkachenko

Posted: 10/02/2004 17:28:57

It's recommended to set a default font in RVStyle.TextStyles[0].

New tables use this style. HTML files will be much more compact is the most

of text the 0th style.

You can do it in rvActionNew.OnNew event:

procedure TForm1.rvActionNew1New(Sender: TObject);

begin

  RVStyle1.TextStyles.Clear;

  with RVStyle1.TextStyles.Add do begin

     FontName := 'Verdana';

     // change other style properties here

  end;

end;

I already modified RichViewActions.pas, so I am not sure what is on line

#9646.

Is it

  FFont.Name := 'Arial';

?

This is a default font for header and footer. You do not need to modify

RichViewActions.pas to change it.

Add the lines:

RVA_HeaderInfo.Font.Name := 'Verdana';

RVA_FooterInfo.Font.Name := 'Verdana';

in FormCreate instead.

>

> I am using richview actions, and because I need to use a default font

(Verdana

> in my case) I changed the font declaration in RichViewActions.pas on line

> 9646.

>

> This works almost perfect.

> It only doesn't work when I insert a table, then the font is resetted to

> Arial.

>

> I tried to change the font setting with the procedure

TrvActionInsertTable.ApplyToTable,

> but I couldn't find a font setting.

>

> How can I set an overall default font?