Показать сообщение отдельно
  #68  
Старый 08.12.2012, 02:10
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

2. Смотри юнит ctrls.pas
3. Так же как и в VCL (у меня для этого также имеется класс);
4. Да, указанием флагов.
Код:
ID_MAINMENU	MENUEX
BEGIN
  POPUP "&Игра"
  BEGIN
    MENUITEM "Новая игра\tF2",		MN_NEW
    MENUITEM "Пауза\tPause",		MN_PAUSE
    MENUITEM "", MFT_SEPARATOR
    MENUITEM "Выход",			MN_EXIT
  END
  POPUP "&Настройки"
  BEGIN
    POPUP "Игроки"
    BEGIN
      MENUITEM "Человек-человек",	MN_HCOMP1
      MENUITEM "Человек-компьютер",	MN_HCOMP2
      MENUITEM "Компьютер-компьютер",	MN_HCOMP3
    END
    POPUP "Размер поля"
    BEGIN
      MENUITEM "17x24\tShift+1",	MN_SIZE1
      MENUITEM "23x30\tShift+2",	MN_SIZE2
      MENUITEM "29x36\tShift+3",	MN_SIZE3
      MENUITEM "35x46\tShift+4",	MN_SIZE4
    END
    POPUP "Время хода"
    BEGIN
      MENUITEM "7 секунд",		MN_WATCH1
      MENUITEM "15 секунд",		MN_WATCH2
      MENUITEM "60 секунд",		MN_WATCH3
    END
    POPUP "Сложность игры"
    BEGIN
      MENUITEM "Низкая\tCtrl+1",	1410, MFT_RADIOCHECK, MFS_CHECKED
      MENUITEM "Средняя\tCtrl+2",	1420, MFT_RADIOCHECK             
      MENUITEM "Высокая\tCtrl+3",	1430, MFT_RADIOCHECK             
    END
    POPUP "Игровое поле"
    BEGIN
      MENUITEM "Ромбы\tAlt+1",		1510, MFT_RADIOCHECK, MFS_CHECKED
      MENUITEM "Окружность\tAlt+2",	1520, MFT_RADIOCHECK             
      MENUITEM "Соты\tAlt+3",		1530, MFT_RADIOCHECK             
    END
  END
  POPUP "&Помощь", 0, MFT_RIGHTJUSTIFY
  BEGIN
    MENUITEM "&Содержание\tF1",		1200
    MENUITEM "", MFT_SEPARATOR
    MENUITEM "&О программе...",		1210
  END
END
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием