Как раскраcить ListView

[AndroidHalfNoob]

Создаю программно итемы. как можно их раскрасить в разные цвета. например если дата просрочена, то цвет заливки желтый. если отмена, то красный, если все ок, то зеленый.

[krapotkin]

в принципе, все просто, достаточно сделать свой класс и создавать объект этого класса в OnUpdateObjects

Пример есть в видео effective using mobile lists или как-то так называется. CodeRage, Ray Konopka

А еще Zuby вроде что-то в этом духе запиливал...

Изменено 16 апреля, 2016 пользователем krapotkin

[Равиль Зарипов (ZuBy)]

11 час назад, krapotkin сказал:

А еще Zuby вроде что-то в этом духе запиливал...

http://fire-monkey.ru/topic/1903-listview-color-helper/#comment-9975

[AndroidHalfNoob]

спасибо. буду экспериментировать.

[AndroidHalfNoob]

Эксперимент выдает странный результат.

Цитата

procedure myCustomItemColor(const aLV: TListView; const aItemIndex: integer; const aCustomColor: TAlphaColor;
  const aUseCustomColor: Boolean = true);
begin
  with aLV.Items[aItemIndex] do
  begin
    Data['aUseCustomColor'] := aUseCustomColor;
    Data['aCustomColor'] := aCustomColor;
  end;
end;

Процедура построения ListView1

Цитата

procedure TForm4.Button1Click(Sender: TObject);
var
  i: integer;

      LItem: TListViewItem;
begin

  ListView1.Items.Clear;
  ListView1.BeginUpdate;
  for i := 0 to 25 do
  begin
       LItem := ListView1.Items.Add;
     Text := 'Item Random ' + i.ToString;
       if (i=10) or(i=15) or (i=20) then  myCustomItemColor(ListView1, 0, TAlphaColorF.Create(-142.57142639602, 206.809524536133, 255, -55.238094329834).ToAlphaColor)
       else
       myCustomItemColor(ListView1, 0, TAlphaColorF.Create(170.666656494141, -255, -122.476196289063, -193.761901855469).ToAlphaColor)
   end;
  ListView1.EndUpdate;
end;

закрашивает все добавенные итемы в зеленый цвет. а при прокрутке ListView1 дальше 6 итема, все итемы становятся белыми.

Если изменить код и добавить то что выделено жирным шрифтом

Цитата

 

 for i := 0 to 25 do
  begin
    with ListView1.Items.Insert(0) do
    begin

     LItem := ListView1.Items.Add;
      LItem.Text := 'Item Random ' + i.ToString;
    
       if (i=10) or(i=15) or (i=20) then  myCustomItemColor(ListView1, 0, TAlphaColorF.Create(-142.57142639602, 206.809524536133, 255, -55.238094329834).ToAlphaColor)
       else
       myCustomItemColor(ListView1, 0, TAlphaColorF.Create(170.666656494141, -255, -122.476196289063, -193.761901855469).ToAlphaColor)
    end;
  end;
  ListView1.EndUpdate;
end;

то все работает как надо и при прокрутке не белеет

Изменено 19 апреля, 2016 пользователем AndroidHalfNoob

[Равиль Зарипов (ZuBy)]

with ListView1.Items.Insert(0) do
LItem := ListView1.Items.Add;

WTF??

Вас не смущает эта процедура и её параметры?

procedure myCustomItemColor(const aLV: TListView; const aItemIndex: integer; const aCustomColor: TAlphaColor;
  const aUseCustomColor: Boolean = true);

Изменено 19 апреля, 2016 пользователем ZuBy

[AndroidHalfNoob]

24 минуты назад, ZuBy сказал:

with ListView1.Items.Insert(0) do
LItem := ListView1.Items.Add;

WTF??

Вас не смущает эта процедура и её параметры?

procedure myCustomItemColor(const aLV: TListView; const aItemIndex: integer; const aCustomColor: TAlphaColor;
  const aUseCustomColor: Boolean = true);

да. я понимаю что тут как бы двойная вставка получается, но если это убрать, то суть не меняется. элементы раскрашиваются каждый пятый, но при прокрутке все равно становятся все белые.

[Равиль Зарипов (ZuBy)]

редактор что-то снова гонит...

 

 

 

 

 

 

 

и еще что это за цвета??

цвет там генерируется подругому

TAlphaColorF.Create(255 / 170, 255 / 255, 255 / 122, 255 / 193).ToAlphaColor

 

Изменено 19 апреля, 2016 пользователем ZuBy

[AndroidHalfNoob]

-142.57142639602, 206.809524536133, 255, -55.238094329834     Это бордовый цвет
 170.666656494141, -255, -122.476196289063, -193.761901855469        салатовый

 

Изменено 19 апреля, 2016 пользователем AndroidHalfNoob

[Равиль Зарипов (ZuBy)]

6 минут назад, AndroidHalfNoob сказал:

-142.57142639602, 206.809524536133, 255, -55.238094329834     Это бордовый цвет
 170.666656494141, -255, -122.476196289063, -193.761901855469        салатовый

отрицательных значении не может быть, увы

[AndroidHalfNoob]

1 минуту назад, ZuBy сказал:

отрицательных значении не может быть, увы

у меня же как то работает:) завтра с работы скину полностью проект в архиве

 

Изменено 19 апреля, 2016 пользователем AndroidHalfNoob

[Rusland]

Кстати, попробовал этот метод на Берлине, отредактировав FMX.ListView.pas. Работает.

[AndroidHalfNoob]

Выкладываю проект.

Если нажать кнопку "Заполнить", то отрабатывает как надо, но если прокручивать вниз, то все итемы белеют.

Так же ниже на форме ползунки имеются. Четвертый ползунок отвечает за цвет. остальные за насыщенность и прочее.

ColorListView.rar

[Равиль Зарипов (ZuBy)]

еще раз повторюсь:

1. отрицательных значении не может быть (посмотрите исходники TAlphaColor - 0..255, TAlphaColorF - 0..1)
2. добавил myInsertIndex для понимания с каким индексом идёт работа

ColorListView_2.zip

[Rusland]

ZuBy, как изменить цвет выделенного itema?

[Равиль Зарипов (ZuBy)]

13 минуты назад, Rusland сказал:

ZuBy, как изменить цвет выделенного itema?

можно попробовать использовать хэлпер

[Rusland]

16 минут назад, ZuBy сказал:

можно попробовать использовать хэлпер

Так не работает же хелпер... вот, например, свойство FBackgroundStyleColor в private секции, до него теперь не добраться.

Изменено 20 апреля, 2016 пользователем Rusland

[Равиль Зарипов (ZuBy)]

у меня пока нет берлина, поэтому не могу сказать точно.

Но предложить могу вот так, в новой процедуре в public секции сделать:

FSelectionStyleImage := nil; // освобождаем от ресурсов, для использования цвета
FSelectionStyleColor := TAlphaColorRec.Green; // присваиваем собственный цвет для выделения

в DrawItemsFill нужно проверить текущий индекс на выделение, если выделено, то присвоить 

FBrush.Color := FSelectionStyleColor; // присваиваем цвет нашему выделенному Index'у

Как-то так, должно получится