ListView Color Helper

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

Привет Всем!

Много тем на форуме про раскраску TListView, нашел в интернете решение и доработал его

Вот что получилось

   

LV_Helper.zip                                                                  ColorListView.zip

Доступно для Seattle

  ListView1.SetColorItemSelected(TAlphaColorRec.Orangered); //выделенный
  ListView1.SetColorItemFill(TAlphaColorRec.Gray); // обычный цвет Item
  ListView1.SetColorItemFillAlt(TAlphaColorRec.Lightgrey); // альтернативный цвет Item
  ListView1.SetColorBackground(TAlphaColorRec.Black); // цвет самого TListView
  ListView1.SetColorItemSeparator(TAlphaColorRec.Lightgray); // Линия разделения Item'ов

  ListView1.SetColorText(TAlphaColorRec.Red); // Обычный текст
  ListView1.SetColorTextSelected(TAlphaColorRec.White); // выделенный текст
  ListView1.SetColorTextDetail(TAlphaColorRec.Yellow); // текст доп. инфы
  ListView1.SetColorTextHeader(TAlphaColorRec.Green); // текст заголовка
  ListView1.SetColorTextHeaderShadow(TAlphaColorRec.Lightgray); // тень текста

  ListView1.SetColorButtonText(TAlphaColorRec.Orange); // цвет текста кнопки
  ListView1.SetColorButtonTextPressed(TAlphaColorRec.Orangered); // цвет нажатой кнопки

добавлено в Berlin

    ListView1.SetColorPullRefresh(TAlphaColorRec.Orange);
    ListView1.SetColorPullRefreshIndicator(TAlphaColorRec.Orangered);
    ListView1.SetColorStretchGlow(TAlphaColorRec.Lime);

ModernListView.rar

Изменено 6 июля, 2016 пользователем ZuBy

[master webs]

Добрый день подскажите  а можно установить конкретный  цвет  для  одного итема ? при заполнении  циклом ? 

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

Добрый день подскажите  а можно установить конкретный  цвет  для  одного итема ? при заполнении  циклом ? 

нет, но могу скинуть измененный ListView с покраской конкретных Item'ов

[master webs]

 

Добрый день подскажите  а можно установить конкретный  цвет  для  одного итема ? при заполнении  циклом ? 

нет, но могу скинуть измененный ListView с покраской конкретных Item'ов

 

спасибо буду очень благодарен  ) 

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

версия для Seatle ColorListView.zip

 

весь код для отрисовки кастомного цвета 

1) копируем себе и открываем FMX.ListView

2) Ctrl+F -> DrawItemsFill

3) Вставляем код

// отрисовываем кастомный цвет...........................................
// procedure TListViewBase.DrawItemsFill(const StartItem.................
 if TListViewItem(ListItem).Data['aUseCustomColor'].AsBoolean then
    FBrush.Color := TListViewItem(ListItem).Data['aCustomColor'].AsInteger;
// ......................................................................

после

if FAlternatingColors and (AltIndex mod 2 = 1) then
  FBrush.Color := FItemStyleFillAltColor;

4) Подключаем в своём проекте после стандартного FMX.ListView

Изменено 24 декабря, 2015 пользователем ZuBy

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

версия для берлина

• Раскраска ListView
• Кастомный цвет для определенного Item'a
• Отступы для разделителей 
• Определение Index'a верхнего Item'a
• Кол-во видимых элементов

Показано как можно реализовать интерфейс день/ночь

ModernListView.rar

 

Изменено 6 июля, 2016 пользователем ZuBy
обновил вложение

[Rusland]

ZuBy, почему-то в примере текст с кнопок пропадает (похоже после нажатия Изменить цвет и при переключении Switch-а).

PS. Windows/Android

Изменено 7 июля, 2016 пользователем Rusland

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

2 часа назад, Rusland сказал:

ZuBy, почему-то в примере текст с кнопок пропадает (похоже после нажатия Изменить цвет и при переключении Switch-а).

PS. Windows/Android

да заметил, решение пока не нашел. не понятно почему текст начал пропадать

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

В 07.07.2016 в 14:22, Rusland сказал:

ZuBy, почему-то в примере текст с кнопок пропадает (похоже после нажатия Изменить цвет и при переключении Switch-а).

PS. Windows/Android

можете проверить у себя:

• кидаем TListView на форму
• ставим anchors или align
• ItemApperance = ImageListItemBottomDetailRightButton
• запускаем и делаем ресайз формы
• текст пропадает с кнопки
• Profit?

У меня это воспроизводится в голом проекте, FMX.ListView.pas не изменен

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

В 09.07.2016 в 10:25, ZuBy сказал:

В 07.07.2016 в 14:22, Rusland сказал:

ZuBy, почему-то в примере текст с кнопок пропадает (похоже после нажатия Изменить цвет и при переключении Switch-а).

PS. Windows/Android

можете проверить у себя:

• кидаем TListView на форму
• ставим anchors или align
• ItemApperance = ImageListItemBottomDetailRightButton
• запускаем и делаем ресайз формы
• текст пропадает с кнопки
• Profit?

У меня это воспроизводится в голом проекте, FMX.ListView.pas не изменен

добавление Item'ов

  for I := 0 to 20 do
  begin
    AItem := ListView1.Items.Add;
    with AItem do
    begin
        Text := 'Item Random ' + I.ToString;
        Detail := 'Detail for ' + Text;
        ButtonText := 'Custom Color';
        Bitmap := Image1.Bitmap;
    end;
    ListView1.Adapter.ResetView(AItem); // fix TextButton ( TListViewTextButtonFix )
  end;

устраняем багу

procedure TForm1.ListView1UpdatingObjects(const Sender: TObject; const AItem: TListViewItem; var AHandled: Boolean);
begin
  TListViewTextButtonFix.Rendering(Sender, AItem, AHandled); // fix
end;

FMX.ListView.TextButtonFix.zip