Example: list of used fonts

Return to index

Author

Message

Sergey Tkachenko

Posted: 07/05/2004 15:45:21

This procedure fills the string list sl with the font names used in the

document.

procedure GetDocFontsList(rvs: TRVStyle; sl: TStringList);

var i,j: Integer;

begin

  sl.Sorted := True;

  sl.Duplicates := dupIgnore;

  sl.CaseSensitive := False;

  sl.Clear;

  for i := 0 to rvs.TextStyles.Count-1 do

    sl.Add(rvs.TextStyles[i].FontName);

  for i := 0 to rvs.ListStyles.Count-1 do

    with rvs.ListStyles[i] do

      for j := 0 to Levels.Count-1 do

        if Levels[j].UsesFont then

          sl.Add(Levels[j].Font.Name);

end;