
24.12.2015, 20:33
|
 |
Новичок
|
|
Регистрация: 28.09.2013
Сообщения: 94
Версия Delphi: 2010
Репутация: 10
|
|
Так и разобрался с ячейкй.
К скрину:
Код:
WM_NOTIFY:
begin
if PNMHDR(lParam).hwndFrom = LV then
case PNMHDR(lParam).code of
NM_CUSTOMDRAW:
begin
case PNMLVCustomDraw(LParam).nmcd.dwDrawStage of
CDDS_PREPAINT: result:=CDRF_NOTIFYITEMDRAW;
CDDS_ITEMPREPAINT: Result:=CDRF_NOTIFYSUBITEMDRAW;
CDDS_SUBITEM or CDDS_ITEMPREPAINT:
begin
Result:=CDRF_DODEFAULT;
PNMLVCustomDraw(LParam).clrTextBk := RGB (100, 100, 100);
case PNMLVCustomDraw(LParam).iSubItem of
0:
if PNMLVCustomDraw(LParam).nmcd.dwItemSpec mod 2 = 0 then
PNMLVCustomDraw(LParam).clrTextBk := RGB(0, 255, 100)
else
PNMLVCustomDraw(LParam).clrTextBk := RGB(255, 255, 100);
1: PNMLVCustomDraw(LParam).clrTextBk := RGB (255, 100, 80); // цвет текста колонки 1
2: PNMLVCustomDraw(LParam).clrTextBk := RGB (20, 20, 255); // цвет текста колонки 2
3: PNMLVCustomDraw(LParam).clrTextBk := RGB (255, 20, 255); // цвет текста колонки 3
end;
end;
end;
end;
|