Лидеры

https://onedrive.live.com/redir?resid=6F5EAC5B9D042042!4961&authkey=!AEoTXbnPYPhSm4I&ithint=folder%2cpdf

Появилась необходимость добавить большое количество картинок, но делать это стандартными средствами не очень удобно (почитать можно тут: Где хранить большое количество картинок?). Собственно, написал маленькую программку для создания файла RC и создания bat – файла, который позволяет генерировать RES файл. В свободное время буду допиливать. Как использовать: Указываете путь до папки с файлами, которые необходимо добавить в ресурсы. Указываете имя выходного файла, без расширения. Расширение (.rc) уже забито в коде. Выбираете тип ресурсов. Ставите необходимые галочки. Жмёте "Создать" Итоговые файлы будут лежать рядом с exe-файлом приложения. Обращаться к ресурсам можно по оригинальным именам или автоматически сгенерованным. Пример (оригинальные имена): Имя файла "FruitsVegetables_1.png". В готовом файле будет так: FruitsVegetables_1 ТИП ПУТЬ\FruitsVegetables_1.png Надеюсь, кому-нибудь пригодится. Версия 1.4: Скачать с Google Drive (версия 1.4). Новую версию можно скачать ниже, в последнем сообщении.

действительно, как я забыл? структуру JSON. нет ничего проще! отладчик Seattle вообще не знает ничего о существовании объектов сложнее Integer да и Integer - только если он прямо локальный-прелокальный... а глобальные объекты так и вообще

"ОБУЧЕНИЕ МОБИЛЬНОЙ РАЗРАБОТКЕ НА DELPHI"

я сделал с помощью хелпера, ну вернее с инета спер и под 10 версию приспособил. добавляем хелпер TListViewHelper = class helper for TListViewBase procedure SetItemStyleFillAltColour(Colour : TAlphaColor); procedure SetBackgroundItemStyleColor(Colour : TAlphaColor); procedure SetBackgroundStyleColor(Colour : TAlphaColor); procedure SetSelectionStyleColor(Colour : TAlphaColor); end; процедуры procedure TListViewHelper.SetBackgroundItemStyleColor(Colour: TAlphaColor); begin TListViewBase(self).FItemStyleFillColor := Colour; end; procedure TListViewHelper.SetBackgroundStyleColor(Colour: TAlphaColor); begin TListViewBase(self).FBackgroundStyleColor := Colour; end; procedure TListViewHelper.SetItemStyleFillAltColour(Colour: TAlphaColor); begin TListViewBase(self).FItemStyleFillAltColor := Colour; end; procedure TListViewHelper.SetSelectionStyleColor(Colour: TAlphaColor); begin TListViewBase(self).FSelectionStyleColor := Colour; end; вызов если в OnCreate формы ВашЛистВью.ApplyStyleLookup; // загружаем стиль ВашЛистВью.SetBackgroundItemStyleColor($20ffffff); // устанавливаем цвет, первые два байта альфаканал остальные цвет. можно так TAlphaColors.red