Como Zebrar um COMBOBOX, igual al dbgrid

Delphi

18/03/2008

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


Fábio Galvão

Fábio Galvão

Curtidas 0

Respostas

Marco Salles

Marco Salles

18/03/2008

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


GOSTEI 0
POSTAR