ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как добавить свой шрифт в программу?
3 сообщений из 3, страница 1 из 1
Как добавить свой шрифт в программу?
    #32269866
lek.sys
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lek.sys
Гость
Мне нужно, чтобы в моей программе использовался особый оформительский шрифт. Как сделать так, чтобы сообщение Label отображалось именно в этом шрифте, без того, чтобы устанавливать его юзеру в папку Windows\Fonts?
Заранее благодарен.
...
Рейтинг: 0 / 0
19.09.2003, 09:34
| Ответить | Цитировать | Написать  
Как добавить свой шрифт в программу?
    #32269892
Фотография Teo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Teo
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
var
  p: string;
begin
  // регистрация в системе шрифта 3of9.ttf
  p := ExtractFilePath(Application.ExeName)+'3of9.ttf';
  if FileExists(p) then begin
    AddFontResource(PChar(p));
    SendMessage(HWND_BROADCAST, WM_FONTCHANGE,  0 ,  0 );
  end;
...
Рейтинг: 0 / 0
19.09.2003, 09:54
| Ответить | Цитировать | Написать  
Как добавить свой шрифт в программу?
    #32269921
srf2000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
srf2000
Участник
ага, только вот чтобы сделать

Button1.Font.Name := 'new font name';

надо знать имя фонта
его можно получить например вот этим компонентом:
http://www.delphi32.com/vcl/2525/
...
Рейтинг: 0 / 0
19.09.2003, 10:19
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как добавить свой шрифт в программу?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]