Задание шрифта для контрола. WM_SETFONT -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.16.66.206]

ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi

Обязательно выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.

Этот раздел предназначен для вопросов, посвященных разработке компонентов, а также для тестирования собственных бесплатных компонентов с открытым исходным кодом.

Здесь запрещается:
1. Размещать ссылки на какие-либо коммерческие компоненты, реализующие требуемую функциональность.
2. Обсуждать и тестировать коммерческие компоненты или компоненты с закрытым кодом.
3. Давать ссылки на сайты с исходным кодом компонентов. Все тестируемые исходные коды должы быть размещены на сайте ИСХОДНИКИ.RU.

Модераторы: Rouse_, DimaBr

Новое голосование

Задание шрифта для контрола. WM_SETFONT , Задание шрифта для контрола. WM_SETFONT

matveev_ruslan

Сообщ. #1 , 15.02.06, 14:08

Unregistered

Короче такое дело:
создаю шрифт
Font := TFont.Create;
Font.Name := 'Arial';
Font.Size := 20;

Далее назначаю этот шрифт панели:
Panel1.Perform(WM_SETFONT, FOnt.Handle, 1);
Но он не меняется!!!
Если задаю Panel1.Font.Name := 'Arial' - то все OK.

А вот Button1.Perform(WM_SETFONT, Font.Handle, 1) - меняется...

В чем прикол господа?
Какие сообщения посылаются контролу, при изменении шрифта?

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0139 ] [ 16 queries used ] [ Generated: 3.05.24, 16:41 GMT ]