Текущий архив: 2003.03.17;
Скачать: 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 вся ветка
Текущий архив: 2003.03.17;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.025 c
