Как получить список системных шрифтов на ComboBox в Работа с текстом Опубликовано 10 апреля, 2016 var i:integer; begin for i:=0 to Screen.Fonts.Count-1 do ComboBox1.Items.Add(Screen.Fonts.Strings[i]); ComboBox1.ItemIndex:=0; end;
Как получить список системных шрифтов на ComboBox
в Работа с текстом
Опубликовано
var i:integer; begin for i:=0 to Screen.Fonts.Count-1 do ComboBox1.Items.Add(Screen.Fonts.Strings[i]); ComboBox1.ItemIndex:=0; end;