- - - Menu - - -

 » Datum a Čas
 » Soubory a složky
 » Systém
 » Text
 » Grafika
 » Zvuk
 » Kontroly
 » Ochrany
 » Delphi

 » Odkazy



- - - Info - - -

GimiWeb
Top Wallpapers
Cars Wallpapers
Základy HTML
Delphi kódy
Gimi Fotogalerie
Gimi Software
Kozel zahradník
FotoSpace

Gimi © 2016


  

Zpět
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