1 2 /*I was surprised to find a quick and easy way to get a list of system fonts. I 3 have seen code that are over 15 lines of code this one is 2 lines. */4 5 void__fastcall TForm1::FormCreate(TObject *Sender)
6 {
7 ComboBox1->Items->Assign(Screen->Fonts);
8 ComboBox1->ItemIndex=0;
9 }
10 //---------------------------------------------------------------------------11 void__fastcall TForm1::ComboBox1Change(TObject *Sender)
12 {
13 Label1->Font->Name=ComboBox1->Text;
14 }
15 //---------------------------------------------------------------------------