Blog literacki, portal erotyczny - seks i humor nie z tej ziemi
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");
}