Форум: "Основная";
Текущий архив: 2004.05.30;
Скачать: [xml.tar.bz2];

Вниз

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

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


---

← →
Yong ©   (2004-05-16 01:10) [4]

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

---

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

Форум: "Основная";
Текущий архив: 2004.05.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.032 c