Как реализовать это?

[Axbor]

Как реализовать такой список в ListBox e? Что бы при программном добавлении списка новый элемент добавлялось точно такими элементами.

[haword]

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

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

что-то типа этого?

demoLV.zip

[Axbor]

что-то типа этого?

2015-12-07 11-53-17 Скриншот экрана.png

demoLV.zip

Да то что нужно! Как я понимаю вы создали отдельный класс для ListItem да? Просто я с делфи не очень дружу, можете чуть чуть обяснит?

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

нет, я просто отрисовал нужные контролы в Item'e. а тот класс это для покраски TListView, через него я убрал разделитель.

все что вам нужно находиться в OnUpdateObjects, посмотрите на константы и как присваиваются данные

[Axbor]

нет, я просто отрисовал нужные контролы в Item'e. а тот класс это для покраски TListView, через него я убрал разделитель.

все что вам нужно находиться в OnUpdateObjects, посмотрите на константы и как присваиваются данные

Спасибо большое!

[R.is]

что-то типа этого?

2015-12-07 11-53-17 Скриншот экрана.png

demoLV.zip

Добрый вечер господа 

во первых спасибо ZuBy за исходник

скачал данный исходник и прям в нем начал делать свой проект но возникла проблема, есть Listbox в котором динамически создаются Item-ы в них хранятся ссылки на картинки из сайта, картинки разные в формате .bmp количество Item-ов у Litbox и Listview одинаковы 

как загрузить эти картинки в Listview?

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

Да пожалуйста, пользуйтесь.

У Itema же есть Bitmap. Если нужно через инет, то нужно через хелпер тут не раз выкладывали

Есть тема от меня в разделе TListView про динамическую загрузку картинок, посмотрите там.

[R.is]

Да пожалуйста, пользуйтесь.

У Itema же есть Bitmap. Если нужно через инет, то нужно через хелпер тут не раз выкладывали

Есть тема от меня в разделе TListView про динамическую загрузку картинок, посмотрите там.

Нашел тему, спасибо буду пробовать

[slava_d2000]

Доброе время суток.

Классный пример.

А не подскажите каким образом можно в данном примере

отобразить кнопки и прогресс бар.

и

еще один вопрос.

если требуется отобразить тиканье времени, каким образом производится обновление перерисовки итема ?

[zairkz]

если требуется отобразить тиканье времени, каким образом производится обновление перерисовки итема ?

Нужен Timer и ListView

Например в ListView -> OnUpdateObjects

procedure TForm1.ListViewPoiskUpdateObjects(const Sender: TObject; const AItem: TListViewItem);

var
  aTime: TListitemText;
begin
  aTime := AItem.Objects.FindDrawable('time') as TListitemText;
  if aTime = nil then
  begin
    aTime := TListitemText.Create(AItem);
    aTime.Name := 'time';
    aTime.PlaceOffset.X := 0;
    aTime.PlaceOffset.Y := 2;
    aTime.Font.Size := 14;
    aTime.TextVertAlign := TTextAlign.Center;
    aTime.TextAlign := TTextAlign.Center;
  end;
  aTime.Width := 72;
  aTime.Height := 20;


  //Двигаем Text итема с отступом
  AItem.Objects.TextObject.PlaceOffset.X := aTime.Width + 6;
end;


И таймер

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i: integer;
begin
  if ListView1.ItemCount > 0 then
    for i := 0 to ListView1.ItemCount - 1 do
      ListView1.Items[i].Data['time'] := FormatDateTime('ss сек.', Now);
end;

Изменено 7 марта, 2016 пользователем Andrey Efimov
Добавил тег "Код"

[slava_d2000]

ок спасибо.

 

А не подскажите каким образом можно в данном примере

отобразить кнопки и прогресс бар.

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

ок спасибо.

 

А не подскажите каким образом можно в данном примере

отобразить кнопки и прогресс бар.

Кнопку можно создать используя TListItemTextButton в обработчике OnUpdateObjects

 

а на счёт прогрессбара, то тут нужно придумать что-то своё (или текстом или картинками делать)

[krapotkin]

есть video на youtube от embarcadero 

effective using mobile list controls

[Rusland]

Использую helper для раскраски ListView (LVhelper.pas) из примера ZuBy.

procedure TFrmMain.SetListViewStyle();
begin
  Lsv.SetColorItemFill($FF000000); // цвет фона item-а серый
  Lsv.SetColorBackground($FF000000); // фон делаем "черным" 
  Lsv.SetColorItemFillAlt($FF1A1A1A);                      
  Lsv.SetColorItemSelected($FF1A1A1A); // фон выделенного item-а 

  Lsv.SetColorText($FFFFFFFF); // шрифт белый
  Lsv.SetColorTextSelected($FFFFFFFF); // шрифт белый
end;

Раскрашивается замечательно, НО когда я выделяю item, то текста в выделенной ячейке практически не видно - он становится то ли темно-серым, то ли черным.

Как побороть?

 

 

Оказывается все просто, процедуру надо вызывать непременно в OnApplyStyleLookup - тогда все работает как надо. 

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