xp007
09 de Mayo del 2003

Hola!, alguien sabe de algun VCL o algo para utilizar ListBox con los items de diferentes colores de fondo.. o una Grid con la misma idea?
gracias

casilva
09 de Mayo del 2003

mira este codigo lo sace de trucomania, es buenisimo, te recimiendo ke lo visites:

http://www.q3.nu/trucomania/

suerte:
Truco numero 270.

-Basta con que pongamos su propiedad Style a lbOwnerDrawFixed y pongamos el siguiente c贸digo en su evento
OnDrawItem:




procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with (Control as TListBox) do
begin
{The Odd Items in Red, the others in black}
{Los Items pares de color rojo}
{Los impares en negro}
if Odd(Index) then Canvas.Font.Color:=clRed
else Canvas.Font.Color:=clBlack;
Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left,Rect.Top,Items[Index]);
end;
end;




El ejemplo dibuja los Items pares en rojo y los impares en negro, pero puedes poner la condici贸n que tu quieras...

¡AH!, este mismo truco lo puedes aplicar a una ComboBox...
 
chao.