Sprawdzenie czy czcionka dostępna dla każdego elementu

0

Hej, jak sprawdzić czy czcionka jest dostępna w systemie dla każdego elementu ?

 Begin
  if Screen.Fonts.IndexOf(CzcionkaCalibri) <> -1 then
    NazwaCzcionkiWierzcholka:=czcionkaCalibri
  else
    nazwaczcionkiWierzcholka:=czcionkaArial;

  result:=nazwaczcionkiwierzcholka;
End;

ale to działa dla konkretnego

innymi słowy, nie wiem jak przeiterować przez każdy komponent na formie który POSIADA właściwość font, i jesli jest to TLabel lub TRadiogroup to użyć czcionki Calibri, jesli jest to TMEmo, TEdit lub TBitbtn to użyć TAchoma, a jesli którejś z czcionek nie ma to użyć Arial (bo była dostępna od windows 3.1)

0

ustaw im parentfont na true i wtedy zmiana fontu formy powoduje zmianę fontu komponentów na formie

0

ale własnie cześć elementów ma calibri a cześć Tachoma

pewnie to jakośc trzeba tak

 if controls[i] is TMemo 

ale ja za słaby jestem zeby wpaść na to samemu

0

serio - nikt nie podpowie jak to zrobić - w którym zdarzeniu ustalić jakie czcionki są dostępne i zastosować je odpowiednio dla odpowiednich elementów?

0

nie ma czegoś takiego jak lista dostępnych czcionek dla komponentu - jest tylko lista czcionek w systemie, a to jaką domyślnie ma ustawiony dany komponent zależy od jego twórcy

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0