Изменение цвета выделения строк различных компонентов

[dplz]

Как без закраски изменить цвет выделеных строк, таких компонентов как edit, combobox, listbox и пр. на цвет из системной палитры windows?

[Stilet]

Я лично не знаю такого способа, кроме ручной отрисовки.

[dplz]

Я сейчас использую компоненты из набора AlphaTools, так там когда ставишь свойство style:=lbOwnerDrawFixed, то компонет просто не работает, или меняет свой вид и глючит... вот досада
А цвет выделенных строк зависит от установленной темы в windows'е, может копать в эту сторону? или я глупость сказал?

[W0LF]

Вот к примеру закрашивание ListBox'a, style:=lbOwnerDrawFixed обязательно...

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with (Control as TListBox).Canvas do
  begin
    if (index mod 2 =0) or (index=5) then

        begin
          Font.Color := clBlue;
          Brush.Color := clYellow;
        end else begin
          Font.Color := clRed;
          Brush.Color := clMoneyGreen;
        end;

    FillRect(Rect);
    TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[Index]);
  end;
end;

При добавлении строки она будет краситься то в жолтый, то в светлозеленый(цвет денег)

[dplz]

>W0LF
Это я знаю, я ищу другой способ