font

Question

那位大虾能告诉在下如何获得系统的所有字体和字体大小，想写字板的一个功能一样

Answer 1

几乎所有的代码都有font属性，看看他的代码就可以了

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    RichEdit1: TRichEdit;
    procedure ListBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.ListBox1Click(Sender: TObject);
begin
  // First word
  richedit1.Text := 'Hello';
  richedit1.SelStart := 0;
  richedit1.SelLength := length('Hello');
  richedit1.SelAttributes.Style := [fsItalic];
  richedit1.SelAttributes.Name := listbox1.Items[listbox1.itemindex];
  richedit1.SelAttributes.Size := 20;        // Fone size you want.
  richedit1.SelAttributes.Color := clBlue;
  // Second word.
  richedit1.Text := richedit1.Text + ' Ken';
  richedit1.SelStart := Length('Hello') + 1;
  richedit1.SelLength := length('Ken');
  richedit1.SelAttributes.Style := [fsUnderline];
  richedit1.SelAttributes.Name := listbox1.Items[listbox1.itemindex];  // Font name you just select.
  richedit1.SelAttributes.Size := 10;
  richedit1.SelAttributes.Color := clRed;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  listbox1.Items := screen.Fonts;
end;end.

Answer 3

你拉一个FontDialog下来不就行了吗

Answer 4

listbox1.Items := screen.Fonts; 这句改为：Combobox1.Items := screen.Fonts;