Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Установить шрифт окон.

AlexanderMS © (2007-06-30 18:05:00)
Как это сделать? Окно создаётся в Run-Time c расположенными Combobox, Static и Edit. Нужно изменить у них шрифт, а то он какой-то жирный и некрасивый. Создаю шрифт через CreateFontIndirect. Посылаю элементам сообщение WM_SetFont - ничего не меняется. Другого ничего не нашёл. Подскажите, пожалуйста.

AlexanderMS (2007-07-01 18:03:00) [1]
VirEx ©, Большое спасибо, всё работает!

zz 5 (2007-07-01 10:54:00) [2]

> Эээ. Тут как бы конференция WinAPI, если посмотришь внимательнее.
> :)

Точно :) Тут VCL уже не катит...звиняйте

VirEx (2007-07-01 02:35:00) [3]
вот пример как можно изменить шрифт

//hOldFont:=sendmessage( Handle,WM_GetFont,0,0); //получаем хэндл шрифта по хэндлу окна/поля ввода/и т.п.
hOldFont:=GetStockObject(SYSTEM_FIXED_FONT);//или получаем системный шрифт по-умолчанию, лучше всего использовать именно этот способ
GetObject(hOldFont,SizeOf(LFont),Addr(LFont)); //получаем с помощью хэндла свойства/структуру шрифта
DeleteObject(hOldFont);//убираем старый хэндл шрифта т.к. уже получили инфу о шрифте
LFont.lfFaceName := 'Tahoma';//изменяем например тип шрифта
hOldFont := CreateFontIndirect(LFont); //делаем новый шрифт на основе измененных свойст старого шрифта
sendmessage(Handle,WM_SetFont,hOldFont,1);//устанавливаем новый шрифт

Германн (2007-07-01 01:26:00) [4]

> zz 5 © (30.06.07 21:50) [1]
>
>
> > Создаю шрифт через CreateFontIndirect. Посылаю элементам
> > сообщение WM_SetFont
>
> Зачем такие извраты ? Не проще использовать свойство Font
> формы, а для элементов формы поставить свойство ParentFont
> := True ?
>

Эээ. Тут как бы конференция WinAPI, если посмотришь внимательнее. :)

zz 5 (2007-06-30 21:50:00) [5]

> Создаю шрифт через CreateFontIndirect. Посылаю элементам
> сообщение WM_SetFont

Зачем такие извраты ? Не проще использовать свойство Font формы, а для элементов формы поставить свойство ParentFont := True ?

Наверх

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