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

Как изменить шрифт   Найти похожие ветки 

← →
Alex870 ©   (2003-01-25 16:29) [0]

Здравстуйте!
Уважаемые программисты, подскажите пожалуйста, как изменить шрифт (его наклон иразмер) в компонете EDIT(создан с помощью CreateWindow("Edit",...), т.е. есть только HWND. Я пробовал так:
procedure ChangeFont(H: HWND);
var
NewFont,OldFont : HFont;
lf : LogFont;
DC : HDC;
begin
FillChar(lf,SizeOf(lf),0);
lf.lfHeight := -20;
....
lf.lfQuality := 1;
StrPCopy(lf.lfFaceName,"Times New Roman"); //т.е. TTF
NewFont := CreateFontIndirect(lf);
OldFont := SelectObject(GetDC(H),NewFont);
DeleteObject(SelectObject(GetDC(H),NewFont));
end;
однако ничего не выходит, так видимо можно поступать только со свойством Canvas. Зарание спасибо!

---

← →
MBo ©   (2003-01-25 21:37) [1]

для этого предназначено WM_SETFONT

---

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

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



Память: 0.44 MB
Время: 0.017 c