Шрифты - Общие вопросы Delphi - Страница 2

ZvEr_HaCkEr · 25.10.2010, 17:04

Да ничего не пишет.Компилируется нормально.Только как запускаешь прогу устанавливается Tahoma,а мой шрифт не грузится.
Не большая просьба.Скомпилируйте пожалуйста проект у себя и дайте его.Может у меня среда умерла?

Прик · 25.10.2010, 17:15

Имя шрифта и имя файла чаще всего не совпадают.
В выше приведенном случае имя шрифта "Monotype Corsiva".
Если присвоить это имя шрифту компонента, то должно работать в любой версии Дельфи

Код:

  AddFontResource(PChar('MTCORSVA.TTF'));
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
  Label1.Font.Name:='Monotype Corsiva';

Во всяком случае и на D7 и D2009 у меня тоже шрифт загружается и появляется.

ZvEr_HaCkEr · 25.10.2010, 17:19

УРАААААААААААААААААА! работает!!!
+++

Прик · 25.10.2010, 17:34

А в чем причина отказа то была?

ZvEr_HaCkEr · 25.10.2010, 17:39

Label1.Font.Name:='Monotype Corsiva';
тут

25.10.2010, 17:04	#11
ZvEr_HaCkEr VisualC++/DirectX Форумчанин Регистрация: 16.07.2010 Сообщений: 831	Да ничего не пишет.Компилируется нормально.Только как запускаешь прогу устанавливается Tahoma,а мой шрифт не грузится. Не большая просьба.Скомпилируйте пожалуйста проект у себя и дайте его.Может у меня среда умерла? Последний раз редактировалось ZvEr_HaCkEr; 25.10.2010 в 17:08.

25.10.2010, 17:15	#12
Прик Форумчанин Регистрация: 08.09.2010 Сообщений: 880	Имя шрифта и имя файла чаще всего не совпадают. В выше приведенном случае имя шрифта "Monotype Corsiva". Если присвоить это имя шрифту компонента, то должно работать в любой версии Дельфи Код: `AddFontResource(PChar('MTCORSVA.TTF')); SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ; Label1.Font.Name:='Monotype Corsiva';` Во всяком случае и на D7 и D2009 у меня тоже шрифт загружается и появляется. Последний раз редактировалось Прик; 25.10.2010 в 17:20.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
GPL шрифты	Alex Cones	Помощь студентам	2	04.06.2010 17:14
Шрифты	zzzzz	Gamedev - cоздание игр: Unity, OpenGL, DirectX	0	11.05.2009 16:35
шрифты	NieL	Общие вопросы Delphi	1	22.12.2008 17:43
Шрифты	Михаил Юрьевич	Общие вопросы Delphi	2	01.05.2008 20:34
Шрифты	Witaliy	Общие вопросы Delphi	1	27.04.2008 23:31

25.10.2010, 17:19	#13
ZvEr_HaCkEr VisualC++/DirectX Форумчанин Регистрация: 16.07.2010 Сообщений: 831	УРАААААААААААААААААА! работает!!! +++

25.10.2010, 17:34	#14
Прик Форумчанин Регистрация: 08.09.2010 Сообщений: 880	А в чем причина отказа то была?

25.10.2010, 17:39	#15
ZvEr_HaCkEr VisualC++/DirectX Форумчанин Регистрация: 16.07.2010 Сообщений: 831	Label1.Font.Name:='Monotype Corsiva'; тут