procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin with (Control as TListBox).Canvas do begin if (odSelected in State) then begin Brush.Color:=clGreen; Font.Color := clBlack; FillRect(Rect); end else begin Brush.Color:=clWindow; Font.Color := clBlack; FillRect(Rect); end; end; end;
¿Alguna idea?.
Saludos.