Sprawdzenie czy czcionka dostępna dla każdego elementu

Odpowiedz Nowy wątek
2011-07-12 13:23
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)

Pozostało 580 znaków

2011-07-12 13:45
0

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


- Ciemna druga strona jest.
- Nie marudź Yoda, tylko jedz tego tosta.
Google NIE GRYZIE!
Pomogłem - kliknij

Pozostało 580 znaków

2011-07-12 14:35
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

edytowany 1x, ostatnio: lightning3, 2011-07-12 14:36

Pozostało 580 znaków

2011-07-13 17:18
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?

Pozostało 580 znaków

2011-07-13 18:49
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


- Ciemna druga strona jest.
- Nie marudź Yoda, tylko jedz tego tosta.
Google NIE GRYZIE!
Pomogłem - kliknij

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

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