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

TListView - выделить строку жирным цветом   Найти похожие ветки 

← →
ИМХО ©   (2003-12-03 06:48) [0]

Как осуществить сабж?
Какое именно событие обрабатывать?
Дайте, пожалуйста, пример.

---

← →
dDan   (2003-12-03 07:53) [1]

А разве жирный цвет бывает
Я может неправильно понял вопрос но копать надо в сторону
CustomDrawItem

---

← →
ИМХО ©   (2003-12-03 07:56) [2]

Да, это я зарапортовался :)

Прости надо выделить строку жирным стилем.

---

← →
Леприкон ©   (2003-12-03 08:09) [3]

Что то вроде этого, наверное...

procedure TForm1.LVDrawItem(Sender: TCustomListView; Item: TListItem;
Rect: TRect; State: TOwnerDrawState);
var R:TRect;
begin
R:=Item.DisplayRect(drLabel);
if odSelected in State then
with LV.Canvas do
begin
Font.Style:=Font.Style+[fsBold];
Brush.Color:=RGB(130,160,215);
FillRect(Rect);
TextRect(R,R.Left,R.Top,LV.Selected.Caption);
Font.Style:=Font.Style-[fsBold];
end
else
begin
LV.Canvas.FillRect(Rect);
LV.Canvas.TextRect(R,R.Left,R.Top,Item.Caption);
end;

end;

Это для стиля vsReport

---

← →
dDan   (2003-12-03 08:11) [4]

Допустип пусть пример будет такой

if (item.SubItems[2]<=DateToStr(Date)) then
begin
Sender.Canvas.Brush.Color := clMaroon;
Sender.Canvas.Font.Style:=[fsBold];
Sender.Canvas.Font.Color := clSilver;

Если дата во втором сабитеме превышает существуещую дату то строка выделяеться Бордовым а текст Жирный=) и Серебрянный

---

← →
ИМХО ©   (2003-12-03 08:36) [5]

Спасибо!

---

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

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



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