/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Graphics/Controls/cc15_ListView.pas
23 строки
991 B
Mikhalkovich Stanislav
WPFObjects Objects Clear DestroyAll
09 авг 2020, 18:15
09 авг 2020, 18:15
46d371f
Код
Авторство
О чём код?
// Модуль Controls - замена графического окна элементом "ListView" uses Controls,GraphWPF; type My = class public auto property Поле1: integer; auto property Поле2: integer; constructor (п1,п2: integer) := (Поле1,Поле2) := (п1,п2); end; begin Window.Title := 'Модуль Controls - замена графического окна элементом "ListView"'; LeftPanel(150,Colors.Orange); var l := SetMainControl.AsListView; // Заполнение объектами класса, у которых есть публичные свойства l.Fill(Arr(new My(2,5),new My(4,6))); Button('Очистить список').Click := procedure -> l.Clear; Button('Заполнить данными').Click := procedure -> l.Fill(|('Иванов',20),('Петров',19)|); Button('Заполнить заголовки').Click := procedure -> l.SetHeaders('Фамилия','Возраст'); end.