MOJA PASJA - PROGRAMOWANIE
   Dzisiaj jest Niedziela, 23 kwietnia, 2017r. Ostatnia aktualzacja miała miejsce: 10 grudnia 2006r. Homepage

Programowanie: Artykuły * FAQ * Download * Komponenty * Książki WWW: Artykuły * Narzędzia * Kursy * Darmowe * FAQ * Skrypty * Ksiązki Off-Topic: Aforyzmy * Humor Inne: Forum * Wiki * Liczniki * Linki * Chat * Grafika * Video * Inne



Jak pobrać listę fontów dostępnych w systemie ?
   Lista fontów może się przydać nie tylko gdy chcemy ją wyświetlić użytkownikowi. Możemy np. chcieć zrobić napisy na formie w foncie fxx. W dobrym stylu było by sprawdzić czy użytkownik posiada dany font, a jeżeli nie zastosować inny który uważamy za odpowiedni. Jednak przykład który podam będzie programem wyświetlającym w ComboBox listę fontów i umożliwiającym ich podgląd w Memo1. Bardzo podobny przykład znajduje się w helpie Borlandowskim. Szukaj TScreen->Fonts->Example Do roboty.

   Pierw nanosimy na formę potrzebne nam elementy:

  • Button1 - do pobrania listy fontów
  • ComboBox1 - do wyświetlenia tej listy
  • Memo1 - do podglądu zaznaczonego fontu
   Zacznijmy od najważniejszego, czyli pobrania samej listy. Znajdziemy ją w obiekcie Screen->Fonts. Co tu dożo mówić, nie jest to zbyt skompilowane (hah, to się nazywa literówka, nie poprawiam jej :] )

   Unit1.cpp

  void __fastcall TForm1::Button1Click(TObject *Sender)
  {
     ComboBox1->Items->Clear();
     for (int i = 0; i < Screen->Fonts->Count; i++)
     ComboBox1->Items->Add(Screen->Fonts->Strings[i]);
  }





   No a teraz jeszcze prezentacja w Memo1:

   Unit1.cpp

  void __fastcall TForm1::ComboBox1Click(TObject *Sender)
  {
     Memo1->Font->Name = ComboBox1->Items->Strings[ComboBox1->ItemIndex];
  }





   Gotowe. Być może niedługo skończę pisanie artykułu na temat klasy TScreen. Tam znajdziesz więcej informacji.




Stronę przygotował: Kacper Cieśla (comboy). Wszelkie prawa zastrzeżone.
Reklama * Zgłoś błąd * Kontakt * Hosting * O stronie * Sponsoring
Czas generowania strony: 0s