API
17.08.1999
  • Określanie fontów zainstalowanych w systemie.

       Najłatwiejszy sposób to użycie właściwości Fonts obiektu Screen. W poniższym przykładzie ListBox zostaje wypełniony dostępnymi czcionkami. Zaś po kliknięciu pozycji zostaje zmieniona czcionka Label1 na wybraną.

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
    {
        // wypełnia ListBox łańcuchami z właściwości
        // Fonts globalnego obiektu Screen
        ListBox1->Items->Assign(Screen->Fonts);
        ListBox1->ItemIndex = 0;
    }
    //--------------------------------------------------
 void __fastcall TForm1::ListBox1Click(TObject *Sender)
    {
        // Zmienia font Label1 w zależności od wyboru
Label1->Font->Name = ListBox1->Items->Strings[ListBox1->ItemIndex];
    }
       Właściwość Fonts jest typu TStringList. Do odszukania danego fontu możesz użyć metody IndexOf. W poniższym przykładzie sprawdzamy czy dany font jest zainstalowany w systemie.
   void __fastcall TForm1::Button1Click(TObject *Sender)
    {
        // IndexOf zwraca indeks łańcucha jeżeli taki
        // został znaleziony, jeśli nie to zwraca -1
        if(Screen->Fonts->IndexOf("Courier New") >= 0)
            ShowMessage("Courier New zainstalowany");
        else
            ShowMessage("Courier New nie znaleziony");
    }