Mudar cor de fundo da linha do ListBox

Question

Ol�!Gostaria de saber como faz para mudar a cor de fundo de um item num ListBox.Por exemplo: Ao inserir um item, se for a linha zero do ListBox, mantem fundo branco; Se for a linha 1, troca para verme...

Minuto · Answer

Amigo que eu saiba, o listbox tem cor �nica para fazer isso use um gridtalvez exista algum componente evoluido do listbox que fa�a isso.?!?!...

Minuto · Answer

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;

Marcelo Saviski · Answer

Use o o evento OnDrawItem deste componentes para conseguir o efeito desejado

[i:a12d4fc460][color=darkblue:a12d4fc460]procedure(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);[/color:a12d4fc460][/i:a12d4fc460]

fa�a um teste assim:

no evento OnDrawItem, adicione:

with TComboBox(Control) do
begin
  if odSelected in State then
  begin
    Canvas.Brush.Color := clHighlight;
    Canvas.Font.Color := clHighlightText;
  end  
  else if Odd(Index) then //se � um item �mpar
  begin
    Canvas.Brush.Color := clRed;
    Canvas.Font.Color := clWhite;    
  end
  else
  begin
    Canvas.Brush.Color := clWhite;
    Canvas.Font.Color := clBlack;
  end;
  Canvas.Fill(Rect);
  Canvas.Brush.Style := bsClear;
  Canvas.TextOut(Rect.Left, Text.Top, Items[Index]);
end;

com isso vc usa uma fun��o sua para pintar os itns, da p/ fazer mais do que simplesmente deixar listrado, � s� usar a criatividade

:!:

Minuto · Answer

Desculpe postei o c�digo erradoNo evento OnDrawItem do ListBox coloque: C�digo: procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;   Rect: TRect; State: TOwnerDrawState); begin   ListBox1.Canvas.Brush.Color := clWhite;   ListBox1.Canvas.FillRect(Rect);   case Index of     // Aqui voc� escolhe a cor do texto para cada linha:     0: ListBox1.Canvas.Font.Color := clRed;     1: ListBox1.Canvas.Font.Color := clGreen;     2: ListBox1.Canvas.Font.Color := clBlue;   end;   ListBox1.Canvas.TextOut(Rect.Left, Rect.Top, ListBox1.Items[Index]); end;  Mas antes voc� deve mudar a propriedade Style do ListBox para lbOwnerDrawVariable...

Wbb · Answer

Obrigado pessoal!Resolvi da seguinte maneira:[code:1:2f62eeab9b]procedure Tform1.ListBox1DrawItem(Control: TWinControl;  Index: Integer; Rect: TRect; State: TOwnerDrawState);begin   with (Control as TListBox).Canvas do   begin      if Index mod 2 = 0 then      begin         Brush.Color := clBlue;         Font.Color := clWhite;      end;      Brush.Style := bsSolid;      FillRect(Rect);      Brush.Style := bsClear;      TextOut(Rect.Left, Rect.Top,(Control as TListBox).Items&#91;Index&93;);   end;end;[/code:1:2f62eeab9b]O c�digo acima gera itens com suas cores de fundo alternadas entre branco e azul.[b:2f62eeab9b][color=red:2f62eeab9b]IMPORTANTE[/color:2f62eeab9b][/b:2f62eeab9b]: Para fucionar � necess�rio que antes seja alterada a propriedade Style do ListBox para lbOwnerDrawFixed.Valeu.wbb...

Marcelo Saviski · Answer

�timo, para quem quiser diferenciar o Item selecionado, pode verificar se: [color=darkblue:7aff823126] odSelected in State [/color:7aff823126], e selecionar uma cor diferente, como nos c�digos acima

F�rum Mudar cor de fundo da linha do ListBox #239265