Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Размер шрифта в заголовках ListView

Автор: Mina 28.7.2010, 05:01

При изменении размера шрифта в ListView (стиль vsReport)

Код


ListView1.Font.Size:= 14;

Меняется размер шрифта как в строках так и в заголовках колонок, что можно сделать чтобы у заголовков шрифт был постоянным, т.е. не изменялся при изменении размера шрифта строк

Автор: Amphiluke 28.7.2010, 10:53

Можно пойти в обход VCL.
Например, если вы не меняете шрифт самой формы или другого контрола, то можно передать Handle шрифта этого контрола окну Header в вашем ListView.

Код


ListView1.Font.Size:= 14; // изменяем
SendMessage(GetWindow(ListView1.Handle, GW_CHILD), WM_SETFONT,
  Integer(Form1.Font.Handle), 1); // восстанавливаем только для Header'а

Есть и другие пути, но этот, наверное, один из коротких.

Автор: Mina 28.7.2010, 11:31

Amphiluke, спасибо!

Добавлено через 4 минуты и 33 секунды

Цитата(Amphiluke @ 28.7.2010, 10:53

)

Integer(Form1.Font.Handle), 1); // восстанавливаем только для Header'а

объясните пожалуйста, почему последний параметр SendMessage равен 1

Автор: Amphiluke 28.7.2010, 12:06

Цитата(Mina @ 28.7.2010, 15:31

)

объясните пожалуйста, почему последний параметр SendMessage равен 1

Чтобы произошла немедленная перерисовка окна после смены шрифта.
Вы загляните в Windows SDK

Цитата

The low-order word of lParam specifies whether the control should be redrawn immediately upon setting the font. If this parameter is TRUE, the control redraws itself.

Добавлено через 12 минут и 50 секунд
Впрочем, и с FALSE тоже работает. smile

Автор: Mina 29.7.2010, 03:28

Еще раз спасибо! smile