Как изменить шрифт

← →
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

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