Как изменить шрифт [D5, Win95/98]
Alex870 © (2003-01-25 16:29:00)
Здравстуйте!
Уважаемые программисты, подскажите пожалуйста, как изменить
шрифт (его наклон иразмер) в компонете 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:00) [1]
для этого предназначено WM_SETFONT
Наверх 
ЧАТ |
Орешник |
|
