/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Graphics/Controls/cc20_Menu.pas
17 строк
396 B
Mikhalkovich Stanislav
Controls - примеры
01 авг 2020, 00:13
01 авг 2020, 00:13
a4804f3
Код
Авторство
О чём код?
// Модуль Controls - меню uses Controls,GraphWPF; begin LeftPanel(150, Colors.Orange); var m := new MenuWPF; var mi1 := m.Add('File'); mi1.Add('New'); mi1.Add('Open'); mi1.Add('Save'); mi1.AddSeparator; mi1.Add('Exit').Click := procedure->Window.Close; //mi1.Add('Exit',procedure->Window.Close); m.Add('Edit'); m.Add('Options'); var mi := m.Add('Help'); end.