Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

как get fontname из не установленного шрифта


hero ©   (2006-07-31 12:15:00) 

я хочу следать смотрелку шрифтов простую, мне понятную, все что находил в инете меня не устраивает, чтобы быстро можно было понять есть в шрифте русский или нет.
Вобчем допустим у меня есть CD с шрифтами и мне нужно посматреть
Делаю так
addfontresource('E:\CoolFont.ttf');
Объект.font.name:= ?;
removefontresource('E:\CoolFont.ttf');
так вот как узнать какое название шрифта ведь название шрифта и имя файла могуть быть разными
Помогите пожалуйста


hero   (2006-08-01 11:50:00) [1]

Отдельное спасибо easy и Rouse_


hero   (2006-08-01 04:13:00) [2]

Спасибо всем


DprYg   (2006-07-31 20:17:00) [3]

Вот например загрузка списка шрифтов, доступных на данном компьютере, в ComboBox1 и применение данного шрифта в RichEdit1
ComboBox1.Items := Screen.Fonts;
ComboBox1.ItemIndex := ComboBox1.Items.IndexOf(RichEdit1.DefAttributes.Name);

Установка шрифта в RichEdit1 в зависимости от выбора в ComboBox1
RichEdit1.SelAttributes.Name := ComboBox1.Items[ComboBox1.ItemIndex];


vidiv   (2006-07-31 17:12:00) [4]

AddFontResource, потом нажимай кнопочку Group и смотри функции для работы со шрифтами =)


easy   (2006-07-31 15:22:00) [5]

uses yandex;

http://www.megalib.com/books/923/837.htm


hero   (2006-07-31 14:37:00) [6]

Undeclared identifier: 'GetFontResourceInfo'

в хелпе тоже нет

uses ?


Rouse_   (2006-07-31 14:24:00) [7]

GetFontResourceInfo


Наверх

Титульная страница Поиск, карта сайта Написать письмо