28 lines
887 B
ObjectPascal
28 lines
887 B
ObjectPascal
// Модуль 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. |