Application.ShowPopupMenu

OverviewExamples

number Application.ShowPopupMenu (

number X,

number Y,

table Menu,

number HAlign = TPM_LEFTALIGN,

number VAlign = TPM_TOPALIGN,

boolean WaitForReturn = true,

boolean ClientCoordinates = true )

Example 1

if(e_Type == RIGHT_BUTTON_DOWN)then
  tblMenu = {};
  tblMenu[1] ={};
  tblMenu[1].Text = "&New Menu";
  tblMenu[1].ID = 100;
  tblMenu[1].IconID = 0;
  tblMenu[1].Checked = false;
  tblMenu[1].Enabled = true;
  tblMenu[1].SubMenu = {};
  tblMenu[1].SubMenu[1] = {};
  tblMenu[1].SubMenu[1].Text = "&SubItem 1";
  tblMenu[1].SubMenu[1].ID = 101;
  tblMenu[1].SubMenu[1].IconID = 1;
  tblMenu[1].SubMenu[1].Checked = false;
  tblMenu[1].SubMenu[1].Enabled = true;
  tblMenu[1].SubMenu[2] = {};
  tblMenu[1].SubMenu[2].Text = "S&ubItem 2";
  tblMenu[1].SubMenu[2].ID = 102;
  tblMenu[1].SubMenu[2].Checked = false;
  tblMenu[1].SubMenu[2].Enabled = true;

  nRes = Application.ShowPopupMenu(e_X, e_Y, tblMenu, TPM_LEFTALIGN, TPM_TOPALIGN, true, true);

  if(nRes == 0)then
      Dialog.Message("Menu Result","Cancelled");
  else
      Dialog.Message("Menu Result","Menu ID selected = "..nRes);
  end
end

Dynamically creates a popup menu and displays it when the user right-clicks anywhere on the application's page surface.