trichview.support
Re: Set a default font |
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? |
Powered by ABC Amber Outlook Express Converter