How to set the default font

WPTools 5 supports a "default attribute". This is the attribute for text which does not use any character attribute. Such text uses the value 0 in its CharAttr items.

Tio change the default attribut modify TRTFDataCollection.DefaultAttr

for example

WPRichText1.Memo.RTFData.DefaultAttr.SetFontName('Verdana');
WPRichText1.Memo.RTFData.DefaultAttr.SetFontSize(15);

Julian Ziersch

This can be done with

WPRichText1.CPPosition := 0;
  repeat
      if WPRichText1.CPCharAttr=0 then
      begin
         WPRichText1.CPAttr.BeginUpdate;
         WPRichText1.CPAttr.FontName := 'Courier New';
         WPRichText1.CPAttr.Color := WPRichText1.GetColorNr(clRed);
         WPRichText1.CPAttr.EndUpdate;
      end;
  until not WPRichText1.CPMoveNext;
  WPRichText1.Refresh;

Julian