/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Graphics/Controls/cc9_ListBox.pas
28 строк
887 B
Mikhalkovich Stanislav
Controls - примеры
01 авг 2020, 00:13
01 авг 2020, 00:13
a4804f3
Код
Авторство
О чём код?
// Модуль Controls - элемент управления "Список" и использование словаря uses Controls,GraphWPF; begin Window.Title := 'Столицы стран'; LeftPanel(150,Colors.Orange); var l := ListBox('Список стран'); //l.Tooltip := 'Выбери страну - отобразится столица'; l.Height := 110; l.Add('Россия'); l.Add('США'); l.Add('Китай'); l.Add('Германия'); l.Add('Франция'); var d := Dict(('Россия','Москва'), ('США','Вашингтон'), ('Китай','Пекин'), ('Германия','Берлин'), ('Франция','Париж') ); Font.Size := 70; l.SelectionChanged := procedure -> begin Window.Clear; DrawText(GraphWindow.ClientRect,'Столица:'+#10+d[l.SelectedText]); end; end.