Скачать: CL | DM;

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

← →
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);//устанавливаем новый шрифт

---

← →
zz 5 ©   (2007-07-01 10:54) [4]

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

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

---

← →
AlexanderMS ©   (2007-07-01 18:03) [5]

VirEx ©, Большое спасибо, всё работает!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.986 c