Перейти к содержанию
Fire Monkey от А до Я
  • 0

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


Axbor

Вопрос

Рекомендуемые сообщения

  • 0

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

Ссылка на комментарий
  • 0
  • Модераторы

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

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

Ссылка на комментарий
  • 0

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

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

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

Ссылка на комментарий
  • 0

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

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

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

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

Ссылка на комментарий
  • 0
  • Модераторы

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

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

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

Ссылка на комментарий
  • 0

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

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

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

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

Ссылка на комментарий
  • 0

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

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

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

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

и

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

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

Ссылка на комментарий
  • 0

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

Нужен 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;
Изменено пользователем Andrey Efimov
Добавил тег "Код"
Ссылка на комментарий
  • 0
  • Модераторы

ок спасибо.

 

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

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

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

 

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

Ссылка на комментарий
  • 0

Использую 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 - тогда все работает как надо. 

Изменено пользователем Rusland
Ссылка на комментарий

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

×
×
  • Создать...