TListView +font size

← →
кэй (2007-02-14 15:45) [0]

У меня есть TListView, vsReport, Columns = 3.
Каким образом можно изменить размер шрифта только в третьей колонке?

Пытался в OnListViewCustomDrawItem/OnListViewCustomDrawSubItem, в canvas задать значение font size, но увы, не получилось.

Хтя изменение цвета - спокойно работает:
Sender.Canvas.Font.Color := clRed;

И ещё один вопрос, каким образом изменить у всей какой-то строки бэкграунд цвет?

← →
Loginov Dmitry © (2007-02-14 16:16) [1]

>
> Пытался в OnListViewCustomDrawItem/OnListViewCustomDrawSubItem,
> в canvas задать значение font size, но увы, не получилось.

печально.

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView; Item: TListItem; SubItem: Integer; State: TCustomDrawState; var DefaultDraw: Boolean); begin if SubItem = 2 then with ListView1.Canvas do begin Font.Color := clRed; Font.Style := [fsBold]; Font.Size := 16; end; end;

← →
кэй (2007-02-14 17:04) [2]

Не хочет ставить значение менее восьми. А я пытался поставить размер = 7. Почему так получается?

← →
DVM © (2007-02-14 17:23) [3]

> Не хочет ставить значение менее восьми. А я пытался поставить
> размер = 7. Почему так получается?

шрифт поменяй

Шрифт другой поставь.

← →
кэй (2007-02-14 17:46) [5]

Да, сменил шрифт на другой - стал нормально отображаться 7 размер, спасибо. Но ещё одна проблема получиласть: теперь при седьмом размере, текст прижат к верхней границе, а не ровно, как текст (8 размера) в остальных "клетках". Что можно сделать в таком случае?

TListView +font size Найти похожие ветки