Como Zebrar um COMBOBOX, igual al dbgrid

Question

Como fa�o para zebrar as linhas de um combobox, como o dbgrid?...

Marco Salles · Answer

voce quer zebrar um Combobox ???? � Isto ????

Altere a Propriedade Style do Combobox para csOwnerDrawFixed
e digite no Evento DrawItem do Combobox o seguinte C�digo :

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
aColor:TColor;
aBrush:TBrush;
begin
  aBrush:=TBrush.Create;
  with (Control as TCombobox).Canvas do
    begin
       if not odd(Index) then
         aColor:=clred
       else
         aColor:=clBlue;
      aBrush.Style:=bsSolid;
      aBrush.Color:=aColor;
      Windows.FillRect(handle,Rect,aBrush.Handle);
      Brush.Style:=Bsclear;
      TextOut(Rect.Left,Rect.Top,(Control as TComboBox).Items[Index]);
      aBrush.Free;
    end;
end;

Tempere o codigo a gosto , fazendo as latera��es que julgar necess�rio

Espero ter ajudado

F�rum Como Zebrar um COMBOBOX, igual al dbgrid #355616