From faf1e494a31b70203aa67d34602f5256eabe0336 Mon Sep 17 00:00:00 2001
From: Kirill Volinsky <mataes2007@gmail.com>
Date: Tue, 9 Oct 2012 05:20:49 +0000
Subject: Test commit: delphi headers structure as c headers structure

git-svn-id: http://svn.miranda-ng.org/main/trunk@1829 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/ExternalAPI/delphi/m_w7ui.inc | 84 +++++++++++++++++++++++++++++++++++
 1 file changed, 84 insertions(+)
 create mode 100644 plugins/ExternalAPI/delphi/m_w7ui.inc

(limited to 'plugins/ExternalAPI/delphi/m_w7ui.inc')

diff --git a/plugins/ExternalAPI/delphi/m_w7ui.inc b/plugins/ExternalAPI/delphi/m_w7ui.inc
new file mode 100644
index 0000000000..3841319ac7
--- /dev/null
+++ b/plugins/ExternalAPI/delphi/m_w7ui.inc
@@ -0,0 +1,84 @@
+{$IFNDEF M_W7UI}
+{$DEFINE M_W7UI}
+
+const
+	MIS_ICOLIB   = 0;
+	MIS_GENERAL  = 1;
+	MIS_PROTOCOL = 2;
+
+type
+  PMIRANDAJUMPLISTITEM = ^TMIRANDAJUMPLISTITEM;
+  TMIRANDAJUMPLISTITEM = record
+    iconSource:int;
+    iconName  :pAnsiChar;
+    iconIdx   :int;
+    szTitle   :pWideChar;
+    szPrefix  :pWideChar;
+    szArgument:pWideChar;
+  end;
+
+const
+// Force jumplist rebuild
+  MS_JUMPLIST_REBUILD:pAnsiChar = 'w7/JumpList/Rebuild';
+
+// ---
+  ME_JUMPLIST_BUILDCATEGORIES:pAnsiChar = 'w7/JumpList/BuildCategories';
+
+// lParam = (WCHAR *)category name
+  ME_JUMPLIST_BUILDITEMS:pAnsiChar = 'w7/JumpList/BuildItems';
+
+// lParam = (WCHAR *)category name
+  MS_JUMPLIST_ADDCATEGORY:pAnsiChar = 'w7/JumpList/AddCategory';
+
+// lParam = (MIRANDAJUMPLISTITEM *)item
+  MS_JUMPLIST_ADDITEM:pAnsiChar = 'w7/JumpList/AddItem';
+
+// wParam = prefix
+// lParam = argument
+  ME_JUMPLIST_PROCESS:pAnsiChar = 'w7/JumpList/Process';
+
+procedure MJumpList_AddCategory(name:pWideChar);
+begin
+	CallService(MS_JUMPLIST_ADDCATEGORY, 0, LPARAM(name));
+end;
+
+procedure MJumpList_AddItem(mir_icon:pAnsiChar; title, prefix, argument:pWideChar); overload;
+var
+  item:TMIRANDAJUMPLISTITEM;
+begin
+	item.iconSource:=MIS_ICOLIB;
+	item.iconName  :=mir_icon;
+	item.iconIdx   :=0;
+	item.szTitle   :=title;
+	item.szPrefix  :=prefix;
+	item.szArgument:=argument;
+	CallService(MS_JUMPLIST_ADDITEM, 0, LPARAM(@item));
+end;
+
+procedure MJumpList_AddItem(skinicon:int; title, prefix, argument:pWideChar); overload;
+var
+  item:TMIRANDAJUMPLISTITEM;
+begin
+	item.iconSource:=MIS_GENERAL;
+	item.iconName  :=0;
+	item.iconIdx   :=skinicon;
+	item.szTitle   :=title;
+	item.szPrefix  :=prefix;
+	item.szArgument:=argument;
+	CallService(MS_JUMPLIST_ADDITEM, 0, LPARAM(@item));
+end;
+
+procedure MJumpList_AddItem(proto:pansiChar; skinicon:int; title, prefix, argument:pWideChar); overload;
+var
+  item:TMIRANDAJUMPLISTITEM;
+begin
+	item.iconSource:=MIS_PROTOCOL;
+	item.iconName  :=proto;
+	item.iconIdx   :=skinicon;
+	item.szTitle   :=title;
+	item.szPrefix  :=prefix;
+	item.szArgument:=argument;
+	CallService(MS_JUMPLIST_ADDITEM, 0, LPARAM(@item));
+end;
+
+{$ENDIF}
-- 
cgit v1.2.3