- 0
ListView в Берлине и в Токио
-
Похожий контент
-
- 39 ответов
- 6 574 просмотра
-
- 5 ответов
- 1 979 просмотров
-
- 5 ответов
- 1 688 просмотров
-
- 6 ответов
- 2 052 просмотра
-
- 0 ответов
- 1 339 просмотров
-
- 30 ответов
- 3 038 просмотров
-
- 17 ответов
- 4 130 просмотров
-
- 5 ответов
- 2 427 просмотров
-
- 7 ответов
- 3 468 просмотров
-
- 5 ответов
- 1 712 просмотра
-
-
Последние посетители 0 пользователей онлайн
- Ни одного зарегистрированного пользователя не просматривает данную страницу
Вопрос
Rusland
Delphi Tokyo
ListView->ItemAppearance->ItemAppearance=DynamicAppearance
Есть ImageList c 3 картинками.
Добавляю item-ы в ListView:
procedure TForm1.Button1Click(Sender: TObject); var i:integer; Lvi: TListViewItem; begin LsvObjects.BeginUpdate; LsvObjects.Items.Clear; try for i:=0 to 100 do begin Lvi := LsvObjects.Items.Add; Lvi.Tag := i; Lvi.Data['ObjectText'] := 'ObjectText '+i.ToString; Lvi.Data['StateText'] := 'StateText '+i.ToString; Lvi.Data['ConnectText'] := 'ConnectText '+i.ToString; end; finally LsvObjects.EndUpdate; end; end;
в UpdateObjects рандомно выбираю картинку:
procedure TForm1.LsvObjectsUpdateObjects(const Sender: TObject; const AItem: TListViewItem); var ... oConnectImage: TListItemImage; r: integer; begin r:=Random(ImageList1.Count); oConnectImage:=aItem.Objects.FindDrawable('ConnectImage') as TListItemImage; if (oConnectImage<>nil) then oConnectImage.ImageIndex:=r; ... end;
В Windows все нормально. А вот что я вижу на планшетах:
На Dexp:
На Lenovo:
Картинки могут появиться, а могут и нет. Как исправить ситуацию? Вот сам проект.
Про Berlin добавлю вопрос позже.
Ссылка на комментарий
6 ответов на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.