|
|
|
Prohlížeč písma
|
19.12.2009
|
Úvod
Jednoduchý příklad jak natáhnout systémové fonty do Comboboxu a rolováním (na klávesnici) je prohlížet v Memo.
Prvky
ComboBox1 (Text: )
Button1 (Caption: Načíst)
Memo1 (Font.Size: 20)
Kód
procedure TForm1.Button1Click(Sender: TObject);
begin
ComboBox1.Items:=Screen.Fonts;
ComboBox1.ItemIndex:=0;
Memo1.Font.Name:=ComboBox1.Text;
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Memo1.Font.Name:=ComboBox1.Text;
end;
Snímek
|
|
|
