JEDI VCL (listbox com linhas de cor diferente)

Delphi

21/02/2004

alguem ae jah usou akele componente da JEDI VCL .. q da pra mudar as cores das linhas de uma listbox?

nao faço ideia de como fazer isso ..
se alguem puder me ajudar ...

valeuz []´s :wink:


Salsa

Salsa

Curtidas 0

Respostas

Salsa

Salsa

21/02/2004

poxa pexual .. ninguem sabe?


GOSTEI 0
Fórum Vini

Fórum Vini

21/02/2004

Olá,
coloque um TListBox no seu formulário, mude a propriedade Style para lbOwnerDrawFixed.
Coloque esse código no evento OnDrawItem da ListBox:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with ListBox1, ListBox1.Canvas do
  begin
    if (odSelected in State) then
    begin
      Brush.Color:= clDkGray; //Cor quando estiver selecionado
      Pen.Color:= clBlack;
      DrawFocusRect(Rect);
    end
    else
    begin
      Brush.Color:= clLtGray;//Cor quando não estiver selecionado
      Pen.Color:= clLtGray;  //Coloque a mesma cor da linha de cima
    end;
    Rectangle(Rect);
    TextOut(Rect.Left+1, Rect.Top+1, Items[Index]);
  end;
end;


Espero ter ajudado.
Vinicius.


GOSTEI 0
POSTAR