Скачать: CL | DM;

Мои шрифты и Canvas.Font   Найти похожие ветки 

← →
akvilon ©   (2004-06-20 13:22) [0]

Приветствую, Мастера! Есть много созданных мной шрифтов. В определенный момент необходимо менять шрифт вывода текста в главное окно приложения, а потом восстановить исходный. Правильно ли такое решение:

var
 oldFont: HFONT;
begin
 oldFont := Canvas.Font.Handle; // сохраняем старый
 Canvas.Font.Handle := MyFont.Handle; // MyFont: TFont;
 {или так Canvas.Font := MyFont;}
 // непосредственно вывод через Canvas.TextRect(...
 Canvas.Font.Handle := oldFont; // восстанавливаем старый
end;

---

← →
akvilon ©   (2004-06-20 14:26) [1]

Просто возникла проблема: первый раз такой код правильно меняет шрифт, но весь последующий вывод при следующей смене шрифта происходит вообще совершенно левым шрифтом. Не пойму, где проблема...

---

← →
MBo ©   (2004-06-21 07:22) [2]

при назначении Canvas.Font.Handle старый шрифт уничтожается, сохраненная ссылка более недействительна. Нужно сохранять не HFONT, а TFont

---

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

Скачать: CL | DM;



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