/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Graphics/Controls/cc10_ComboBox.pas
27 строк
845 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 := ComboBox('Список стран'); l.Tooltip := 'Выбери страну - отобразится столица'; 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,d[l.SelectedText]); end; end.