> Alguem sabe como fazer um listbox ficar zebrado ?
Mude a propriedade ListBox1.Style para lbOwnerDrawFixed e escreva o
manipulador do evento OnDrawItem como abaixo:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
if odSelected in State then
begin
ListBox1.Canvas.Brush.Color := clHighlight;
ListBox1.Canvas.Font.Color := clHighlightText;
end else
begin
ListBox1.Canvas.Font.Color := clBlack;
if Odd(Index) then
ListBox1.Canvas.Brush.Color := clMoneyGreen
else
ListBox1.Canvas.Brush.Color := clWindow;
end;
ListBox1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2,
ListBox1.Items[Index]);
end;
Atenciosamente.
Daniel P. Guimar�es
Tecnobyte Inform�tica
www.tecnobyte.com.br
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que voc� faz do Yahoo! Grupos est� sujeito aos:
http://br.yahoo.com/info/utos.html
