Контекстное меню Dox3r

В подсистеме Dox3R для задания контекстного меню используются структура PopupMenu и поле PopupMenu_Count

 

Пример:

sub

IMPORT

      PopupMenu: ARRAY 20 OF RECORD ! Пользовательское PopupMenu

        Caption: STRING;

        Hint: STRING;

        Handler: STRING;

        Enabled: INTEGER;

        Tag: INTEGER;

        KOD_METHOD: STRING;

        KOD_ACTION: STRING;

      END,

      PopupMenu_Count: INTEGER ! Кол-во пунктов пользовательского PopupMenu

EXPORT

      PopupMenu: ARRAY 20 OF RECORD ! Пользовательское PopupMenu

        Caption: STRING;

        Hint: STRING;

        Handler: STRING;

        Enabled: INTEGER;

        Tag: INTEGER;

        KOD_METHOD: STRING;

        KOD_ACTION: STRING;

      END,

      PopupMenu_Count: INTEGER ! Кол-во пунктов пользовательского PopupMenu

 

system dox3r

   PopupMenu[1].Caption ="Первый"

   PopupMenu[1].Hint = "Хинт первого пункта"

   PopupMenu[1].Handler = "PopupHandler"

   PopupMenu[1].Enabled = 1

   PopupMenu[1].tag = 1

 

   PopupMenu[2].Caption ="Второй"

   PopupMenu[2].Hint = "Хинт второго пункта"

   PopupMenu[2].Handler = "PopupHandler"

   PopupMenu[2].Enabled = 1

   PopupMenu[2].tag = 2

 

   PopupMenu_Count=2

subend

 

Подсистема DOX