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

← →
AlexanderMS © (2007-06-30 18:05) [0]

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

← →
zz 5 © (2007-06-30 21:50) [1]

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

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

← →
Германн © (2007-07-01 01:26) [2]

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

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

← →
VirEx © (2007-07-01 02:35) [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);//устанавливаем новый шрифт

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

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

Установить шрифт окон. Найти похожие ветки