[Stalker2-42]

Здравствуйте.

Решил "разукрасить" ListView.
Получилось закрасить четные строки одним, не четные другим цветом:

Код:

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:
                    if PNMLVCustomDraw(LParam).nmcd.dwItemSpec mod 2 = 0 then
                      PNMLVCustomDraw(LParam).clrTextBk := RGB(0, 255, 100)
                    else
                      PNMLVCustomDraw(LParam).clrTextBk := RGB(255, 255, 100)
                end;
              end;
          end;
      end;

Работает. Но сделано ли правильно?

А вот как закрасить колонки + как закрасить ячейки любой строки и любого столбца по условию?
Искал в инете, не помогло.

Помогите пожалуйста.

Полный код по требованию!