11 октября в Харькове прошел семинар в рамках RAD Studio XE3 World Tour. Подробный отчет о семинаре вы можете увидеть на сайте http://delphixe.com.ua/.
Я на семинаре показывал небольшой пример, иллюстрирующий работу механизма Visual LiveBinding. Как и обещал, выкладываю видео и, собственно, сам пример.
В качестве СУБД я использовал SQLite, компоненты доступа, для чистоты эксперимента, от стороннего производителя – LiteDAC от DevArt.
Я полностью записал весь процесс создания приложения, который занял около 20 минут. Получилась небольшая иллюстрация того, что теперь в FireMonkey приложения для работы с БД можно создавать практически так же просто, как и в VCL. Я не буду здесь приводить развернутых описаний, лишь вкратце расскажу, суть происходящего на видео. Если у вас возникнут вопросы, вы можете задать их в комментариях.
Первый ролик показывает процесс подключения компонентов доступа к БД. По сути ничем не отличается от аналогичного процесса в VCL.
Ролик 1.
Второй ролик – настройка главной формы приложения.
Ролик 2.
Создание формы со списком. Подключение простого набора данных. Собственно, здесь вы и сможете оценить простоту работы с Visual Live Binding.
Ролик 3.
В роликах 4 и 5, по сути, происходят те же действия, что и в 3-м. С той лишь разницей, что редактируются другие справочники.
Шестой ролик демонстрирует подключение контролов главной формы к источникам данных.
Ролик 6.
Ролики 7-8 – подключение ComboBox для выбора значений из списков.
Ролик 7.
Ролик 8.
Настройка полей грида.
Ролик 9.
Подключение красивой “шкурки”.
Ролик 10.
Проект вы можете скачать здесь.
Уж даже не знаю, что впечатлило больше…. Связывание по Visual LiveBindings или мгновенная стилизация
Вы сменили дизайн блога… O_O
I can’t read your language, but still worth watching the videos. Thanks!
Ролик 1 почему-то не воспроизводится.
А можно какой-нибудь пример LiveBinding для пользовательского объекта в памяти, например для
TPerson = class
private
// Fields & Setters
public
FirstName: string read FFirstName write SetFirstName;
LastName: string read FLastName write SetLastName;
BornDate: TDate read FBornDate write SetBornDate;
end;