ListView и встроенный CheckBox

[dsoft]

При изменении состояния встроенного в ListBox CheckBox`a, должны изменять цвет соответствующие строки. Но до вызова CDDS_ITEMPREPAINT дело не доходит. Совсем запутался в попытке разобраться в чем дело. Хохма в том, что ранее такой код я уже с успехом применял и проблем не было, а тут...
Кто знает, в чем причина?

function LVCustomDrawItem(lParam : Longint) : Longint;
var
  NMHDR : PNMHDR;
  LVCD  : PNMLVCUSTOMDRAW;
begin
  Result := CDRF_DODEFAULT;
  NMHDR := PNMHDR(lParam);
  LVCD  := PNMLVCUSTOMDRAW(lParam);
  case NMHDR^.code of
    NM_CUSTOMDRAW:
      with PNMCustomDraw(NMHDR)^ do
      begin
	case dwDrawStage of
	  CDDS_PREPAINT :
	  begin
	    Result := CDRF_DODEFAULT or CDRF_NOTIFYITEMDRAW or CDRF_NOTIFYSUBITEMDRAW;
	    Exit; 
	  end;
	  CDDS_ITEMPREPAINT : // не доходит вызов
	  begin
	    if not LV_GetChecked(hdr.hwndFrom, dwItemSpec) then
	    begin
	      LVCD.clrText   := $808080;
	      LVCD.clrTextBk := $CFB78F;
	      Result := CDRF_DODEFAULT or CDRF_NOTIFYSUBITEMDRAW;
	      Exit;
	    end;
	  end;
	end;
      end;
  end;
end;

...
    WM_NOTIFY :
    begin
      if PNMHDR(lParam)^.hwndFrom = hLV then
	case PNMHDR(lParam)^.code of
	  NM_CUSTOMDRAW :
	  begin
	    Result := LVCustomDrawItem(lParam);
	    Exit;
	  end;
	end;
    end;
...