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

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. Почему так получается?

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

---

← →
Loginov Dmitry ©   (2007-02-14 17:24) [4]

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

---

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

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

---

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

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



Память: 0.46 MB
Время: 0.033 c