System/Rsrc/Menus.odc

INCLUDE "i21edu"

MENU "Файлы"
	"Новый"	"N"	"StdCmds.New"	""
	"Открыть..."	"O"	"HostCmds.Open"	""
	"Открыть копию..."	""	"HostCmds.OpenCopyOf"	""
	"Сохранить"	"S"	"HostCmds.Save"	"HostCmds.SaveGuard"
	"Сохранить как..."	"*S"	"HostCmds.SaveAs"	"StdCmds.WindowGuard"
	"Сохранить копию как..."	""	"HostCmds.SaveCopyAs"	"StdCmds.WindowGuard"
	"Сохранить как картинку BMP..." 	""	"i21sysBitmaps.SaveSingleton"	"StdCmds.SingletonGuard"
	"Закрыть"	"W"	"HostCmds.Close"	"StdCmds.WindowGuard"
	SEPARATOR
	"Разметка страниц..."	""	"HostDialog.InitPageSetup; StdCmds.OpenToolDialog('HostDialog.setup', 'Разметка страниц')"
				"StdCmds.WindowGuard"
	"Печатать..."	"P"	"HostCmds.Print"	"HostCmds.PrintGuard"
	SEPARATOR
	"Send &Document..."	""	"HostMail.SendDocument"	"HostMail.SendDocumentGuard"
	"Send Not&e..."	""	"HostMail.SendNote"	"HostMail.SendNoteGuard"
	SEPARATOR 

	"Закончить работу"	""	"i21sysDesktop.Exit"	""
	"Закончить работу"	""	"HostMenus.Exit"	""
END

MENU "Правка"
	"Отменить"	"Z"	"StdCmds.Undo"	"StdCmds.UndoGuard"
	"Снова"	"Y"	"StdCmds.Redo"	"StdCmds.RedoGuard"
	"Снова"	"*Z"	"StdCmds.Redo"	"StdCmds.RedoGuard"
	SEPARATOR
	"Вырезать"	"X"	"HostCmds.Cut"	"HostCmds.CutGuard"
	"Копировать"	"C"	"HostCmds.Copy"	"HostCmds.CopyGuard"
	"Вставить"	"V"	"HostCmds.Paste"	"HostCmds.PasteGuard"
	"Удалить	Delete"	""	"StdCmds.Clear"	"HostCmds.CutGuard"
	"Копировать атрибуты"	"*C"	"StdCmds.CopyProp"	"StdCmds.SelectionGuard"
	"Применить атрибуты"	"*V"	"StdCmds.PasteProp"	"StdCmds.SelectionGuard"
	SEPARATOR
	"Вставить объект"	""	"HostCmds.PasteObject"	"HostCmds.PasteObjectGuard"
	"Вставка специальная..."	""	"OleClient.PasteSpecial"	"HostCmds.PasteObjectGuard"
	"Открыть в новом окне"	""	"HostCmds.PasteToWindow"	"HostCmds.PasteToWindowGuard"
	SEPARATOR
	"Вставить внешний объект..."	""	"OleClient.InsertObject"	"StdCmds.PasteViewGuard"
	"Свойства объекта...	Alt+Enter"	""	"StdCmds.ShowProp"	"StdCmds.ShowPropGuard"
	"Объект"	""	"HostMenus.ObjectMenu"	"HostMenus.ObjectMenuGuard"
	SEPARATOR
	"Выделить документ как целое"	" "	"StdCmds.SelectDocument"	"StdCmds.WindowGuard"
	"Выделить всё содержимое"	"A"	"StdCmds.SelectAll"	"StdCmds.SelectAllGuard"
	"Найти следующий объект"	"F6"	"StdCmds.SelectNextView"	"StdCmds.ContainerGuard"
	SEPARATOR
	"Настройки..."	""	"HostDialog.InitPrefDialog; StdCmds.OpenToolDialog('Host/Rsrc/Prefs', 'Настройки')"	""
END

MENU "Шрифт"
	"Простой текст"	""	"StdCmds.Plain;StdCmds.Color(1000000H)"	"StdCmds.PlainGuard"
	"Комментарий"	""	"StdCmds.Color(0607000H);StdCmds.Plain;StdCmds.Italic"	"StdCmds.ColorGuard(0607000H)"
	"Гиперссылка"	""	"StdCmds.Color(0B00000H);StdCmds.Underline"	"StdCmds.ColorGuard(0B00000H)"
	SEPARATOR
	"Полужирный"	"B"	"StdCmds.Bold"	"StdCmds.BoldGuard"
	"Курсив"	"I"	"StdCmds.Italic"	"StdCmds.ItalicGuard"
	"Подчеркнутый"	"U"	"StdCmds.Underline"	"StdCmds.UnderlineGuard"
	SEPARATOR
	" 8 пунктов"	""	"StdCmds.Size(8)"	"StdCmds.SizeGuard(8)"
	" 9 пунктов"	""	"StdCmds.Size(9)"	"StdCmds.SizeGuard(9)"
	"10 пунктов"	""	"StdCmds.Size(10)"	"StdCmds.SizeGuard(10)"
	"12 пунктов"	""	"StdCmds.Size(12)"	"StdCmds.SizeGuard(12)"
	"14 пунктов"	""	"StdCmds.Size(14)"	"StdCmds.SizeGuard(14)"
	"16 пунктов"	""	"StdCmds.Size(16)"	"StdCmds.SizeGuard(16)"
	"20 пунктов"	""	"StdCmds.Size(20)"	"StdCmds.SizeGuard(20)"
	"24 пунктов"	""	"StdCmds.Size(24)"	"StdCmds.SizeGuard(24)"
	"Кегль..."	""	"StdCmds.InitSizeDialog; StdCmds.OpenToolDialog('Std/Rsrc/Cmds', 'Кегль')"
				"StdCmds.SizeGuard(-1)"
	SEPARATOR
	"Цвет по умолчанию"	""	"StdCmds.Color(1000000H)"	"StdCmds.ColorGuard(1000000H)"
	"Красный"	"*E"	"StdCmds.Color(00000E0H)"	"StdCmds.ColorGuard(00000E0H)"
	"Зеленый"	""	"StdCmds.Color(003A003H)"	"StdCmds.ColorGuard(003A003H)"
	"Синий"	""	"StdCmds.Color(0B00000H)"	"StdCmds.ColorGuard(0B00000H)"
	"Фиолетовый"	""	"StdCmds.Color(0800080H)"	"StdCmds.ColorGuard(0800080H)"
	"Серый"	""	"StdCmds.Color(0909090H)"	"StdCmds.ColorGuard(0909090H)"
	"Чёрный"	""	"StdCmds.Color(0000000H)"	"StdCmds.ColorGuard(0000000H)"
	"Цвет..."	""	"HostDialog.ColorDialog"	"StdCmds.ColorGuard(-1)"
	SEPARATOR
	"Шрифт по умолчанию"	""	"StdCmds.DefaultFont"	"StdCmds.DefaultFontGuard"
	"Шрифт..."	""	"HostDialog.FontDialog"	"StdCmds.TypefaceGuard"
	"Гарнитура..."	""	"HostDialog.TypefaceDialog"	"StdCmds.TypefaceGuard"
END

INCLUDE "Dev"

INCLUDE "Text"

INCLUDE "Form"

INCLUDE "Obx"

INCLUDE "*"

MENU "Окна"
	"Новое окно"	"F2"	"StdCmds.NewWindow"	"StdCmds.ModelViewGuard"
	SEPARATOR
	"В левый верхний угол"	""	"i21sysWindows.AlignTopLeft"	""
	"В правый верхний угол"	""	"i21sysWindows.AlignTopRight"	""
	SEPARATOR
	"Расположить каскадом"	""	"HostMenus.Cascade"	"StdCmds.WindowGuard"
	"Расположить горизонтально"	""	"HostMenus.TileHorizontal"	"StdCmds.WindowGuard"
	"Расположить вертикально"	""	"HostMenus.TileVertical"	"StdCmds.WindowGuard"
	"Упорядочить иконки"	""	"HostMenus.ArrangeIcons"	"StdCmds.WindowGuard"
	SEPARATOR
	"Сохранить конфигурацию окон"	""	"i21sysDesktop.Save"	""
	"Сохранить конфигурацию окон как..."	""	"i21sysDesktop.SaveAs"	""
	"Закрыть конфигурацию окон"	""	"HostCmds.SaveAll;i21sysDesktop.Close"	""
	"Восстановить конфигурацию окон"	""	"i21sysDesktop.Restore"	""
	"Открыть конфигурацию окон..."	""	"i21sysDesktop.Open"	""
	SEPARATOR
	"*"	""	"HostMenus.WindowList"	""
END

MENU "Справка"
	"Содержание"	"F1"	"StdCmds.OpenAuxDialog('Docu/ru/Help', 'Help Contents')"	""
	"Сообщение о языке ..."	""	"StdCmds.OpenBrowser('Docu/ru/CP-Lang', 'О Компонентном Паскале по-русски ...')"	""
	"Отличия Компонентного Паскаля"	""	"StdCmds.OpenBrowser('Docu/ru/Tut-B', 'Отличия Компонентного Паскаля')"	""
	"Краткая история Паскаля"	""	"StdCmds.OpenBrowser('Docu/ru/Tut-A', 'Краткая история Паскаля')"	""
	SEPARATOR
	"Справка для учителя"	""	"StdCmds.OpenBrowser('i21edu/Справка для учителя','Справка для школы')"	""
	"Организация комп. класса"	""	"StdCmds.OpenBrowser('i21edu/Docu.Знакомство/Организация компьютерного класса.odc', 'Организация компьютерного класса')"	""
	"Примеры из учебника Н.Вирта"	""	"StdCmds.OpenBrowser('ADru/Справка','Примеры из учебника Н.Вирта')"	""
	SEPARATOR
	"О системе Блэкбокс"	""	"StdCmds.OpenToolDialog('System/Rsrc/About', 'О системе Блэкбокс')"	""
	"О школьной сборке Блэкбокса"	""	"StdCmds.OpenBrowser('i21Привет', 'Об этой сборке Блэкбокса')"	""
	"О проекте Информатика-21"	""	"StdCmds.OpenBrowser('i21Greeting', 'О проекте Информатика-21')"	""
	"Сайт проекта Информатика-21 (www)"	""	"i21sysCalls.Open('http://www.inr.ac.ru/~iinfo21/')"	""
	"Сайт поддержки OberonCore (www)"	""	"i21sysCalls.Open('http://oberoncore.ru')"	""
	"Библиотека компонент CPC (www)"	""	"i21sysCalls.Open('http://zinnamturm.eu/')"	""
	"Библиотека компонент OberonCore (www)"	""	"i21sysCalls.Open('http://oberoncore.ru/bbcc/')"	""
	SEPARATOR
	"Создать файл-пускач"	""	"i21sysScript.CreateVbs"	""
END


MENU "*" 
	"Вырезать"	""	"HostCmds.Cut"	"HostCmds.CutGuard"
	"Копировать"	""	"HostCmds.Copy"	"HostCmds.CopyGuard"
	"Вставить"	""	"HostCmds.Paste"	"HostCmds.PasteGuard"
	"Удалить"	""	"StdCmds.Clear"	"HostCmds.CutGuard"
	SEPARATOR
	"Свойства..."	""	"StdCmds.ShowProp"	"StdCmds.ShowPropGuard"
	"Объект"	""	"HostMenus.ObjectMenu"	"HostMenus.ObjectMenuGuard"
END