| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TListView +font size [D6, 2003]

кэй ©   (2007-02-14 15:45:00) 

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

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

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

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

---

кэй   (2007-02-14 17:46:00) [1]

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

---

Loginov Dmitry   (2007-02-14 17:24:00) [2]

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

---

DVM   (2007-02-14 17:23:00) [3]

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

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

---

кэй   (2007-02-14 17:04:00) [4]

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

---

Loginov Dmitry   (2007-02-14 16:16:00) [5]

>
> Пытался в 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;


---

Наверх