diff options
| author | George Hazan <george.hazan@gmail.com> | 2015-12-02 13:09:29 +0000 |
|---|---|---|
| committer | George Hazan <george.hazan@gmail.com> | 2015-12-02 13:09:29 +0000 |
| commit | d1e7a5d8f250c2b7e1545c54c06ae225bf482177 (patch) | |
| tree | 7ebccf3b6766a7d36a3d4836ab382a1fd556b0e5 | |
| parent | 68314d62ffd5bf1f249dcba995c6b82cba83da7f (diff) | |
crutch for setting menu ids in Pascal
git-svn-id: http://svn.miranda-ng.org/main/trunk@15802 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
| -rw-r--r-- | include/delphi/m_genmenu.inc | 1 | ||||
| -rw-r--r-- | include/delphi/m_helpers.inc | 9 |
2 files changed, 10 insertions, 0 deletions
diff --git a/include/delphi/m_genmenu.inc b/include/delphi/m_genmenu.inc index 009f06d508..14f51f8140 100644 --- a/include/delphi/m_genmenu.inc +++ b/include/delphi/m_genmenu.inc @@ -157,6 +157,7 @@ type flags :integer;
hIcon :HICON; // or hIcolibItem:THANDLE;
hLangpack :int;
+ uid :MUUID;
end;
{
diff --git a/include/delphi/m_helpers.inc b/include/delphi/m_helpers.inc index 21d5570f0a..98173a3242 100644 --- a/include/delphi/m_helpers.inc +++ b/include/delphi/m_helpers.inc @@ -55,6 +55,8 @@ function Menu_AddStatusMenuItem (mi:PMO_MenuItem):HGENMENU; function Menu_AddProtoMenuItem (mi:PMO_MenuItem):HGENMENU;
function Menu_AddTrayMenuItem (mi:PMO_MenuItem):HGENMENU;
+procedure SET_UID(pmi:PMO_MenuItem; strguid:PAnsiChar);
+
function UserInfo_AddPage(wParam:WPARAM; odp:POPTIONSDIALOGPAGE):int_ptr;
function Options_AddPage (wParam:WPARAM; odp:POPTIONSDIALOGPAGE):int_ptr;
function Hotkey_Register(hk:PHOTKEYDESC):int_ptr;
@@ -532,6 +534,13 @@ begin result:=PCRYPTO_PROVIDER(CallService(MS_CRYPTO_GET_PROVIDER, 0, LPARAM(pszName)));
end;
+function UuidFromStringA(StringUuid:PAnsiChar; var Uuid:TGUID) : integer; stdcall; external 'Rpcrt4.dll';
+
+procedure SET_UID(pmi:PMO_MenuItem; strguid:PAnsiChar);
+begin
+ UuidFromStringA(strguid, pmi.uid);
+end;
+
initialization
cli:=PCLIST_INTERFACE(CallService(MS_CLIST_RETRIEVE_INTERFACE,0,0));
|