Re: Finding Fonts

Return to index

Author

Message

Yernar Shambayev

Posted: 06/03/2003 12:52:01

unit main;

interface

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  StdCtrls, RVStyle, RVScroll, RichView;

type

  TListFontsForm = class(TForm)

    rv: TRichView;

    rvs: TRVStyle;

    FontsListBox: TListBox;

    procedure FormCreate(Sender: TObject);

  private

  public

  end;

var

  ListFontsForm: TListFontsForm;

implementation

{$R *.DFM}

procedure TListFontsForm.FormCreate(Sender: TObject);

var

  I: Integer;

begin

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

    if FontsListBox.Items.IndexOf(rvs.TextStyles[I].FontName) = -1 then

      FontsListBox.Items.Add(rvs.TextStyles[I].FontName);

end;

end.