ďťż

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");
}


  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • qualintaka.pev.pl
  •