Как изменить размер текста?

← →
Yong © (2004-05-15 23:33) [0]

Люди, кто знает: я вывожу текст на десктоп, например таким макаром:

var dc: HDC;
...
dc := GetDC (0); // получаю ссылку на рабочий стол
SetTextColor (dc, clBlue); // установил цвет текста
TextOut (dc, 200, 270, "Привет!", 7); // вывел

Вопроса два:
- как изменить размер шрифта?
- как вызвать перерисовку десктопа (типа repaint, наверное что-то), чтобы выведеный раньше текст изчез?

← →
Игорь Шевченко © (2004-05-16 00:10) [1]

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

CreateFont или CreateFontIndirect
SelectObject(dc, NewFont);
TextOut(...)

← →
Yong © (2004-05-16 00:25) [2]

Ура!!! Дождался!!! Спасибо, Игорь! А примерчика у вас какого-нить нет, как этот CreateFont сделать? А то там стока параметров...

← →
Игорь Шевченко © (2004-05-16 01:05) [3]

var lf : LOGFONT; NewFont: HFONT; ... begin FillChar(lf, SizeOf(lf), 0); lf.lfHeight := 20; //Или любая нужная высота lf.lfWeight := FW_BOLD; StrCopy (lf.lfFaceName, "Arial"); NewFont := CreateFontIndirect (lf); ....... end;

Игорь, огромное спасибо! Все окончательно прояснилось.

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