функция TextOut
kilonet © (2006-05-14 11:34:00)
with Sender.Canvas do
begin
Font.Style := Font.Style + [fsBold];
TextOut(x1, y1, str1);
Font.Style := [];
TextOut(x2, y2, str2);
end;
Проблема в том, что и вторая строка выводится жирным шрифтом.
Как вывести 2ю строку обычным шрифтом?
Жуков Олег (2006-05-14 12:11:00) [1]
> kilonet © (14.05.06 11:34)
Была как-то такая проблема с TreeView.Canvas, причём на любой
другой канвас тот же код выводил правильно. Тогда методом "тыка"
нашёл решение - вызов Canvas.Refresh; сейчас не вспомню - до или
после изменения шрифта;
Наверх 
ЧАТ |
Орешник |
|
