Foros Club Delphi - ListBox Seleccionada De Color

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - ListBox Seleccionada De Color (https://www.clubdelphi.com/foros/showthread.php?t=44192)

ZayDun

30-05-2007 20:13:03

ListBox Seleccionada De Color

hola,mi duda es que me gustaria que el items seleccionado de un listbox fuese de otro color... yo he probado ya varias maneras pero no encuentro la manera.. he visto un ejemplo que hablaba de items de varios colores pero del item seleccionado nada.. yo intento algo asi pero claro... NO FUNCIONA xD Saludos a todos los foreros y gracias.

Código Delphi [-]Lista.ItemIndex:=Lista.Canvas.Font.Color:=clRed;

cHackAll

30-05-2007 21:19:35

Solucion

A la propiedad de tu ListBox llamada "Style" definela como lbOwnerDrawFixed en tiempo de diseño, en el Evento OnDrawItem copia el siguiente código:

Código Delphi [-]procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
 with ListBox1.Canvas do
  begin
   if odSelected in State then
    Brush.Color := clRed
   else
    Brush.Color := clWhite;
   FillRect(Rect);
   TextOut(Rect.Left + 4, Rect.Top + 1, ListBox1.Items[Index]);
  end;
end;

Suerte!

La franja horaria es GMT +2. Ahora son las 10:42:32.