Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Всплывающий список со шрифтами  (Прочитано 8790 раз)
0 Пользователей и 1 Гость смотрят эту тему.
DR.XXX
Помогающий

kz
Offline Offline

« : 06-09-2008 17:17 » 

Здравствуйте! Как можно будет сделать так, чтобы в combobox выходил список шрифтов имеющихся в fontdialog?
Спасибо за внимание!
Записан
zubr
Гость
« Ответ #1 : 07-09-2008 04:18 » 

Код:
ComboBox1.Items := Screen.Fonts;
Записан
DR.XXX
Помогающий

kz
Offline Offline

« Ответ #2 : 07-09-2008 05:16 » 

zubr, Спасибо!
Записан
DR.XXX
Помогающий

kz
Offline Offline

« Ответ #3 : 07-09-2008 10:22 » new

как-то не удобно поднимать вновь этот вопрос, но теперь не получается заставить этот список работать, то есть шрифты в списке combobox есть, но не могу применить их. Например надо поменять шрифт надписи в lable, выбирая нужный шрифт из списка и не получается. Может вы подскажите как это сделать. 
Записан
zubr
Гость
« Ответ #4 : 07-09-2008 12:13 » 

Код:
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 Label1.Font.Name := ComboBox1.Items.Strings[ComboBox1.ItemIndex];
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 ComboBox1.Items := Screen.Fonts;
end;
Записан
DR.XXX
Помогающий

kz
Offline Offline

« Ответ #5 : 07-09-2008 18:19 » 

zubr, спасибо большое, реально помог!
Записан
zubr
Гость
« Ответ #6 : 08-09-2008 04:31 » 

Не за что. Приходи еще Улыбаюсь
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines