From adca17ccaecda72c8dd1234f1a7b91a0d5aff564 Mon Sep 17 00:00:00 2001
From: George Hazan <george.hazan@gmail.com>
Date: Thu, 25 Jun 2015 12:23:28 +0000
Subject: another portion of dead genmenu services

git-svn-id: http://svn.miranda-ng.org/main/trunk@14377 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 include/delphi/m_genmenu.inc | 64 +++++++++++++++++++-------------------------
 1 file changed, 27 insertions(+), 37 deletions(-)

(limited to 'include/delphi')

diff --git a/include/delphi/m_genmenu.inc b/include/delphi/m_genmenu.inc
index ff44d69a86..42e0d2c4bd 100644
--- a/include/delphi/m_genmenu.inc
+++ b/include/delphi/m_genmenu.inc
@@ -239,17 +239,6 @@ type
     ExecService:PAnsiChar;//called when processmenuitem called
   end;
 
-//used in MO_BUILDMENU
-type
-  PListParam = ^TListParam;
-  TListParam = record
-    rootlevel       :int;
-    MenuObjectHandle:THANDLE;
-    wParam          :WPARAM;
-    lParam          :LPARAM;
-end;
-  tagListParam = TListParam;
-
 type
   PProcessCommandParam = ^TProcessCommandParam;
   TProcessCommandParam = record
@@ -258,69 +247,70 @@ type
     lParam:LPARAM;
   end;
 
-const
 {
-  wparam started hMenu
-  lparam ListParam*
+  Builds a menu from the menu object specified
   result hMenu
 }
-  MO_BUILDMENU:PAnsiChar = 'MO/BuildMenu';
+
+function Menu_Build(parent:HMENU; menuObject:THANDLE; wParam:WPARAM; lParam:LPARAM) : HMENU; stdcall;
+              external AppDLL name 'Menu_Build';
 
 {
-  wparam=MenuItemHandle
-  lparam userdefined
-  returns TRUE if it processed the command, FALSE otherwise
+  Passes custom lParam to the ExecMenuService for the specified menu item
+  returns true if command is processed, false otherwise
 }
-  MO_PROCESSCOMMAND:PAnsiChar = 'MO/ProcessCommand';
+
+function Menu_ProcessCommand(hMenuItem:HGENMENU; lParam:LPARAM) : integer; stdcall;
+              external AppDLL name 'Menu_ProcessCommand';
 
 {
   if menu not known call this
   LOWORD(wparam) menuident (from WM_COMMAND message)
-  returns TRUE if it processed the command, FALSE otherwise
-  Service automatically find right menuobject and menuitem
-  and call MO_PROCESSCOMMAND
+  It automatically finds right menuobject and menuitem and calls Menu_ProcessCommand
+  returns true if command is processed, false otherwise
 }
-  MO_PROCESSCOMMANDBYMENUIDENT:PAnsiChar = 'MO/ProcessCommandByMenuIdent';
+
+function Menu_ProcessCommandById(iCommand:integer; lParam:LPARAM) : integer; stdcall;
+              external AppDLL name 'Menu_ProcessCommandById';
 
 {
-  wparam=0;
-  lparam=PMenuParam;
   returns=MenuObjectHandle on success,-1 on failure
 }
-  MO_CREATENEWMENUOBJECT:PAnsiChar = 'MO/CreateNewMenuObject';
+
+function Menu_AddObject(const name, displayName, checkService, execService:PAnsiChar) : THANDLE; stdcall;
+              external AppDLL name 'Menu_AddObject';
 
 {
-  wparam=MenuObjectHandle
-  lparam=0
   returns 0 on success,-1 on failure
   Note: you must free all ownerdata structures, before you
   call this service.MO_REMOVEMENUOBJECT NOT free it.
 }
-  MO_REMOVEMENUOBJECT:PAnsiChar = 'MO/RemoveMenuObject';
+
+function Menu_RemoveObject(hMenuObject:THANDLE) : integer; stdcall;
+              external AppDLL name 'Menu_RemoveObject';
 
 {
-  wparam=MenuItemHandle
-  lparam=0
   returns 0 on success,-1 on failure.
   You must free ownerdata before this call.
   If MenuItemHandle is root all child will be removed too.
 }
-  MO_REMOVEMENUITEM:PAnsiChar = 'MO/RemoveMenuItem';
+
+function Menu_RemoveItem(hMenuItem:HGENMENU) : integer; stdcall;
+              external AppDLL name 'Menu_RemoveItem';
 
 {
-  wparam=MenuObjectHandle
-  lparam=PMO_MenuItem
   return MenuItemHandle on success,-1 on failure
-  Service supports old menu items (without CMIF_ROOTPOPUP or
-  CMIF_CHILDPOPUP flag).For old menu items needed root will be created automatically.
 }
-  MO_ADDNEWMENUITEM:PAnsiChar = 'MO/AddNewMenuItem';
+
+function Menu_AddItem(hMenuObject:THANDLE; var tmi:TMO_MenuItem) : integer; stdcall;
+              external AppDLL name 'Menu_AddItem';
 
 {
   wparam MenuItemHandle
   returns ownerdata on success,NULL on failure
   Useful to get and free ownerdata before delete menu item.
 }
+const
   MO_MENUITEMGETOWNERDATA:PAnsiChar = 'MO/MenuItemGetOwnerData';
 
 {
-- 
cgit v1.2.3