listview

[s1s1s1]

подскажите как поменять цвет выделения в listview

[artemavd]

Вот код, который создает цветные строки:

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
   Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
 begin
   with ListView1.Canvas.Brush do
   begin
     case Item.Index of
       0: Color := clYellow;
       1: Color := clGreen;
       2: Color := clRed;
     end;
   end;
 end;

Попробуйте его применить в сВашем случае.

[Stilet]

цвет выделения в listview

Наксколько я знаю цвет выделения берется из темы виндовса.
Если менять хочешь то отрисовывай ручками как Артем предлагает. Плюс к его коду нужен метод закраски Fillrect и отрисовки текста OutTextXY

[s1s1s1]

я не знаю правильно ли вы поняли. мне нужно изменить цвет selectitem стандартный там синий.

[.Phoenix]

s1s1s1

я не знаю правильно ли вы поняли. мне нужно изменить цвет selectitem стандартный там синий.

Stilet тебе правильно говорит, при выделении элементов списка в ListBox'е цвет выделения зависит от темы Windows. Поробуй сменить темы (Оливковый, Серебристый, Стандартный(Голубой)) и ты увидишь, что цвет при выделении элементов в ListBox меняется в зависимости от темы. Вот, реально можно за то именить фон ListBox'а.

[s1s1s1]

спасибо!!!!!

Подскажите тогда что исправить в коде,чтобы работало без Selected.
на пример c Focused .
если ListView1.Items.Item[0].Selected := False;
код

CurrentItem := ListView1.Selected;    
    Item := ListView1.GetItemAt(x, y);   
    if Item <> nil then
      Item := ListView1.Items.Insert(Item.Index)      
    else
      Item := ListView1.Items.Add;
       Item.Assign(CurrentItem);
    CurrentItem.Free;

[Stilet]

чтобы работало без Selected

Что-то я не очень понял что нужно...

[s1s1s1]

этот код меняет item'ы местами перетаскивание ,но при выделенном item
как сделать, чтобы работоло без выделения