TCombobox, событие OnDrawItem

[SNUPY]

Доброго всем времени суток. В на событие OnDrawItem компонента TCombobox следующее событие:

procedure TForm9.ScienceDirectionDrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
  s:string;
  Flag: Cardinal;
begin
  if (index mod 2 =0) and (State=odselected) and (state<>OdFocused) then
    TComboBox(Control).Canvas.Brush.Color:=clInfoBk;
  TComboBox(Control).Canvas.FillRect(Rect);
  s := TComboBox(Control).Items[index];
  Flag:=DT_LEFT;
  Flag := Flag or DT_WORDBREAK;
  Inc(Rect.Left,3);
  Dec(Rect.Right,3);
  DrawText(TComboBox(Control).Canvas.Handle,PChar(s),length(s),Rect,Flag);
end;

У меня Delphi7 и она ругается на if (index mod 2 =0) and (State=odselected) and (state<>OdFocused) then мол Incompatible types =\ Вроде в хелпе написано, что она может принимать это значение. Какой я момент пропустил?

[mihali4]

1. Вам не кажется, что (State=odselected) and (state<>OdFocused) - взаимоисключающие состояния? В том виде, как вы их используете.
2. А используете вы их неверно. Состояние - это множество, и работать с ним нужно так:
if not (ОdFocused in State) ...

[SNUPY]

Большое спасибо