diff options
Diffstat (limited to 'plugins/Pascal_Headers/m_genmenu.inc')
| -rw-r--r-- | plugins/Pascal_Headers/m_genmenu.inc | 468 |
1 files changed, 0 insertions, 468 deletions
diff --git a/plugins/Pascal_Headers/m_genmenu.inc b/plugins/Pascal_Headers/m_genmenu.inc deleted file mode 100644 index e72e66abef..0000000000 --- a/plugins/Pascal_Headers/m_genmenu.inc +++ /dev/null @@ -1,468 +0,0 @@ -{$IFNDEF M_GENMENU}
-{$DEFINE M_GENMENU}
-{
- Main features:
- 1) Independet from clist,may be used in any module.
- 2) Module defined Exec and Check services.
- 3) Menu with any level of popups,icons for root of popup.
- 4) You may use measure/draw/processcommand even if menuobject is unknown.
-
- Idea of GenMenu module consists of that,
- it must be independet and offers only general menu purpose services:
- MO_CREATENEWMENUOBJECT
- MO_REMOVEMENUOBJECT
- MO_ADDNEWMENUITEM
- MO_REMOVEMENUITEM
- ...etc
-
- And then each module that want use and offer to others menu handling
- must create own services.For example i rewrited mainmenu and
- contactmenu code in clistmenus.c.If you look at code all functions
- are very identical, and vary only in check/exec services.
-
- So template set of function will like this:
- Remove<NameMenu>Item
- Add<NameMenu>Item
- Build<NameMenu>
- <NameMenu>ExecService
- <NameMenu>CheckService
-
- ExecService and CheckService used as callbacks when GenMenu must
- processcommand for menu item or decide to show or not item.This make
- GenMenu independet of which params must passed to service when user
- click on menu,this decide each module.
- 28-04-2003 Bethoven
-
-}
-
-{
-Analog to CLISTMENUITEM,but invented two params root and ownerdata.
-root is used for creating any level popup menus,set to -1 to build
-at first level and root=MenuItemHandle to place items in submenu
-of this item.Must be used two new flags CMIF_ROOTPOPUP and CMIF_CHILDPOPUP
-(defined in m_clist.h)
-
-ownerdata is passed to callback services(ExecService and CheckService)
-when building menu or processed command.
-}
-
-// GENMENU_MODULE
-{
-Changes:
-
-28-04-2003
-Moved all general stuff to genmenu.c(m_genmenu.h,genmenu.h),
-so removed all frames stuff.
-
-
-Changes:
-
-28-12-2002
-
-Contact menu item service called with wparam=hcontact,lparam=popupPosition -
-plugin may add different menu items with some service.
-(old behavior wparam=hcontact lparam=0)
-
-
-
-25-11-2002 Full support of runtime build of all menus.
- Contact MS_CLIST_ADDCONTACTMENUITEM
- MS_CLIST_REMOVECONTACTMENUITEM
- MS_CLIST_MENUBUILDCONTACT
- ME_CLIST_PREBUILDCONTACTMENU
-
- MainMenu MS_CLIST_ADDMAINMENUITEM
- MS_CLIST_REMOVEMAINMENUITEM
- MS_CLIST_MENUBUILDMAIN
- ME_CLIST_PREBUILDMAINMENU
-
- FrameMenu MS_CLIST_ADDCONTEXTFRAMEMENUITEM
- MS_CLIST_REMOVECONTEXTFRAMEMENUITEM
- MS_CLIST_MENUBUILDFRAMECONTEXT
- ME_CLIST_PREBUILDFRAMEMENU
-
- For All menus may be used
- MS_CLIST_MODIFYMENUITEM
-
- All menus supported any level of popups
- (pszPopupName=(AnsiChar *)hMenuItem - for make child of popup)
-}
-
-const
-{
- SubGroup MENU
- remove a item from SubGroup menu
- wParam=hMenuItem returned by MS_CLIST_ADDSubGroupMENUITEM
- lParam=0
- returns 0 on success, nonzero on failure
-}
- MS_CLIST_REMOVESUBGROUPMENUITEM:PAnsiChar = 'CList/RemoveSubGroupMenuItem';
-
-{
- builds the SubGroup menu
- wParam=lParam=0
- returns a HMENU identifying the menu.
-}
- MS_CLIST_MENUBUILDSUBGROUP:PAnsiChar = 'CList/MenuBuildSubGroup';
-
-{
- add a new item to the SubGroup menus
- wParam=lpGroupMenuParam, params to call when exec menuitem
- lParam=(LPARAM)(CLISTMENUITEM*)&mi
-}
- MS_CLIST_ADDSUBGROUPMENUITEM:PAnsiChar = 'CList/AddSubGroupMenuItem';
-
-{
- the SubGroup menu is about to be built
- wParam=lParam=0
-}
- ME_CLIST_PREBUILDSUBGROUPMENU:PAnsiChar = 'CList/PreBuildSubGroupMenu';
-
-// SubGroup MENU
-
-// Group MENU
-type
- lpGroupMenuParam = ^GroupMenuParam;
- GroupMenuParam = record
- wParam:WPARAM;
- lParam:LPARAM;
- end;
-
-const
-{
- remove a item from Group menu
- wParam=hMenuItem returned by MS_CLIST_ADDGroupMENUITEM
- lParam=0
- returns 0 on success, nonzero on failure
-}
- MS_CLIST_REMOVEGROUPMENUITEM:PAnsiChar = 'CList/RemoveGroupMenuItem';
-
-{
- builds the Group menu
- wParam=lParam=0
- returns a HMENU identifying the menu.
-}
- MS_CLIST_MENUBUILDGROUP:PAnsiChar = 'CList/MenuBuildGroup';
-
-{
- add a new item to the Group menus
- wParam=lpGroupMenuParam, params to call when exec menuitem
- lParam=(LPARAM)(CLISTMENUITEM*)&mi
-}
- MS_CLIST_ADDGROUPMENUITEM:PAnsiChar = 'CList/AddGroupMenuItem';
-
-{
- the Group menu is about to be built
- wParam=lParam=0
-}
- ME_CLIST_PREBUILDGROUPMENU:PAnsiChar = 'CList/PreBuildGroupMenu';
-
-// Group MENU
-
-// TRAY MENU
-{
- remove a item from tray menu
- wParam=hMenuItem returned by MS_CLIST_ADDTRAYMENUITEM
- lParam=0
- returns 0 on success, nonzero on failure
-}
- MS_CLIST_REMOVETRAYMENUITEM:PAnsiChar = 'CList/RemoveTrayMenuItem';
-
-{
- builds the tray menu
- wParam=lParam=0
- returns a HMENU identifying the menu.
-}
- MS_CLIST_MENUBUILDTRAY:PAnsiChar = 'CList/MenuBuildTray';
-
-{
- add a new item to the tray menus
- wParam=0
- lParam=(LPARAM)(CLISTMENUITEM*)&mi
-}
- MS_CLIST_ADDTRAYMENUITEM:PAnsiChar = 'CList/AddTrayMenuItem';
-
-{
- the tray menu is about to be built
- wParam=lParam=0
-}
- ME_CLIST_PREBUILDTRAYMENU:PAnsiChar = 'CList/PreBuildTrayMenu';
-
-// STATUS MENU
-
-{
- the status menu is about to be built
- wParam=lParam=0
-}
- ME_CLIST_PREBUILDSTATUSMENU:PAnsiChar = 'CList/PreBuildStatusMenu';
-
-{
- add a new item to the status menu
- wParam=0
- lParam=(LPARAM)(CLISTMENUITEM*)&mi
-}
-//!! MS_CLIST_ADDSTATUSMENUITEM = 'CList/AddStatusMenuItem'; // defined in m_clist.inc
-
-{
- remove a item from main menu
- wParam=hMenuItem returned by MS_CLIST_ADDMAINMENUITEM
- lParam=0
- returns 0 on success, nonzero on failure
-}
- MS_CLIST_REMOVEMAINMENUITEM:PAnsiChar = 'CList/RemoveMainMenuItem';
-
-{
- builds the main menu
- wParam=lParam=0
- returns a HMENU identifying the menu.
-}
- MS_CLIST_MENUBUILDMAIN:PAnsiChar = 'CList/MenuBuildMain';
-
-{
- the main menu is about to be built
- wParam=lParam=0
-}
- ME_CLIST_PREBUILDMAINMENU:PAnsiChar = 'CList/PreBuildMainMenu';
-
-{
- remove a item from contact menu
- wParam=hMenuItem returned by MS_CLIST_ADDCONTACTMENUITEM
- lParam=0
- returns 0 on success, nonzero on failure
-}
- MS_CLIST_REMOVECONTACTMENUITEM:PAnsiChar = 'CList/RemoveContactMenuItem';
-
-// GENMENU_MODULE
-
- SETTING_NOOFFLINEBOTTOM_DEFAULT = 0;
-
-type
- PMO_MenuItem = ^TMO_MenuItem;
- TMO_MenuItem = record
- cbSize :int;
- szName :TCHAR;
- position :int;
- root :HGENMENU;
- flags :integer;
- hIcon :HICON; // or hIcolibItem:THANDLE;
- hotKey :DWORD;
- ownerdata:^pointer;
- hLangpack:int;
- end;
-
-{
-This structure passed to CheckService.
-}
-type
- PCheckProcParam = ^TCheckProcParam;
- TCheckProcParam = record
- MenuItemOwnerData:^pointer;
- MenuItemHandle:HGENMENU;
- wParam:WPARAM; // from ListParam.wParam when building menu
- lParam:LPARAM; // from ListParam.lParam when building menu
- end;
-
-type
- PMenuParam = ^TMenuParam;
- TMenuParam = record
- cbSize:integer;
- name :PAnsiChar;
-{
- This service called when module build menu(MO_BUILDMENU).
- Service called with params
-
- wparam=PCheckProcParam
- lparam=0
- if return==FALSE item is skiped.
-}
- CheckService:PAnsiChar;
-{
- This service called when user select menu item.
- Service called with params
- wparam=ownerdata
- lparam=lParam from MO_PROCESSCOMMAND
-}
- ExecService:PAnsiChar;//called when processmenuitem called
- end;
-
-//used in MO_BUILDMENU
-type
- lpListParam = ^ListParam;
- ListParam = record
- rootlevel :int;
- MenuObjectHandle:THANDLE;
- wParam :WPARAM;
- lParam :LPARAM;
-end;
- tagListParam = ListParam;
-
-type
- lpProcessCommandParam = ^ProcessCommandParam;
- ProcessCommandParam = record
- menu :HMENU;
- ident :int;
- lParam:LPARAM;
- end;
-
-const
-{
- wparam started hMenu
- lparam ListParam*
- result hMenu
-}
- MO_BUILDMENU:PAnsiChar = 'MO/BuildMenu';
-
-{
- wparam=MenuItemHandle
- lparam userdefined
- returns TRUE if it processed the command, FALSE otherwise
-}
- MO_PROCESSCOMMAND:PAnsiChar = 'MO/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
-}
- MO_PROCESSCOMMANDBYMENUIDENT:PAnsiChar = 'MO/ProcessCommandByMenuIdent';
-
-{
- wparam=0;
- lparam=PMenuParam;
- returns=MenuObjectHandle on success,-1 on failure
-}
- MO_CREATENEWMENUOBJECT:PAnsiChar = 'MO/CreateNewMenuObject';
-
-{
- 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';
-
-{
- 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';
-
-{
- 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';
-
-{
- wparam MenuItemHandle
- returns ownerdata on success,NULL on failure
- Useful to get and free ownerdata before delete menu item.
-}
- MO_MENUITEMGETOWNERDATA:PAnsiChar = 'MO/MenuItemGetOwnerData';
-
-{
- wparam MenuItemHandle
- lparam PMO_MenuItem
- returns 0 on success,-1 on failure
-}
- MO_MODIFYMENUITEM:PAnsiChar = 'MO/ModifyMenuItem';
-
-{
- wparam=MenuItemHandle
- lparam=PMO_MenuItem
- returns 0 and filled PMO_MenuItem structure on success and -1 on failure
-}
- MO_GETMENUITEM:PAnsiChar = 'MO/GetMenuItem';
-
-{
- wparam=MenuItemHandle
- lparam=0
- returns a menu handle on success or NULL on failure
-}
- MO_GETDEFAULTMENUITEM:PAnsiChar = 'MO/GetDefaultMenuItem';
-
-{
- wparam=MenuObjectHandle
- lparam=vKey
- returns TRUE if it processed the command, FALSE otherwise
- this should be called in WM_KEYDOWN
-}
- MO_PROCESSHOTKEYS:PAnsiChar = 'MO/ProcessHotKeys';
-
-{
- process a WM_DRAWITEM message
- wparam=0
- lparam=LPDRAWITEMSTRUCT
- returns TRUE if it processed the command, FALSE otherwise
-}
- MO_DRAWMENUITEM:PAnsiChar = 'MO/DrawMenuItem';
-
-{
- process a WM_MEASUREITEM message
- wparam=0
- lparam=LPMEASUREITEMSTRUCT
- returns TRUE if it processed the command, FALSE otherwise
-}
- MO_MEASUREMENUITEM:PAnsiChar = 'MO/MeasureMenuItem';
-
-{
- set uniq name to menuitem(used to store it in database when enabled OPT_USERDEFINEDITEMS)
-}
- OPT_MENUITEMSETUNIQNAME = 1;
-{
- Set FreeService for menuobject. When freeing menuitem it will be called with
- wParam=MenuItemHandle
- lParam=mi.ownerdata
-}
- OPT_MENUOBJECT_SET_FREE_SERVICE = 2;
-
-{
- Set onAddService for menuobject.
-}
- OPT_MENUOBJECT_SET_ONADD_SERVICE = 3;
-
- OPT_MENUOBJECT_SET_CHECK_SERVICE = 4;
-
-//enable ability user to edit menuitems via options page.
- OPT_USERDEFINEDITEMS = 1;
-
-type
- lpOptParam = ^OptParam;
- OptParam = record
- Handle :THANDLE;
- Setting:int;
- Value :int_ptr;
- end;
-
-const
-{
- wparam=0
- lparam=*lpOptParam
- returns TRUE if it processed the command, FALSE otherwise
-}
- MO_SETOPTIONSMENUOBJECT:PAnsiChar = 'MO/SetOptionsMenuObject';
-
-{
- wparam=0
- lparam=*lpOptParam
- returns TRUE if it processed the command, FALSE otherwise
-}
- MO_SETOPTIONSMENUITEM:PAnsiChar = 'MO/SetOptionsMenuItem';
-
-{
- wparam=char* szProtoName
- lparam=0
- returns HGENMENU of the root item or NULL
-}
- MO_GETPROTOROOTMENU:PAnsiChar = 'MO/GetProtoRootMenu';
-
-{$ENDIF}
|