diff options
| author | Vadim Dashevskiy <watcherhd@gmail.com> | 2014-12-19 20:02:47 +0000 |
|---|---|---|
| committer | Vadim Dashevskiy <watcherhd@gmail.com> | 2014-12-19 20:02:47 +0000 |
| commit | f2cce78db24a0f0a53b8ca41ff112968a5f2d86b (patch) | |
| tree | 5dce24a102dc4117ab993e201811948927842e47 /plugins/Actman/dlgshare.pas | |
| parent | a1ff366b1634ed741bdc764489f9e715f90900f5 (diff) | |
Actman 2.0 is moved to deprecated, Actman 3.0 is a new default Actman (with database settings converter from older version)
git-svn-id: http://svn.miranda-ng.org/main/trunk@11533 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'plugins/Actman/dlgshare.pas')
| -rw-r--r-- | plugins/Actman/dlgshare.pas | 73 |
1 files changed, 73 insertions, 0 deletions
diff --git a/plugins/Actman/dlgshare.pas b/plugins/Actman/dlgshare.pas new file mode 100644 index 0000000000..0fc89a975b --- /dev/null +++ b/plugins/Actman/dlgshare.pas @@ -0,0 +1,73 @@ +unit dlgshare;
+
+interface
+
+uses windows,lowlevelc;
+
+var
+ MacroListWindow,
+ ActionListWindow:HWND;
+var
+ EditMacroList:tMacroList;
+
+const
+ ACI_APPLY = 0;
+ ACI_NEW = 1;
+ ACI_DELETE = 2;
+ ACI_UP = 3;
+ ACI_DOWN = 4;
+ ACI_TEST = 5;
+ ACI_IMPORT = 6;
+ ACI_EXPORT = 7;
+ ACI_REFRESH = 8;
+
+procedure RegisterIcons;
+function OptSetButtonIcon(btn:HWND;num:integer):HICON;
+procedure OptFillContactList(wnd:HWND);
+
+implementation
+
+uses messages, m_api, dbsettings, mircontacts, common, global;
+
+{$include i_cnst_dlgshare.inc}
+{$resource dlgshare.res}
+
+const
+ IconAmount = 9;
+const
+ Icons:array [0..IconAmount-1] of tIconItem = (
+ (szDescr: 'Apply' ; szName: 'Apply' ; defIconID: IDI_APPLY ; size: 0; hIcolib: 0;),
+ (szDescr: 'New' ; szName: 'New' ; defIconID: IDI_NEW ; size: 0; hIcolib: 0;),
+ (szDescr: 'Delete' ; szName: 'Delete'; defIconID: IDI_DELETE; size: 0; hIcolib: 0;),
+ (szDescr: 'Up' ; szName: 'Up' ; defIconID: IDI_UP ; size: 0; hIcolib: 0;),
+ (szDescr: 'Down' ; szName: 'Down' ; defIconID: IDI_DOWN ; size: 0; hIcolib: 0;),
+ (szDescr: 'Test' ; szName: 'Test' ; defIconID: IDI_TEST ; size: 0; hIcolib: 0;),
+ (szDescr: 'Import' ; szName: 'Import'; defIconID: IDI_IMPORT; size: 0; hIcolib: 0;),
+ (szDescr: 'Export' ; szName: 'Export'; defIconID: IDI_EXPORT; size: 0; hIcolib: 0;),
+ (szDescr: 'Reload/Refresh'; szName: 'Reload'; defIconID: IDI_RELOAD; size: 0; hIcolib: 0;)
+ );
+
+
+procedure RegisterIcons;
+begin
+ Icon_Register(hInstance,'Actions',@Icons,IconAmount,'ACI');
+end;
+
+function OptSetButtonIcon(btn:HWND;num:integer):HICON;
+begin
+ result:=CallService(MS_SKIN2_GETICONBYHANDLE,0,LPARAM(Icons[num].hIcolib));
+ SendMessage(btn,BM_SETIMAGE,IMAGE_ICON,result);
+end;
+
+procedure OptFillContactList(wnd:HWND);
+var
+ fCLformat:pWideChar;
+ fCLfilter:byte;
+begin
+ fCLfilter:=DBReadByte (0,DBBranch,'CLfilter',BST_UNCHECKED);
+ fCLformat:=DBReadUnicode(0,DBBranch,'CLformat');
+ FillContactList(wnd, fCLfilter<>BST_UNCHECKED, fCLformat);
+ mFreeMem(fCLformat);
+end;
+
+end.
|