Ładny brzuch
Mam problem. Otoz chce aby po wlaczeniu mojego programu do wlasciwosci Text komponentu TComboBox domyslnie przypisywana byla czcionka Times New Roman. Zgodnie z pomoca usera z tego forum zrobilem to za pomoca:
if ComboBox.Items.Count >-1 then ComboBox.ItemIndex := // numer konkretnej czcionki// Wszystko ok, ale do czasu gdy program uruchomie na innym PC, wtedy to zamiast domyslnej Times New Roman wyswietla sie inna, bo na przyklad w tym systemie jest zainstalowanych wiecej czcionek. Chcialbym aby czcionka, ktora wyznaczylem byla przypisywana zawsze niezaleznie od calej listy fontow. Moze ktos pomoc?
ComboBox1.Items:=Screen.Fonts; ComboBox1.ItemIndex:=ComboBox1.Items.IndexOf('Times New Roman');
cala filozofia ;)
Uytkownik migajek edytowa ten post 22 lipiec 2005, 21:00
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
if ComboBox.Items.Count >-1 then ComboBox.ItemIndex := // numer konkretnej czcionki// Wszystko ok, ale do czasu gdy program uruchomie na innym PC, wtedy to zamiast domyslnej Times New Roman wyswietla sie inna, bo na przyklad w tym systemie jest zainstalowanych wiecej czcionek. Chcialbym aby czcionka, ktora wyznaczylem byla przypisywana zawsze niezaleznie od calej listy fontow. Moze ktos pomoc?
ComboBox1.Items:=Screen.Fonts; ComboBox1.ItemIndex:=ComboBox1.Items.IndexOf('Times New Roman');
cala filozofia ;)
Uytkownik migajek edytowa ten post 22 lipiec 2005, 21:00