diff options
| author | George Hazan <ghazan@miranda.im> | 2017-10-15 16:27:58 +0300 |
|---|---|---|
| committer | George Hazan <ghazan@miranda.im> | 2017-10-15 16:27:58 +0300 |
| commit | 56239808326cc550d0b1bd45a368e89957e7021b (patch) | |
| tree | b0a4f839381b543502ed963b6b1f4868086a1d6e /plugins/ExternalAPI | |
| parent | cc2d5db55ce7c1d65d7919c7e7f0ce5c48da26f2 (diff) | |
unused pascal headers removed
Diffstat (limited to 'plugins/ExternalAPI')
38 files changed, 0 insertions, 3784 deletions
diff --git a/plugins/ExternalAPI/delphi/m_addcontactplus.inc b/plugins/ExternalAPI/delphi/m_addcontactplus.inc deleted file mode 100644 index 678d796dcc..0000000000 --- a/plugins/ExternalAPI/delphi/m_addcontactplus.inc +++ /dev/null @@ -1,29 +0,0 @@ -{
-AddContact+ plugin for Miranda IM
-
-Copyright (C) 2007-2011 Bartosz 'Dezeath' Biaіek
-
-This program is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2 of the License, or
-(at your option) any later version.
-
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License along
-with this program; if not, write to the Free Software Foundation, Inc.,
-51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-}
-
-{$IFNDEF M_ADDCONTACTPLUS}
-{$DEFINE M_ADDCONTACTPLUS}
-
-// Brings up the add contact dialog
-// wParam = lParam = 0
-const
- MS_ADDCONTACTPLUS_SHOW:PAnsiChar = 'AddContactPlus/Show';
-
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_alarms.inc b/plugins/ExternalAPI/delphi/m_alarms.inc deleted file mode 100644 index 4882407160..0000000000 --- a/plugins/ExternalAPI/delphi/m_alarms.inc +++ /dev/null @@ -1,57 +0,0 @@ -{$IFNDEF M_ALARMS}
-{$DEFINE M_ALARMS}
-
-const
-// flags for alarm action
- AAF_POPUP = 1; // show a popup window (or a popup from popups plugin, if installed and activated via options)
- AAF_SOUND = 2; // play a sound
- AAF_COMMAND = 4; // run a command
- AAF_SYSTRAY = 8; // flash systray icon (not implemented)
-
-type
- TOccurrence = (
- OC_ONCE, // all fields in time (see below) are valid
- OC_DAILY, // only wHour, wMinute, and wSecond are valid
- OC_WEEKLY, // wHour, wMinute, wSecond, and wDayOfWeek are valid
- OC_WEEKDAYS, // only wHour, wMinute, and wSecond are valid
- OC_MONTHLY, // wHour, wMinute, wSecond, and wDay are valid
- OC_YEARLY // all fields except wYear are valid
- );
-
-const
-// flags
- ALF_HIDDEN = $01; // do not show in GUI (either options or reminder frame)
- ALF_NOREMINDER = $02; // do not show in reminder frame
- ALF_SUSPENDED = $04; // do not trigger next occurence
- ALF_NOSTARTUP = $08; // do not trigger on startup if it was due when miranda was not running
- ALF_NOSNOOZE = $10; // do not allow snoozing of this alarm
-
-type
- TALARMINFO = record
- szTitle :TChar;
- szDesc :TChar;
- occurrence :TOccurrence;
- snoozer :LongBool; // this alarm is a 'once-off', the result of the user pressing the 'snooze'
- // button - the time field no longer contains the original alarm time
- time :TSYSTEMTIME; // the time the alarm is triggered at - different fields are valid depending on
- // what the 'occurence' value is set to (see definition of Occurence type above)
- action :word; // bitwise OR of AAF_* constants above
- szCommand :TChar; // passed to ShellExecute (if action & AAF_COMMAND) when the alarm is triggered
- szCommandParams:TChar; // passed as parameters for above command
- sound_num :byte; // use alarm sound 1, 2, or 3 (if action & AAF_SOUND) (4 == speak, version 0.0.7.0+)
- flags :int; // ALF_* above
- end;
-
-const
-// set an alarm
-// wparam = 0
-// lparam = (ALARMINFO *)&alarm
- MS_ALARMS_ADDALARM:PAnsiChar = 'Alarms/AddAlarm';
-
-// event sent when an alarm is triggered
-// wparam=0
-// lparam=(ALARMINFO *)&alarm
-// returning non-zero from your hook will prevent the alarm actions from being carried out
- ME_ALARMS_TRIGGERED:PAnsiChar = 'Alarms/Triggered';
-
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_assocmgr.inc b/plugins/ExternalAPI/delphi/m_assocmgr.inc deleted file mode 100644 index 44b0892196..0000000000 --- a/plugins/ExternalAPI/delphi/m_assocmgr.inc +++ /dev/null @@ -1,176 +0,0 @@ -{
-
-'File Association Manager'-Plugin for
-Miranda IM: the free IM client for Microsoft* Windows*
-
-Copyright (C) 2005-2007 H. Herkenrath
-
-This program is free software; you can redistribute it and/or
-modify it under the terms of the GNU General Public License
-as published by the Free Software Foundation; either version 2
-of the License, or (at your option) any later version.
-
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with this program (AssocMgr-License.txt); if not, write to the Free Software
-Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-}
-
-{$IFNDEF M_ASSOCMGR}
-{$DEFINE M_ASSOCMGR}
-
-const
-
-{
- File Association Manager v0.1.0.3
-}
-
-{ interface id }
- MIID_ASSOCMGR: TGUID = '{A05B56C0-CF7B-4389-A1E9-F13DB9360EF1}';
-
-{ Add a new file type v0.1.0.0+
-Add a new file type to be registered with Windows.
-You probably want to call this event when
-ME_SYSTEM_MODULESLOADED is fired.
- wParam : 0
- lParam : (PFILETYPEDESC)ftd
-Returns 0 on success, nonzero otherwise.
-}
- MS_ASSOCMGR_ADDNEWFILETYPE:PAnsiChar = 'AssocMgr/AddNewFileType';
-
-type
- PFILETYPEDESC = ^TFILETYPEDESC;
- TFILETYPEDESC = record
- cbSize: integer; // size of this structure, in bytes
-
- szDescription: TChar; // description for options dialog and in registry.
- // please Translate().
-
- hInstance: HINST; // instance where the icon resource is located
-
- nIconResID: uint; // resource id of an icon to use for the file type.
- // this icon should contain icons of all sizes and color depths
- // needed by Windows.
- // set this to 0 to use the generic 'miranda file' icon
- // provided by assocmgr.
-
- pszService: PAnsiChar; // service to call when a file is opened
- // this service will be called with lParam set to
- // the file name being opened including path.
- // it can be assumed that the provided file name
- // is always the long path name.
- // return zero on suceess, nonzero on error.
- // Note: set this to nil to pass the file name as
- // commandline argument to miranda32.exe (db file).
-
- flags: dword; // see FTDF_* flags below
-
- pszFileExt: PAnsiChar; // file extension, e.g. ".ext"
- // first character must be a dot, assumed to be all lower case.
- // may only consist of ascii characters.
-
- pszMimeType: PAnsiChar; // MIME type of the file, e.g. "application/x-icq"
- // may only consist of ascii characters.
-
- szVerbDesc: TChar; // description for the open verb e.g. "&Install".
- // set this to nil to use the default description "Open".
- // include an ampersand (&) character for a mnemonic key.
- // please Translate().
- end;
-
-const
- FTDF_UNICODE = $0001; // pszDescription and pszVerbDesc in struct are Unicode.
- // the specified service is called with Unicode parameters.
-
- FTDF_DEFAULTDISABLED = $0002; // file type is not registered by default, it needs to be
- // enabled explicitly on the options page.
-
- FTDF_BROWSERAUTOOPEN = $0004; // tells the browser to download and open the file directly
- // without prompt (currently IE and Opera6+) - be careful!
- // use only in conjunction with pszMimeType set.
- // this tells Windows that open can be safely invoked for
- // downloaded files.
- // Note that this flag may create a security risk,
- // because downloaded files could contain malicious content.
- // you need to protect against such an exploit.
-
- FTDF_ISTEXT = $0008; // tells Windows that this file can be opened
- // as a text file using e.g Notepad.
- // only has an effect on Windows XP and higher.
-
- FTDF_ISSHORTCUT = $0010; // file type behaves as shortcut, this means a
- // small overlay arrow is applied and the extension is never shown
-
-
-{ Remove a file type v0.1.0.0+
-Remove a file type registered previously using
-MS_ASSOCMGR_ADDNEWFILETYPE.
-This removes all settings in database and in registry
-associated with the file type.
- wParam : 0
- lParam : (PAnsiChar)pszFileExt
-Returns 0 on success, nonzero otherwise.
-}
- MS_ASSOCMGR_REMOVEFILETYPE:PAnsiChar = 'AssocMgr/RemoveFileType';
-
-{ Add a new url protocol type v0.1.0.0+
-Add a new url type to be registered with Windows.
-You probably want to call this event when
-ME_SYSTEM_MODULESLOADED is fired.
- wParam : 0
- lParam : (PURLTYPEDESC)utd
-Returns 0 on success, nonzero otherwise.
-}
- MS_ASSOCMGR_ADDNEWURLTYPE:PAnsiChar = 'AssocMgr/AddNewUrlType';
-
-type
- PURLTYPEDESC = ^TURLTYPEDESC;
- TURLTYPEDESC = record
- cbSize: integer; // size of this structure, in bytes
-
- pszDescription: TChar; // description for options dialog and in registry.
- // please Translate().
-
- hInstance: HINST; // instance where the icon resource is located
-
- nIconResID: uint; // resource id of an icon to use for the url type.
- // only a small one (16x16) is needed by Windows,
- // e.g. proto icon as used in Miranda.
- // set this to 0 to use the default miranda icon.
-
- pszService: PAnsiChar; // service to call when a url is opened (can't be nil)
- // this service will be called with lParam set to
- // the url being opened including the prefix.
- // the provided string has already been urldecoded.
- // return zero on suceess, nonzero on error.
-
- flags: dword; // see UTDF_* flags below
-
- pszProtoPrefix: PAnsiChar; // protocol prefix, e.g. "http:"
- // last character must be a colon, assumed to be all lower case.
- // may only consist of ascii characters.
- end;
-
-const
- UTDF_UNICODE = $0001; // pszDescription in struct is Unicode.
- // the specified service is called with Unicode parameters.
-
- UTDF_DEFAULTDISABLED = $0002; // url type is not registered by default, it needs to be
- // enabled explicitly on the options page.
-
-{ Remove an url protocol type v0.1.0.0+
-Remove an url registered previously using
-MS_ASSOCMGR_ADDNEWURLTYPE.
-This removes all settings in database and in registry
-associated with the url type.
- wParam : 0
- lParam : (PAnsiChar)pszProtoPrefix
-Returns 0 on success, nonzero otherwise.
-}
- MS_ASSOCMGR_REMOVEURLTYPE:PAnsiChar = 'AssocMgr/RemoveUrlType';
-
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_avatarhistory.inc b/plugins/ExternalAPI/delphi/m_avatarhistory.inc deleted file mode 100644 index 5cfdd7b190..0000000000 --- a/plugins/ExternalAPI/delphi/m_avatarhistory.inc +++ /dev/null @@ -1,50 +0,0 @@ -{
-Copyright (C) 2006 MattJ, Ricardo Pescuma Domenecci
-
-This is free software; you can redistribute it and/or
-modify it under the terms of the GNU Library General Public
-License as published by the Free Software Foundation; either
-version 2 of the License, or (at your option) any later version.
-
-This is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-Library General Public License for more details.
-
-You should have received a copy of the GNU Library General Public
-License along with this file; see the file license.txt. If
-not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-Boston, MA 02111-1307, USA.
-}
-
-
-{$IFNDEF M_AVATARHISTORY}
-{$DEFINE M_AVATARHISTORY}
-
-const
- EVENTTYPE_AVATAR_CHANGE = 9003;
-
-{
-Return TRUE is Avatar History is enabled for this contact
-
-wParam: hContact
-lParam: ignored
-}
- MS_AVATARHISTORY_ENABLED:PAnsiChar = 'AvatarHistory/IsEnabled';
-
-
-{
-Get cached avatar
-
-wParam: (char *) protocol name
-lParam: (char *) hash
-return: (TCHAR *) NULL if none is found or the path to the avatar. You need to free this string
- with mir_free.
-}
- MS_AVATARHISTORY_GET_CACHED_AVATAR:PAnsiChar = 'AvatarHistory/GetCachedAvatar';
-
-
- MS_AVATARHISTORY_SHOWDIALOG:PAnsiChar = 'AvatarHistory/ShowDialog';
-
-
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_changekeyboardlayout.inc b/plugins/ExternalAPI/delphi/m_changekeyboardlayout.inc deleted file mode 100644 index 99f7ddcdd7..0000000000 --- a/plugins/ExternalAPI/delphi/m_changekeyboardlayout.inc +++ /dev/null @@ -1,31 +0,0 @@ -{$IFNDEF M_CHANGEKEYBOARDLAYOUT}
-{$DEFINE M_CHANGEKEYBOARDLAYOUT}
-
-const
-// change keyboard layout of text
-// wParam - HWND or NULL for current window
-// lParam must be 0
-// returns 0 on success and returns non-zero (-1) on error.
- MS_CKL_CHANGELAYOUT:PAnsiChar = 'ChangeKeyboardLayout/ChangeLayout';
-
-//wParam должен быть ноль.
-//lParam - LPCTSTR текста, раскладку которого требуется определить,
-//Возвращает HKL раскладку текста, или NULL в случае ошибки.
-//Примечание: При определении раскладки учитывается опция "Раскладка текста - текущая раскладка"
- MS_CKL_GETLAYOUTOFTEXT:PAnsiChar = 'ChangeKeyboardLayout/GetLayoutOfText';
-
-type
- CKLLayouts = record
- hklFrom:HKL; // layout of the current text
- hklTo :HKL; // layout of the result text
- bTwoWay:bool;
- end;
-
-const
-//wParam - LPCTSTR исходного текста
-//lParam - указатель на структуру CKLLayouts, содержащую раскладки для
-//изменения текста и опцию "двунаправленного преобразования"
-//Возвращает LPTSTR на результирующую строку
- MS_CKL_CHANGETEXTLAYOUT:PAnsiChar = 'ChangeKeyboardLayout/ChangeTextLayout';
-
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_dbeditorpp.inc b/plugins/ExternalAPI/delphi/m_dbeditorpp.inc deleted file mode 100644 index d9b11f23b3..0000000000 --- a/plugins/ExternalAPI/delphi/m_dbeditorpp.inc +++ /dev/null @@ -1,20 +0,0 @@ -{$IFNDEF M_DBEDITOR}
-{$DEFINE M_DBEDITOR}
-
-const
-{
- wParam: hContact
- lParam: 0
- Affect: Open user tree in DBE++
-}
- MS_DBEDIT_MENUCOMMAND:PAnsiChar = 'DBEditorpp/MenuCommand';
-
-{
- Import settings\contacts from file
- wParam=hContact
- lParam=(char*)FilePath
- always returns 0
-}
- MS_DBEDIT_IMPORT:PAnsiChar = 'DBEditorpp/Import';
-
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_dropbox.inc b/plugins/ExternalAPI/delphi/m_dropbox.inc deleted file mode 100644 index 8e7cb913e2..0000000000 --- a/plugins/ExternalAPI/delphi/m_dropbox.inc +++ /dev/null @@ -1,28 +0,0 @@ -{$IFNDEF M_DROPBOX}
-{$DEFINE M_DROPBOX}
-
-const
-// upload file on Dropbox
-// wParam = (MCONTACT)hContact - NULL to send to the Dropbox contact
-// lParam = (LPARAM)(const wchar_t*)path - full path to file
-// returns file htansfer handle or NULL on failure
-// returns immediately, without waiting for the send
-// note, that you can track progress by using ME_PROTO_ACK
- MS_DROPBOX_SEND_FILE:PAnsiChar = 'Dropbox/Send/File';
-
-// if you want to get download links of sent files
-// use ME_DROPBOX_SENT hook. you'll get:
-type
- TTRANSFERINFO = record
- hProcess:THANDLE; // hProcess
- status :int; // status of transfer. 0 on success otherwise fail
- data :pointer; // NULL ended array of download links
- end;
-
-const
-// notifies a caller that file has been sent
-// wParam = (MCONTACT)hContact
-// lParam = (LPARAM)(TRANSFERINFO*)info - transfer info
- ME_DROPBOX_SENT:PAnsiChar = 'Dropbox/Sent/Event';
-
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_flags.inc b/plugins/ExternalAPI/delphi/m_flags.inc deleted file mode 100644 index 0fc53209c0..0000000000 --- a/plugins/ExternalAPI/delphi/m_flags.inc +++ /dev/null @@ -1,76 +0,0 @@ -{
-Miranda IM Country Flags Plugin
-Copyright (C) 2006-2007 H. Herkenrath
-
-This program is free software; you can redistribute it and/or
-modify it under the terms of the GNU General Public License
-as published by the Free Software Foundation; either version 2
-of the License, or (at your option) any later version.
-
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with this program (Flags-License.txt); if not, write to the Free Software
-Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-}
-
-{$IFNDEF M_FLAGS}
-{$DEFINE M_FLAGS}
-
-const
-{* Load a country flag icon from the skin library. v0.1.0.0+
-The retrieved icon should be released using MS_SKIN2_RELEASEICON after use.
-The country numbers can be retrieved using MS_UTILS_GETCOUNTRYLIST.
-Another way to get the country numbers are the CTRY_* constants in winnls.h of WinAPI.
-To retrieve the country number from a locale, call GetLocaleInfo().
-with LOCALE_ICOUNTRY.
- wParam=countryNumber
- lParam=(BOOL)fReturnHandle (nonzero to to retrieve the icolib handle instead of the icon)
-Returns a icon handle (HICON) on success, NULL on error.
-*}
- MS_FLAGS_LOADFLAGICON:PAnsiChar = 'Flags/LoadFlagIcon';
-
- CTRY_UNSPECIFIED = 0;
- CTRY_OTHER = 9999;
- CTRY_UNKNOWN = $FFFF;
-
-{* Create a merged country flag icon. v0.1.0.0+
-The retrieved icon should be released using DestroyIcon() after use.
- wParam=countryNumberUpper
- lParam=countryNumberLower
-Returns a icon handle (HICON) on success, NULL on error.
-*}
- MS_FLAGS_CREATEMERGEDFLAGICON:PAnsiChar = 'Flags/CreateMergedFlagIcon';
-
-{* Get a corresponding country given an (external) IP address. v0.1.0.0+
-The retrieved number can be converted to a normal country name
-using MS_UTILS_GETCOUNTRYBYNUMBER.
- wParam=dwExternalIP (same format as used in Netlib)
- lParam=0
-Returns a country number on success,
-or 0xFFFF on failure (MS_UTILS_GETCOUNTRYBYNUMBER returns "Unknown" for this).
-*}
- MS_FLAGS_IPTOCOUNTRY:PAnsiChar = 'Flags/IpToCountry';
-
-{* Detect the origin country of a contact. v0.1.0.0+
-This uses the contacts's IP first, and falls back on using
-CNF_COUNTRY and CNF_COCOUNTRY of contact details.
-To get the contact's IP it relies on the db setting
-"RealIP" in the proto module.
- wParam=(WPARAM)(HANDLE)hContact
- lParam=0
-Returns a country number on success,
-or 0xFFFF on failure (MS_UTILS_GETCOUNTRYBYNUMBER returns "Unknown" for this).
-*}
- MS_FLAGS_DETECTCONTACTORIGINCOUNTRY:PAnsiChar = 'Flags/DetectContactOriginCountry';
- MS_FLAGS_GETCONTACTORIGINCOUNTRY :PAnsiChar = 'Flags/GetContactOriginCountry';//for beta version 0.1.1.0
-
- SETTING_SHOWSTATUSICONFLAG_DEFAULT = 1;
- SETTING_SHOWEXTRAIMGFLAG_DEFAULT = 1;
- SETTING_USEUNKNOWNFLAG_DEFAULT = 1;
- SETTING_USEIPTOCOUNTRY_DEFAULT = 1;
-
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_ftpfile.inc b/plugins/ExternalAPI/delphi/m_ftpfile.inc deleted file mode 100644 index 0f43e8941e..0000000000 --- a/plugins/ExternalAPI/delphi/m_ftpfile.inc +++ /dev/null @@ -1,101 +0,0 @@ -{
-FTP File YM plugin
-Copyright (C) 2007-2010 Jan Holub
-
-This is free software; you can redistribute it and/or
-modify it under the terms of the GNU Library General Public
-License as published by the Free Software Foundation; either
-version 2 of the License, or (at your option) any later version.
-
-This is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-Library General Public License for more details.
-
-You should have received a copy of the GNU Library General Public
-License along with this file; see the file license.txt. If
-not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-Boston, MA 02111-1307, USA.
-}
-
-
-{$IFNDEF M_FTP_FILE}
-{$DEFINE M_FTP_FILE}
-
-const
- FNUM_DEFAULT = 0; // user's default FTP server
- FNUM_FTP1 = 1; // first FTP server in setting
- FNUM_FTP2 = 2; // second...
- FNUM_FTP3 = 3;
- FNUM_FTP4 = 4;
- FNUM_FTP5 = 5;
-
- FMODE_RAWFILE = 1; // Object list contains path(s) to file(s) which will be uploaded as they are
- FMODE_ZIPFILE = 2; // ... path(s) to file(s) which will be zipped and uploaded as one ZIP file
- FMODE_ZIPFOLDER = 4; // ... path to folder which will be zipped and uploaded as one ZIP file (objectCount == 1)
-
- FUPL_UNICODE = 1; // Object list contains WCHAR* paths
-
-type
- TFTPUPLOAD = record
- cbSize:int; // size of the structure
- hContact:TMCONTACT; // contact handle, can be NULL
- ftpNum:byte; // number of the FTP server which will be used for upload, can be one of FNUM_* values
- mode:byte; // upload mode, can be one of FMODE_* values
- flags:dword; // bitwise OR of the FUPL_* flags above
- pszObjects:^TChar; // pointer to the array of the object(s) to upload, content is determined by MODE value
- objectCount:int; // number of items in Object list
- end;
-
-const
-//
-// Send file(s) or folder in selected mode to the FTP server
-// wParam = 0; not used
-// lParam = (LPARAM)(FTPUPLOAD*)&ftpu; pointer to FTPUPLOAD
-// returns 0 if upload started with no errors, nonzero otherwise
-//
- MS_FTPFILE_UPLOAD:PAnsiChar = 'FTPFile/Upload';
-
-(*
-__inline static INT_PTR FTPFileUploadA(MCONTACT hContact, BYTE ftpNum, BYTE mode, char **pszObjects, int objCount)
-{
- FTPUPLOAD ftpu = {0};
- ftpu.cbSize = sizeof(ftpu);
- ftpu.hContact = hContact;
- ftpu.ftpNum = ftpNum;
- ftpu.mode = mode;
- ftpu.pszObjects = pszObjects;
- ftpu.objectCount = objCount;
- return CallService(MS_FTPFILE_UPLOAD, 0, (LPARAM)&ftpu);
-}
-
-__inline static INT_PTR FTPFileUploadW(MCONTACT hContact, BYTE ftpNum, BYTE mode, wchar_t **pswzObjects, int objCount)
-{
- FTPUPLOAD ftpu = {0};
- ftpu.cbSize = sizeof(ftpu);
- ftpu.hContact = hContact;
- ftpu.ftpNum = ftpNum;
- ftpu.mode = mode;
- ftpu.flags = FUPL_UNICODE;
- ftpu.pswzObjects = pswzObjects;
- ftpu.objectCount = objCount;
- return CallService(MS_FTPFILE_UPLOAD, 0, (LPARAM)&ftpu);
-}
-*)
-
-//
-// Show a simple file manager
-// wParam = 0; not used
-// lParam = 0; not used
-// returns 0 always
-//
- MS_FTPFILE_SHOWMANAGER:PAnsiChar = 'FTPFile/ShowManager';
-
-
-//
-// OBSOLOTE SERVICE (used by Send Screenshot plugin)
-// Do NOT use it!
-//
- MS_FTPFILE_SHAREFILE:PAnsiChar = 'FTPFile/ShareFiles';
-
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_historypp.inc b/plugins/ExternalAPI/delphi/m_historypp.inc deleted file mode 100644 index 042b44c692..0000000000 --- a/plugins/ExternalAPI/delphi/m_historypp.inc +++ /dev/null @@ -1,191 +0,0 @@ -{
- History++ plugin for Miranda IM: the free IM client for Microsoft* Windows*
-
- Copyright (C) 2006-2009 theMIROn, 2003-2006 Art Fedorov.
- History+ parts (C) 2001 Christian Kastner
-
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 2 of the License, or
- (at your option) any later version.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
-
- You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software
- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-}
-
-{-----------------------------------------------------------------------------
- m_historypp (historypp project)
-
- Version: 1.5
- Created: 06.08.2004
- Author: Oxygen
-
- [ Description ]
-
- Header with History++ services declaration
-
- [ History ]
-
- 1.5 (05.08.2004)
- First version
-
- [ Modifications ]
- none
-
- [ Known Issues ]
- none
-
- Contributors: theMIROn, Art Fedorov
------------------------------------------------------------------------------}
-
-{$IFNDEF M_HISTORYPP}
-{$DEFINE M_HISTORYPP}
-
-const
-
- //** VALUES FOR TItemRenderDetails.dwHistoryWindow
- //** Used in ME_HPP_RICHEDIT_ITEMPROCESS event
- //** This is one of the following params,
- //** saying what kind of history window displays
- //** processed item.
-
- // IRDHW_CONTACTHISTORY. The window is ordinary
- // contact history.
- IRDHW_CONTACTHISTORY = $0001;
- // IRDHW_GLOBALHISTORY. The window is global
- // history (system history). Invokes by
- // Menu -> System History
- IRDHW_GLOBALHISTORY = $0002;
- // IRDHW_GLOBALSEARCH. The window is search
- // window and the processed item is the
- // result of the global search.
- IRDHW_GLOBALSEARCH = $0003;
- // IRDHW_EXTERNAL. The window is external window
- IRDHW_EXTERNALGRID = $0004;
-
- //** VALUES FOR TItemRenderDetails.dwFlags
- //** Used in ME_HPP_RICHEDIT_ITEMPROCESS event
- //** These flags inform you about what you are
- //** processing. Like saying that the item is
- //** selected or it's inline or such stuff
-
- // IRDF_SELECTED. The processed item is selected.
- // The background color will always be clHighlight
- // even if you change it (i will change it back).
- // Though, I will not touch font or font color.
- IRDF_SELECTED = $0001;
- // IRDF_INLINE. The RichEdit provided is not one
- // that is used for drawing a cell, but the one
- // used for "inline editing".
- IRDF_INLINE = $0002;
- // IRDF_EVENT. The RichEdit provided is from "Open Event"
- // window. It's the window which opens when you right-click
- // item in contact's history and select "Open"
- IRDF_EVENT = $0004;
-
-type
- TItemRenderDetails = record
- cbSize : DWord; // size of the structure in bytes
- hContact : TMCONTACT; // handle to the contact for which the event is processed
- hDBEvent : TMEVENT; // handle to the event which is processed
- dwEventTime : DWord; // timestamp of the event
- wEventType : Word; // Event's flags (see m_database, EVENTTYPE_*; m_icq, ICQEVENTTYPE_*)
- IsEventSent : ByteBool; // Outgoing event. True if DBEF_SENT event flag is present (see m_database)
- bHistoryWindow: Byte; // What kind of window history. See IRDHW_* values
- dwFlags : DWord; // Any reasonable combination of IRDF_* flags.
- pProto : PAnsiChar; // Proto of the event, if available
- pModule : PAnsiChar; // Module of the event, if available
- pText : PWideChar; // Text of the event, not used now
- pExtended : PAnsiChar; // Extended text, used for storing urls, paths and so on
- end;
-
- PItemRenderDetails = ^TItemRenderDetails;
-
-const
- // ME_HPP_RICHEDIT_ITEMPROCESS
- // (supported from 1.5.0)
- // Called when next RichEdit history item
- // is rendered. Third-party plugins can alter it
- // like adding smileys, changing color and so on.
- // wParam - RichEdit control handle
- // lParam - pointer to TItemRenderDetails structure, information
- // about processed item, see TItemRenderDetails for details
- //
- // Note: Changing richedit background color will change the background
- // color of the whole cell! Additionally, the background color
- // of the *selected* cell and richedit is ALWAYS clHighlight,
- // no matter what you do. But font is untouched, so if your
- // plugin changes font color, you may need to handle selected
- // cells differently (use IF_SELECTED flag).
- //
- // Warn: Remeber about changing fonts. You CAN NOT have *different* fonts
- // for the *same* item, depening on your wish. For example, the
- // first time event is fired you set font for Item1 'Arial 10',
- // and the next time you set font for the same Item1 'Arial 12'.
- // Because height is calculated only once, and you may have
- // problems with text painting (when you change font text can
- // become too large and be cut or override another cell)
- //
- // See: hpp_itemprocess_samples.pas for some sample event handlers
- // like SmileyAdd and TextFormat support and special handler
- // kinda of conversation separation
- ME_HPP_RICHEDIT_ITEMPROCESS = 'History++/RichEdit/ItemProcessEvent';
-
- // MS_HPP_SHOWGLOBALSEARCH
- // (supported from 1.5.0)
- // Show Global history search window
- // If already opened, bring it to front
- // wParam - zero
- // lParam - zero
- MS_HPP_SHOWGLOBALSEARCH = 'History++/ShowGlobalSearch';
-
- type
- POpenEventParams = ^TOpenEventParams;
- TOpenEventParams = record
- cbSize : DWord;
- hContact : TMCONTACT;
- hDBEvent : TMEVENT;
- pPassword: PAnsiChar;
- end;
-
-const
-
- // MS_HPP_OPENHISTORYEVENT
- // (supported from 1.5.0)
- // (changed in 1.5.110)
- //
- // Opens contact's history and selects
- // provided event
- // wParam - pointer to TOpenEventParams structure
- // lParam - zero
- // Return - BOOL, True if contact opened, False if password
- // field opened
- // Note: if you just want to show contact's history,
- // use system service MS_HISTORY_SHOWCONTACTHISTORY
- MS_HPP_OPENHISTORYEVENT = 'History++/OpenHistoryEvent2';
-
- // MS_HPP_GETVERSION
- // (supported from 1.5.0)
- // Get current History++ version
- // Third-party plugins can use it to know if installed
- // version of History++ supports particular feature
- // wParam - zero
- // lParam - zero
- // Return - current version, via PLUGIN_MAKE_VERSION macro
- MS_HPP_GETVERSION = 'History++/GetVersion';
-
- // MS_HPP_EMPTYHISTORY
- // (supported from 1.5.0.118)
- // Erases contact's history
- // wParam - hContact
- // lParam - zero
- // Notes - hContact can be NULL(0) to empty system history
- MS_HPP_EMPTYHISTORY = 'History++/EmptyHistory';
-
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_historystats.inc b/plugins/ExternalAPI/delphi/m_historystats.inc deleted file mode 100644 index dbd5c886bf..0000000000 --- a/plugins/ExternalAPI/delphi/m_historystats.inc +++ /dev/null @@ -1,41 +0,0 @@ -{$IFNDEF M_HISTORYSTATS}
-{$DEFINE M_HISTORYSTATS}
-
-const
-(**
- * The unique plugin interface ID provided by HistoryStats.
- *
- * @version 0.1.5.1+
- *)
- MIID_HISTORYSTATS:TGUID = '{AF0DAD8E-0695-414B-B306-F4C7B7B41DA0}';
-
-(**
- * Checks if a specified contact is set to be excluded from the statistics generated
- * by HistoryStats. If you check this for a MetaContact or for subcontacts of a
- * MetaContact you might want to check the subcontacts and the MetaContact itself, too.
- *
- * @version 0.1.5.1+
- * @param wParam (WPARAM)(HANDLE) of the contact you'd like to query. NULL is not a
- * valid value for this parameter.
- * @param lParam Must be set to 0.
- * @return Returns 1 if the specified contact is set to be excluded and 0 otherwise.
- *)
- MS_HISTORYSTATS_ISEXCLUDED:PAnsiChar = 'HistoryStats/IsExcluded';
-
-(**
- * Sets if a specified contact should be included in or excluded from the statistics
- * generated by HistoryStats. Setting this on a MetaContact or on a subcontact of a
- * MetaContact might have no effect, depending on the users configuration. Setting
- * this for a MetaContact and all its subcontacts at once should always produce the
- * expected result.
- *
- * @version 0.1.5.1+
- * @param wParam (WPARAM)(HANDLE) of the contact you'd like to manipulate. NULL is
- * not a valid value for this parameter.
- * @param lParam (LPARAM)(int) of 1 if you want to exclude the specified contact or
- * 0 if you no longer want to exclude the specified contact.
- * @return Always returns 0.
- *)
- MS_HISTORYSTATS_SETEXCLUDE:PAnsiChar = 'HistoryStats/SetExclude';
-
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_httpserver.inc b/plugins/ExternalAPI/delphi/m_httpserver.inc deleted file mode 100644 index c5ba79d19c..0000000000 --- a/plugins/ExternalAPI/delphi/m_httpserver.inc +++ /dev/null @@ -1,117 +0,0 @@ -{
-This file is part of HTTPServer a Miranda IM plugin
-Copyright (C)2002 Kennet Nielsen
-
-This program is free software; you can redistribute it and/or
-modify it under the terms of the GNU General Public License
-as published by the Free Software Foundation; either
-version 2 of the License, or (at your option) any later version.
-
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with this program; if not, write to the Free Software
-Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-}
-
-{$IFNDEF M_HTTP_SERVER}
-{$DEFINE M_HTTP_SERVER}
-
-const
- OPT_SEND_LINK = 1;
-
-type
- PSTFileShareInfo = ^TSTFileShareInfo;
- TSTFileShareInfo = record
- lStructSize :dword; // Set to sizeof(STFileShareInfo)
- pszSrvPath :TChar; // Server path
- dwMaxSrvPath :dword; // Buffer allocated for Server path only used when information
- // is requested from HTTP server.
- pszRealPath :TChar; // Real path can be relative or complete
- dwMaxRealPath:dword; // Buffer allocated for Real path only used when information is
- // requested from HTTP server.
- dwAllowedIP :dword; // The IP address which is allowed to access this share
- dwAllowedMask:dword; // A mask which is applied to IP address to allow other IP addresses
- nMaxDownloads:int; // The maximum number of download which can be made on this share.
- dwOptions :dword; // Use OPT_SEND_LINK to open a message window with the link to file
- end;
-
-// dwMaxSrvPath Specifies the size, in chars, of the buffer pointed to by pszSrvPath.
-// The buffer must be large enough to store the path and file name string,
-// including the terminating null character.
-
-const
-/////////////////////////////////////////////
-/// Service MS_HTTP_ADD_CHANGE_REMOVE ///
-/////////////////////////////////////////////
-//
-// wParam = (WPARAM)0
-// lParam = (LPARAM)LPSTFileShareInfo;
-// Server path is the key when working with FileShareInfo.
-// Two files can not be shared with the same "Server path" in the HTTP server.
-// If the server path does not exists it will be added.
-// If it does exists the action depends on what real path is.
-// If real path is empty the entity will be removed else it
-// will just be updated with the new settings.
-//
-// returns 0 on success, nonzero on failure
- MS_HTTP_ADD_CHANGE_REMOVE:PAnsiChar = 'HTTPServer/AddChangeRemove';
-
-/////////////////////////////////////////////
-////// Service MS_HTTP_GET_SHARE //////
-/////////////////////////////////////////////
-//
-// wParam = (WPARAM)0;
-// lParam = (LPARAM)LPSTFileShareInfo;
-// Returns the information for a share
-// Server path must be set the the share you wish information for.
-//
-// returns 0 on success, nonzero on failure
-
- MS_HTTP_GET_SHARE:PAnsiChar = 'HTTPServer/GetShare';
-
-/////////////////////////////////////////////
-/// Service MS_HTTP_ACCEPT_CONNECTIONS ///
-/////////////////////////////////////////////
-//
-// wParam = (WPARAM)boolean(true/false);
-// lParam = (LPARAM)0;
-// Toggles the HTTP server state if wParam is FALSE
-// Force enable HTTP server if wParam is TRUE
-//
-// returns 0 on success, nonzero on failure
-
- MS_HTTP_ACCEPT_CONNECTIONS:PAnsiChar = 'HTTPServer/AcceptConnections';
-
-/////////////////////////////////////////////
-//// Service MS_HTTP_GET_ALL_SHARES /////
-/////////////////////////////////////////////
-//
-// wParam = (WPARAM)0;
-// lParam = (LPARAM)&LPSTFileShareInfo;
-// Returns an array of all currently shared files in the HTTP Server
-// LPSTFileShareInfo points to the first share.
-// You must free the memory returned by using the miranda MS_SYSTEM_GET_MMI
-// and calling MM_INTERFACE->free( LPSTFileShareInfo )
-//
-// returns the count of shares in the buffer pointed to by LPSTFileShareInfo
-
- MS_HTTP_GET_ALL_SHARES:PAnsiChar = 'HTTPServer/GetAllShares';
-
-/////////////////////////////////////////////
-//// Service MS_HTTP_GET_LINK /////
-/////////////////////////////////////////////
-//
-// wParam = (char*)pszSrvPath;
-// lParam = 0
-// Return URL Link on success, 0 on failure
-// Return pointer must be mir_free by caller
-//
-// Return the URL link to the pszSrvPath
-
- MS_HTTP_GET_LINK:PAnsiChar = 'HTTPServer/GetLink';
-
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_kbdnotify.inc b/plugins/ExternalAPI/delphi/m_kbdnotify.inc deleted file mode 100644 index 36db2afcb5..0000000000 --- a/plugins/ExternalAPI/delphi/m_kbdnotify.inc +++ /dev/null @@ -1,59 +0,0 @@ -{
-This program is free software; you can redistribute it and/or
-modify it under the terms of the GNU General Public License
-as published by the Free Software Foundation; either version 2
-of the License, or (at your option) any later version.
-
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with this program; if not, write to the Free Software
-Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-}
-
-{$IFNDEF M_KBDNOTIFY}
-{$DEFINE M_KBDNOTIFY}
-
-const
-//Enables all notifications (for use by BossKey)
-//wParam=0
-//lParam=0
-//returns 0
- MS_KBDNOTIFY_ENABLE:PAnsiChar = 'KeyboardNotify/Enable';
-
-//Disables all notifications (for use by BossKey)
-//wParam=0
-//lParam=0
-//returns 0
- MS_KBDNOTIFY_DISABLE:PAnsiChar = 'KeyboardNotify/Disable';
-
-//Makes the flashing begin
-//wParam=(unsigned int)eventCount
-//lParam=(AnsiChar *)szFlashingSequence or NULL if you want the plugin to use current settings
-//returns 0
- MS_KBDNOTIFY_STARTBLINK:PAnsiChar = 'KeyboardNotify/StartBlinking';
-
-//Receives the number of events that were opened (usuful for the 'until events opened' setting)
-//wParam=(unsigned int)eventCount
-//lParam=0
-//returns 0
- MS_KBDNOTIFY_EVENTSOPENED:PAnsiChar = 'KeyboardNotify/EventsWereOpened';
-
-
-//Informs if the flashing is active
-//wParam=0
-//lParam=0
-//returns 0 if the flashing is inactive or a pointer to the string representing the sequence being used
- MS_KBDNOTIFY_FLASHINGACTIVE:PAnsiChar = 'KeyboardNotify/IsFlashingActive';
-
-
-//Normalizes the flashing sequence informed
-//wParam=0
-//lParam=(AnsiChar *)szFlashingSequence <- it is rewritten
-//returns a pointer to the string representing the sequence normalized (which is in fact lParam)
- MS_KBDNOTIFY_NORMALSEQUENCE:PAnsiChar = 'KeyboardNotify/NormalizeSequence';
-
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_listeningto.inc b/plugins/ExternalAPI/delphi/m_listeningto.inc deleted file mode 100644 index 141a2b229c..0000000000 --- a/plugins/ExternalAPI/delphi/m_listeningto.inc +++ /dev/null @@ -1,63 +0,0 @@ -{
-Copyright (C) 2006 Ricardo Pescuma Domenecci
-
-This is free software; you can redistribute it and/or
-modify it under the terms of the GNU Library General Public
-License as published by the Free Software Foundation; either
-version 2 of the License, or (at your option) any later version.
-
-This is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-Library General Public License for more details.
-
-You should have received a copy of the GNU Library General Public
-License along with this file; see the file license.txt. If
-not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-Boston, MA 02111-1307, USA.
-}
-
-{$IFNDEF M_LISTENINGTO}
-{$DEFINE M_LISTENINGTO}
-
-// To be used by other plugins to send listening info to miranda
-const
- MIRANDA_WINDOWCLASS = 'Miranda.ListeningTo';
- MIRANDA_DW_PROTECTION = $8754;
-const
- LISTENINGTO_ANSI = 1;
- LISTENINGTO_UNICODE = 2;
-
-{
-Return TRUE if sending listening to is enabled for this protocol
-
-wParam: AnsiChar * - protocol name or NULL for all protocols
-lParam: ignored
-}
- MS_LISTENINGTO_ENABLED:PAnsiChar = 'ListeningTo/Enabled';
-
-{
-Enable/disable sending listening to this protocol
-
-wParam: AnsiChar * - protocol name or NULL for all protocols
-lParam: bool - TRUE to enable, FALSE to disable
-}
- MS_LISTENINGTO_ENABLE:PAnsiChar = 'ListeningTo/Enable';
-
-{
-Notification fired when enable state changed
-
-wParam: AnsiChar * - protocol name or NULL for all protocols
-lParam: bool - enabled
-}
- ME_LISTENINGTO_ENABLE_STATE_CHANGED:PAnsiChar = 'ListeningTo/EnableStateChanged';
-
-{
-Provide new info about a song change to listening to
-
-wParam: WCHAR * or char * - song data, in format "<Status 0-stoped 1-playing>\\0<Player>\\0<Type>\\0<Title>\\0<Artist>\\0<Album>\\0<Track>\\0<Year>\\0<Genre>\\0<Length (secs)>\\0<Radio Station>\\0"
-lParam: format of wParam: one of LISTENINGTO_ANSI or LISTENINGTO_UNICODE . Anything else will be handled as unicode
-}
- MS_LISTENINGTO_SET_NEW_SONG:PAnsiChar = 'ListeningTo/SetNewSong';
-
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_mydetails.inc b/plugins/ExternalAPI/delphi/m_mydetails.inc deleted file mode 100644 index 571504a2a2..0000000000 --- a/plugins/ExternalAPI/delphi/m_mydetails.inc +++ /dev/null @@ -1,174 +0,0 @@ -{
-Copyright (C) 2005 Ricardo Pescuma Domenecci
-
-This is free software; you can redistribute it and/or
-modify it under the terms of the GNU Library General Public
-License as published by the Free Software Foundation; either
-version 2 of the License, or (at your option) any later version.
-
-This is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-Library General Public License for more details.
-
-You should have received a copy of the GNU Library General Public
-License along with this file; see the file license.txt. If
-not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-Boston, MA 02111-1307, USA.
-}
-
-{$IFNDEF M_MYDETAILS}
-{$DEFINE M_MYDETAILS}
-
-const
-
-{
- MyDetails/SetMyNickname service
- Set the nickname for all possible protocols
-
- wparam = (const AnsiChar *) protocol name or NULL for all protocols
- lparam = (const AnsiChar *) new nickname
- returns: -2 if proto can't set this, -1 on protocol not found, else 0
-}
- MS_MYDETAILS_SETMYNICKNAME:PAnsiChar = 'MyDetails/SetMyNickname';
-
-{
- MyDetails/SetMyNicknameUI service
- Shows a dialog to set the nickname for all possible protocols
-
- wparam = 0
- lparam = (const AnsiChar *) protocol name or NULL for all protocols
- returns: -2 if proto can't set this, -1 on protocol not found, else 0
-}
- MS_MYDETAILS_SETMYNICKNAMEUI:PAnsiChar = 'MyDetails/SetMyNicknameUI';
-
-{
- MyDetails/SetMyAvatar service
- Set the avatar for all possible protocols
-
- wparam = (const AnsiChar *) protocol name or NULL for all protocols
- lparam = (const AnsiChar *) new avatar file name
- returns: -2 if proto can't set this, -1 on protocol not found, else 0
-}
- MS_MYDETAILS_SETMYAVATAR:PAnsiChar = 'MyDetails/SetMyAvatar';
-
-{
- MyDetails/SetMyAvatarUI service
- Shows a dialog to set the avatar for all possible protocols
-
- wparam = 0
- lparam = (const AnsiChar *) protocol name or NULL for all protocols
- returns: -2 if proto can't set this, -1 on protocol not found, else 0
-}
- MS_MYDETAILS_SETMYAVATARUI:PAnsiChar = 'MyDetails/SetMyAvatarUI';
-
-{
- MyDetails/GetMyNickname service
- Get the nickname
-
- wparam = (const AnsiChar *) protocol name or NULL for default nick
- lparam = (AnsiChar *) the buffer to save the nickname. Has to have at least 1024 chars
- returns: -1 on protocol not found, else 0
-}
- MS_MYDETAILS_GETMYNICKNAME:PAnsiChar = 'MyDetails/GetMyNickname';
- MS_MYDETAILS_GETMYNICKNAME_BUFFER_SIZE = 1024;
-
-{
- MyDetails/GetMyAvatar service
- Get the avatar file name
-
- wparam = (const AnsiChar *) protocol name or NULL for default avatar
- lparam = (AnsiChar *) the buffer to save the file name. Has to have at least 1024 chars
- returns: -2 if proto can't get this, -1 on protocol not found, else 0
-}
- MS_MYDETAILS_GETMYAVATAR:PAnsiChar = 'MyDetails/GetMyAvatar';
- MS_MYDETAILS_GETMYAVATAR_BUFFER_SIZE = 1024;
-
-{
- MyDetails/SetMyStatusMessageUI service
- Shows a dialog to set the status message for all possible protocols
- Today only works if NAS is installed.
-
- wparam = 0
- lparam = (const AnsiChar *) protocol name or NULL for all protocols
- returns: -2 if proto can't set this, -1 on protocol not found, else 0
-}
- MS_MYDETAILS_SETMYSTATUSMESSAGEUI:PAnsiChar = 'MyDetails/SetMyStatusMessageUI';
- MS_MYDETAILS_GETMYSTATUSMESSAGE_BUFFER_SIZE = 1024;
-
-{
- MyDetails/ShowNextProtocol service
- Shows the next protocol in the frame
-
- wparam = 0
- lparam = 0
- returns: -1 on error, 0 on success
-}
- MS_MYDETAILS_SHOWNEXTPROTOCOL:PAnsiChar = 'MyDetails/ShowNextProtocol';
-
-{
- MyDetails/ShowPreviousProtocol service
- Shows the previous protocol in the frame
-
- wparam = 0
- lparam = 0
- returns: -1 on error, 0 on success
-}
- MS_MYDETAILS_SHOWPREVIOUSPROTOCOL:PAnsiChar = 'MyDetails/ShowPreviousProtocol';
-
-{
- MyDetails/ShowProtocol service
- Shows a protocol given its name in the frame
-
- wparam = 0
- lparam = protocol name
- returns: -1 on error, 0 on success
-}
- MS_MYDETAILS_SHOWPROTOCOL:PAnsiChar = 'MyDetails/ShowProtocol';
-
-{
- MyDetails/CicleThroughtProtocols service
- Start/stops the cicling throught protocols
-
- wparam = FALSE to stop, TRUE to start
- lparam = 0
- returns: -1 on error, 0 on success
-}
- MS_MYDETAILS_CICLE_THROUGHT_PROTOCOLS:PAnsiChar = 'MyDetails/CicleThroughtProtocols';
-
-
-// Since ver.1.9
-
-{
-MyDetails/ShowFrame service
-Shows the MyDetails frame/window if it is hidden
-
-wparam = 0
-lparam = 0
-returns: 0
-}
- MS_MYDETAILS_SHOWFRAME:PAnsiChar = 'MyDetails/ShowFrame';
-
-
-{
-MyDetails/HideFrame service
-Hides the MyDetails frame/window if it is shown
-
-wparam = 0
-lparam = 0
-returns: 0
-}
- MS_MYDETAILS_HIDEFRAME:PAnsiChar = 'MyDetails/HideFrame';
-
-
-{
-MyDetails/ShowHideMyDetails service
-Shows the MyDetails frame/window if it is hidden or hides the MyDetails frame/window if it is shown
-
-wparam = 0
-lparam = 0
-returns: 0
-}
- MS_MYDETAILS_SHOWHIDEFRAME:PAnsiChar = 'MyDetails/ShowHideMyDetails';
-
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_newawaysys.inc b/plugins/ExternalAPI/delphi/m_newawaysys.inc deleted file mode 100644 index 9ba9f23d07..0000000000 --- a/plugins/ExternalAPI/delphi/m_newawaysys.inc +++ /dev/null @@ -1,108 +0,0 @@ -{
- New Away System plugin for Miranda IM
- Copyright (C) 2005 Chervov Dmitry
-
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 2 of the License, or
- (at your option) any later version.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
-
- You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software
- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-}
-{$IFNDEF M_NEWAWAYSYS}
-{$DEFINE M_NEWAWAYSYS}
-
-const
-// NAS_PROTOINFO::Flags constants
- PIF_NO_CLIST_SETSTATUSMODE = 1; // NAS won't call MS_CLIST_SETSTATUSMODE service on a global status change, if this flag is set. it's useful if you want to change the global message and status in NAS without changing current "real" protocol statuses. NAS ignores this flag if szProto != NULL
- PIF_NOTTEMPORARY = 2; // usually you should NOT set this flag
-// MS_NAS_SETSTATE: NAS will overwrite current user-defined message for szProto if this flag is specified; otherwise (if the flag isn't specified), your szMsg will be stored only until the next szProto status change, and won't overwrite any messages specified by user
-// MS_NAS_GETSTATE: NAS ignores any temporary messages and returns only non-temporary ones. this flag affects something only when status == 0
-
-type
- PNAS_PROTOINFO = ^TNAS_PROTOINFO;
- TNAS_PROTOINFO = record
- cbSize : int;
- szProto: PAnsiChar; // pointer to protocol modulename (NULL means global)
- Msg : TChar; // pointer to the status message (may be NULL -
- // means that there's no specific message for this protocol)
-{
- Be aware that MS_NAS_GETSTATE allocates memory for szMsg through Miranda's
- memory management interface (MS_SYSTEM_GET_MMI). And MS_NAS_SETSTATE expects
- szMsg to be allocated through the same service. MS_NAS_SETSTATE deallocates szMsg.
-}
- status : word; // status mode. 0 means current (NAS will overwrite 0 with
- // the current status mode)
-{
- for MS_NAS_GETSTATE if the specified status is not 0, MS_NAS_GETSTATE will
- return the default/last status message (depends on settings) - i.e. the same
- message that will be shown by default when user changes status to the specified
- one. please note that, for example, if current status mode is ID_STATUS_AWAY,
- then status messages returned by MS_NAS_GETSTATE for status=0 and
- status=ID_STATUS_AWAY may be different! for status=ID_STATUS_AWAY it always
- returns the default/last status message, and for status=0 it returns
- _current_ status message.
-}
- Flags : int;
- end;
-
-const
-// MS_NAS_GETSTATE
-// Fills specified array of NAS_PROTOINFO items with protocol data.
-// You must construct the array and specify cbSize and szProto fields of
-// all items in the array before calling this service.
-// Remember to free szMsg fields through Miranda's MMI if you don't pass them back to NAS through MS_NAS_SETSTATE later.
-// wParam = (WPARAM)(NAS_PROTOINFO*)pi - pointer to an array of NAS_PROTOINFO items to be filled.
-// lParam = (LPARAM)(int)protoCount - number of items in pi.
-// returns 0 on success
- MS_NAS_GETSTATEA:PAnsiChar = 'NewAwaySystem/GetStateA';
- MS_NAS_GETSTATEW:PAnsiChar = 'NewAwaySystem/GetStateW';
-
-// MS_NAS_SETSTATE
-// Changes status mode and message of specified protocols.
-// (Note that this service deallocates szMsg field of the specified items through
-// Miranda's MMI, so the array is not valid anymore after MS_NAS_SETSTATE returns!)
-// wParam = (NAS_PROTOINFO*)pi - pointer to an array of NAS_PROTOINFO items.
-// lParam = (LPARAM)(int)protoCount - number of items in pi.
-// returns 0 on success
- MS_NAS_SETSTATEA:PAnsiChar = 'NewAwaySystem/SetStateA';
- MS_NAS_SETSTATEW:PAnsiChar = 'NewAwaySystem/SetStateW';
-var
- MS_NAS_GETSTATE:PAnsiChar absolute MS_NAS_GETSTATEW;
- MS_NAS_SETSTATE:PAnsiChar absolute MS_NAS_SETSTATEW;
-
-const
-// NAS_ISWINFO::Flags constants
- ISWF_NOCOUNTDOWN = 1; // don't start the countdown to close the window
- ISWF_UNICODE = 2; // specifies that NAS_ISWINFO::szMsg is a WCHAR*
-type
- PNAS_ISWINFO = ^TNAS_ISWINFO;
- TNAS_ISWINFO = record
- cbSize :int;
- szProto :PAnsiChar; // pointer to initial protocol modulename (NULL means
- // global); ignored when hContact is not NULL.
- hContact:THANDLE; // NAS will select this contact in the window initially,
- // if it's not NULL.
- Msg :TChar; // pointer to an initial status message (may be NULL,
- // NAS will use the default message then)
- status :word; // status mode. 0 means current.
- iFlags :int; // a combination of ISWF_ constants
- end;
-
-const
-// MS_NAS_INVOKESTATUSWINDOW
-// Invokes the status message change window.
-// Though if the window is open already, this service just activates an existing window and changes protocol status (i.e. it ignores szMsg and hContact). This behavior may change in future.
-// wParam = (WPARAM)(NAS_ISWINFO*)iswi - pointer to a NAS_ISWINFO structure.
-// lParam = 0
-// returns HWND of the window on success, or NULL on failure.
- MS_NAS_INVOKESTATUSWINDOW:PAnsiChar = 'NewAwaySystem/InvokeStatusWindow';
-
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_notify.inc b/plugins/ExternalAPI/delphi/m_notify.inc deleted file mode 100644 index 2798ebbf31..0000000000 --- a/plugins/ExternalAPI/delphi/m_notify.inc +++ /dev/null @@ -1,82 +0,0 @@ -{$IFNDEF M_NOTIFY}
-{$DEFINE M_NOTIFY}
-
-{** Miranda Notify Dispatcher ************************************************
-Notify Dispatcher provides common interface to different notification plugins
-like osd, popup, ticker etc.
-******************************************************************************}
-
-const
-{ Options UI event and service. The same as for miranda options }
- ME_NOTIFY_OPT_INITIALISE:PAnsiChar = 'Notify/Opt/Initialise';
- MS_NOTIFY_OPT_ADDPAGE:PAnsiChar = 'Notify/Opt/AddPage';
-
-type
- PMNOTIFYACTIONINFO = ^TMNOTIFYACTIONINFO;
- TMNOTIFYACTIONINFO = record
- icon :HICON;
- name :array [0..MAXMODULELABELLENGTH-1] of AnsiChar;
- service:array [0..MAXMODULELABELLENGTH-1] of AnsiChar;
- cookie :dword;
- end;
-
-// Just like miranda pluginLink... This should work faster then services,
-// we need some reactivity in notifications.
-type
- PMNOTIFYLINK = ^TMNOTIFYLINK;
- TMNOTIFYLINK = record
- // Create a new notification type
- Register:function(name:PAnsiChar;icon:HICON):THANDLE;cdecl;
-
- // Create a new notification object
- Create:function(atype:THANDLE):THANDLE;cdecl;
-
- // Check is handle is a valid notification object
- IsValid:function(notify:THANDLE):integer;cdecl;
-
- // Set/get information about object, or type defaults
- _Set:function(notifyORtype:THANDLE;name:PAnsiChar;val:TDBVARIANT):integer;cdecl;
- _Get:function(notifyORtype:THANDLE;name:PAnsiChar;val:PDBVARIANT):integer;cdecl;
-
- // Set/get actions
- AddAction :function(notifyORtype:THANDLE;icon:HICON;name:PAnsiChar;service:PAnsiChar;cookie:dword):integer;cdecl;
- GetActions:function(notifyORtype:THANDLE;actions:PMNOTIFYACTIONINFO):integer;cdecl;
-
- // Increment/decrement refer count of notification object. Unreferred objects are destroyed
- AddRef :function(notify:THANDLE):integer;cdecl;
- Release:function(notify:THANDLE):integer;cdecl;
-
- // Notify user
- Show :procedure(notify:THANDLE);cdecl;
- Update:procedure(notify:THANDLE);cdecl;
- Remove:procedure(notify:THANDLE);cdecl;
- end;
-
-const
-// Get the MNOTIFYLINK struct
-// result = (LRESULT)(MNOTIFYLINK* )notifyLink
- MS_NOTIFY_GETLINK:PAnsiChar = 'Notify/GetLink';
-
-// Hook this to process corresponding actions
- ME_NOTIFY_SHOW :PAnsiChar = 'Notify/Show';
- ME_NOTIFY_UPDATE:PAnsiChar = 'Notify/Update';
- ME_NOTIFY_REMOVE:PAnsiChar = 'Notify/Remove';
-
-var
- notifyLink:PMNOTIFYLINK;
-
-const
-// Common options for Get/Set actions
- NFOPT_TYPENAME = 'General/TypeName';
- NFOPT_ICON = 'General/Icon';
- NFOPT_CONTACT = 'General/Contact';
- NFOPT_EVENT = 'General/Event';
- NFOPT_TEXT = 'General/Text';
- NFOPT_TEXTW = 'General/TextW';
- NFOPT_TITLE = 'General/Title';
- NFOPT_TITLEW = 'General/TitleW';
- NFOPT_BACKCOLOR = 'General/BackColor';
- NFOPT_TEXTCOLOR = 'General/TextColor';
- NFOPT_TIMEOUT = 'General/Timeout';
-
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_nudge.inc b/plugins/ExternalAPI/delphi/m_nudge.inc deleted file mode 100644 index dfc72e19db..0000000000 --- a/plugins/ExternalAPI/delphi/m_nudge.inc +++ /dev/null @@ -1,17 +0,0 @@ -{$IFNDEF M_NUDGE}
-{$DEFINE M_NUDGE}
-const
-// protocol service that sends a nudge
- PS_SEND_NUDGE = '/SendNudge';
-
-// event to be create in protocol with its m_szModuleName
- PE_NUDGE = '/Nudge';
-
-const
- MS_SHAKE_CLIST :PAnsiChar = 'SHAKE/Service/ShakeClist';
- MS_SHAKE_CHAT :PAnsiChar = 'SHAKE/Service/ShakeChat';
- MS_SHAKE_CLIST_TRIGGER:PAnsiChar = 'SHAKE/Service/TriggerShakeClist';
- MS_SHAKE_CHAT_TRIGGER :PAnsiChar = 'SHAKE/Service/TirggerShakeChat';
- MS_NUDGE_SEND :PAnsiChar = 'NUDGE/Send';
-
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_nxsn.inc b/plugins/ExternalAPI/delphi/m_nxsn.inc deleted file mode 100644 index 2d1093db74..0000000000 --- a/plugins/ExternalAPI/delphi/m_nxsn.inc +++ /dev/null @@ -1,20 +0,0 @@ -{$IFNDEF M_NXSN}
-{$DEFINE M_NXSN}
-
-const
-// tabSRMM stuff (logging to message window)
- EVENTTYPE_STATUSCHANGE = 25368;
-
-{
-MCONTACT hContact = wParam;
-WORD oldStatus = LOWORD(lParam);
-WORD newStatus = HIWORD(lParam);
-oldStatus is the status the contact was before the change.
-newStatus is the status the contact is now.
-Cast them to (int) if you need them that way.
-}
- ME_STATUSCHANGE_CONTACTSTATUSCHANGED:PAnsiChar = 'Miranda/StatusChange/ContactStatusChanged';
-
- MS_STATUSCHANGE_MENUCOMMAND:PAnsiChar = 'NewStatusNotify/EnableDisableMenuCommand';
-
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_quickcontacts.inc b/plugins/ExternalAPI/delphi/m_quickcontacts.inc deleted file mode 100644 index af3de6696f..0000000000 --- a/plugins/ExternalAPI/delphi/m_quickcontacts.inc +++ /dev/null @@ -1,32 +0,0 @@ -{
-Copyright (C) 2005 Ricardo Pescuma Domenecci
-
-This is free software; you can redistribute it and/or
-modify it under the terms of the GNU Library General Public
-License as published by the Free Software Foundation; either
-version 2 of the License, or (at your option) any later version.
-
-This is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-Library General Public License for more details.
-
-You should have received a copy of the GNU Library General Public
-License along with this file; see the file license.txt. If
-not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-Boston, MA 02111-1307, USA.
-}
-
-{$IFNDEF M_QUICKCONTACTS}
-{$DEFINE M_QUICKCONTACTS}
-
-{
-Show the dialog to select the contact
-
-wParam: ignored
-lParam: ignored
-}
-const
- MS_QC_SHOW_DIALOG:PAnsiChar = 'QuickContacts/ShowDialog';
-
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_quotes.inc b/plugins/ExternalAPI/delphi/m_quotes.inc deleted file mode 100644 index 1a6c597b6d..0000000000 --- a/plugins/ExternalAPI/delphi/m_quotes.inc +++ /dev/null @@ -1,36 +0,0 @@ -{$IFNDEF M_QUOTES}
-{$DEFINE M_QUOTES}
-
-const
-{*
- * Export the contact (or all contacts) to xml file
- * wParam = (WPARAM)(HANDLE)hContact to export or 0 to export all contacts
- * lParam = (LPARAM)(const char*)pszFileName - pointer to file name to export or
- * 0 in this case the dialog to select a file to export would be shown
- * returns 0 if export was successfull,
- * -1 if user canceled export and
- * value greater than zero if error occurred during exporting
- *}
- MS_QUOTES_EXPORT:PAnsiChar = 'Quotes/Export';
-
-{*
- * Import the contact (or all contacts) from xml file
- * wParam = flags
- * lParam = (LPARAM)(const char*)pszFileName - pointer to file name to import or
- * 0 in this case the dialog to select a file to import would be shown
- * returns 0 if import was successfull,
- * -1 if user canceled import and
- * value greater than zero if error occurred during importing
- *}
-
-// if contact(s) exists user would be asked to overwrite these contacts
-// #define QUOTES_IMPORT_PROMPT_TO_OVERWRITE_EXISTING_CONTACTS 0x0000
-// if contact(s) exists it would be overwrite without any prompt
-// #define QUOTES_IMPORT_SILENT_OVERWRITE_EXISTING_CONTACTS 0x0001
-// if contact(s) exists during importing it would be ignored
- QUOTES_IMPORT_SKIP_EXISTING_CONTACTS = 2;
-
- MS_QUOTES_IMPORT:PAnsiChar = 'Quotes/Import';
-
-{$ENDIF}
-
diff --git a/plugins/ExternalAPI/delphi/m_sendss.inc b/plugins/ExternalAPI/delphi/m_sendss.inc deleted file mode 100644 index e4a58a79ff..0000000000 --- a/plugins/ExternalAPI/delphi/m_sendss.inc +++ /dev/null @@ -1,66 +0,0 @@ -//This file is part of Send Screenshot a Miranda IM plugin
-//Copyright (c) 2004-2006 Sйrgio Vieira Rolanski
-//
-//This program is free software; you can redistribute it and/or
-//modify it under the terms of the GNU General Public License
-//as published by the Free Software Foundation; either
-//version 2 of the License, or (at your option) any later version.
-//
-//This program is distributed in the hope that it will be useful,
-//but WITHOUT ANY WARRANTY; without even the implied warranty of
-//MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-//GNU General Public License for more details.
-//
-//You should have received a copy of the GNU General Public License
-//along with this program; if not, write to the Free Software
-//Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-
-{$IFNDEF M_SENDSS}
-{$DEFINE M_SENDSS}
-
-const
-//////////////////////////////////////////////////////////////////////////////
-// Open the main capture dialog, but does not capture anything
-// wParam = contact handle
-// lParam = 0
-// Returns zero on success
-// -1 if was not possibly to create capture window
- MS_SENDSS_OPENDIALOG:PAnsiChar = 'SendSS/OpenCaptureDialog';
-
-//////////////////////////////////////////////////////////////////////////////
-// Send an image to imageshack.us
-// wParam = (char*)filename
-// lParam = (HANDLE)contact (can be null)
-// v0.8.0.0+
-// Returns always 0 (if lParam != 0)
-// Returns (char*)URL or error message if lParam = 0. caller must mir_free the pointer
- MS_SENDSS_SEND2IMAGESHACK:PAnsiChar = 'SendSS/Send2ImageShack';
-
-//////////////////////////////////////////////////////////////////////////////
-// 1. Send a screenshot of the desktop to the selected contact
-// wParam = contact handle
-// lParam = 0
-// 2. Open the capture dialog in take screenshot only mode (it will not be sent)
-// wParam = 0
-// lParam = anything but 0
-// Returns:
-// zero on success
-// -1 if was not possibly to create capture window
- MS_SENDSS_SENDDESKTOP:PAnsiChar = 'SendSS/SendDesktop';
-
-//////////////////////////////////////////////////////////////////////////////
-// Edit a in-memory bitmap on the edit window
-// wParam = (SENDSSCB) callback function address to call when editing is done
-// lParam = (HBITMAP) bitmap handle, a copy is made so the calling function can free this handle after the service function returns
-// Returns:
-// Zero on success
-// -1 if could not create the edit window
-// -2 if was not possible to alocate needed memory
- MS_SENDSS_EDITBITMAP:PAnsiChar = 'SendSS/EditBitmap';
-
-// The parameter passed is the bitmap handle
-// the called function must free this handle when it's not needed anymore
-// Don't do much processing on the called function or you will lock miranda up
-//typedef void (__stdcall *SENDSSCB)(LPVOID);
-
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_sessions.inc b/plugins/ExternalAPI/delphi/m_sessions.inc deleted file mode 100644 index 9fac7d8d23..0000000000 --- a/plugins/ExternalAPI/delphi/m_sessions.inc +++ /dev/null @@ -1,347 +0,0 @@ -{
-Miranda IM: the free IM client for Microsoft* Windows*
-
-Copyright 2000-2006 Miranda ICQ/IM project,
-all portions of this codebase are copyrighted to the people
-listed in contributors.txt.
-
-This program is free software; you can redistribute it and/or
-modify it under the terms of the GNU General Public License
-as published by the Free Software Foundation; either version 2
-of the License, or (at your option) any later version.
-
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with this program; if not, write to the Free Software
-Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-}
-
-{$IFNDEF M_SESSION}
-{$DEFINE M_SESSION}
-
-// Pipe Messages
-
-{
- szEntity=szUI, szProto (always != NULL)
- hSession=yes
-
- A new entity handle is about to be created to bind .szUI for usage by .szProto,
- note that this handle is not yet in the handle list and the .szProto will
- get the message first, then the .szUI will.
-
- .szUI must set up any instance data within the given hSession,
- this is done with Sion_EntityCookieSet(hSession,SDR_UI,data).
-
- .szProto may also set up data to associate with the given hSession,
- this is done with Sion_EntityCookieSet(hSession,SDR_PROTO,data);
-
- This message is always sent from the main thread (a thread context switch
- occurs if needed).
-}
-const
- ENTITY_CREATE = 1;
- ENTITY_DESTROY = 2;
-
-// Services/Hooks
-
-{ either .dwTo, dwFrom may have an SDR_* type, and SDR_* flag }
- SDR_ALL = 1;
- SDR_SION = 2;
- SDR_PROTO = 3;
- SDR_UI = 4;
-
-{ you may extend this structure but .cbSize must stay and the reserved data
-at the end of the structure must not be rewritten into }
-type
- PIPE_DATA = record
- cbSize :int;
- szEntity:PAnsiChar; // can be NULL
- hSession:THANDLE; // ""
- dwMsg :dword;
- dwTo :dword;
- dwFrom :dword; // SDR_*, SDR_ALL is not a good thing
- wParam :WPARAM;
- lParam :LPARAM;
- reserved:array [0..1] of dword; // is actually apart of the structure and is used internally
- end;
-
-{
-wParam=0
-lParam=(LPARAM)&PIPE_DATA
-
-Issue a call to an entity by name, type or to everyone, if you send
-a message to an entity by name, e.g. "ICQ" it will only goto "ICQ" and not
-to anyone else.
-}
-const
- MS_SION_PIPE:PAnsiChar = 'Sion/PipeCall';
-
-{
-wParam=0
-lParam=(LPARAM)&PIPE_DATA
-
-Begin your lovely relationship with everyone else who began a relationship
-before you, uh.. fill a pipe data structure and call this service :
-
-struct PIPE_DATA pd;
-pd.cbSize=sizeof(pd);
-pd.dwTo=SDR_PROTO;
-pd.szEntity="ICQ";
-pd.lParam=(MIRANDASERVICE)MyCallback;
-CallService(MS_SION_PIPEHOOK,0,(LPARAM)&pd);
-
-The service returns 0 on success and non zero on failure, once you have registered either as a UI or a protocol
-your MIRANDASERVICE will be called on the event on a pipe message that is
-either directed to your entity name (.szEntity!=NULL) or by SDR_* type.
-
-Note that the entity name may not be yours, but the pipe system may of been
-instructed to issue the call with the caller's entity name given to you, because
-you know what your entity name is already, you should not rely on .szEntity
-being anything, but if it is there, the message is for you only and no one else
-will get it and the value of .szEntity is dependant on the message.
-}
- MS_SION_PIPEHOOK:PAnsiChar = 'Sion/PipeHook';
-
-{
-wParam=0
-lParam=(LPARAM)&SION_ENTITY_DESCRIPTOR
-
-Create an entity handle binded to .szUI and for .szProto, this service will
-switch threads if it needs to to send ENTITY_CREATE to both .szUI and .szProto
-}
-type
- SION_ENTITY_DESCRIPTOR = record
- cbSize :int;
- szUI :PAnsiChar;
- szProto :PAnsiChar;
- hSession:THANDLE; // returned if successful
- end;
-
-const
- MS_SION_ENTITY_CREATE:PAnsiChar = 'Sion/EntityCreate';
-
-{
-wParam=0
-lParam=(LPARAM)HANDLE
-
-Decrement the given handle reference count by one, this will cause the
-handle to be freed if the reference count reaches zero, if this is the case
-there will be a thread switch to the main thread (if not called from the main thread)
-
-During handle shutdown, ENTITY_DESTROY will be sent to the protocol and then the UI,
-note that you do not need to give .szUI or .szProto because the handle knows
-who it is binded to.
-}
- MS_SION_ENTITY_RELEASE:PAnsiChar = 'Sion/EntityRelease';
-
-{
-wParam=0
-lParam=HANDLE
-
-Add one to the reference count of HANDLE.
-}
- MS_SION_ENTITY_CLONE:PAnsiChar = 'Sion/EntityClone';
-
-{
-wParam=0
-lParam=&SION_ENTITY_COOKIE
-
-Given a .hSession and a .dwSdr (SDR_*) code get/set a cookie pointer,
-if you pass data=NULL, then the current data stored for (SDR_*) will be
-returned, if you want to wipe that data, set persist=0
-
-Note that this function is now thread safe for SDR_UI, SDR_PROTO, SDR_SION,
-also note that UI's must store their instance data using this method.
-}
-type
- SION_ENTITY_COOKIE = record
- cbSize :int;
- hSession:THANDLE;
- dwSdr :dword; // SDR_* type to store data against, this can be SDR_UI or SDR_PROTO
- data :pointer; // can be NULL
- persist :int; // if TRUE and data is NULL then data will not be wiped
- end;
-const
- MS_SION_ENTITY_SETCOOKIE:PAnsiChar = 'Sion/EntitySetCookie';
-
-{
-wParam=0
-lParam=&SION_ENTITY_COOKIE
-
-Given .data and SDR_code, finds the associated .hSession and returns
-a reference to it, note that .data can not be NULL, .dwSdr is used
-to match the type of cookie.
-}
- MS_SION_ENTITY_FINDCOOKIE:PAnsiChar = 'Sion/EntityFindCookie';
-
-(*
-// -- Helper functions --
-
-__inline int Sion_PipeRegister(dword dwSdr,AnsiChar *szEntity,MIRANDASERVICE pfnService)
-{
- struct PIPE_DATA pd;
- pd.cbSize=sizeof(struct PIPE_DATA);
- pd.dwTo=dwSdr;
- pd.szEntity=szEntity;
- pd.lParam=(LPARAM)pfnService;
- return CallService(MS_SION_PIPEHOOK,0,(LPARAM)&pd);
-}
-
-__inline HANDLE Sion_EntityCreate(AnsiChar *szProto, AnsiChar *szUI)
-{
- struct SION_ENTITY_DESCRIPTOR sed;
- sed.cbSize=sizeof(sed);
- sed.szProto=szProto;
- sed.szUI=szUI;
- sed.hSession=NULL;
- if (!CallService(MS_SION_ENTITY_CREATE,0,(LPARAM)&sed) && sed.hSession) {
- return sed.hSession;
- }
- return NULL;
-}
-
-__inline int Sion_EntityRelease(HANDLE seh)
-{
- return CallService(MS_SION_ENTITY_RELEASE,0,(LPARAM)seh);
-}
-
-__inline int Sion_EntityClone(HANDLE seh)
-{
- return CallService(MS_SION_ENTITY_CLONE,0,(LPARAM)seh);
-}
-
-__inline void* Sion_EntityCookieGet(HANDLE seh, dword dwSdr)
-{
- struct SION_ENTITY_COOKIE sec;
- sec.cbSize=sizeof(sec);
- sec.hSession=seh;
- sec.dwSdr=dwSdr;
- sec.data=NULL;
- sec.persist=1;
- CallService(MS_SION_ENTITY_SETCOOKIE,0,(LPARAM)&sec);
- return sec.data;
-}
-
-__inline int Sion_EntityCookieSet(HANDLE seh, dword dwSdr, void* cookie)
-{
- struct SION_ENTITY_COOKIE sec;
- sec.cbSize=sizeof(sec);
- sec.hSession=seh;
- sec.dwSdr=dwSdr;
- sec.data=cookie;
- sec.persist=0;
- return CallService(MS_SION_ENTITY_SETCOOKIE,0,(LPARAM)&sec);
-}
-
-__inline HANDLE Sion_EntityCookieFind(dword dwSdr, void* cookie)
-{
- struct SION_ENTITY_COOKIE sec;
- sec.cbSize=sizeof(sec);
- sec.hSession=NULL;
- sec.dwSdr=dwSdr;
- sec.data=cookie;
- CallService(MS_SION_ENTITY_FINDCOOKIE,0,(LPARAM)&sec);
- return sec.hSession;
-}
-
-__inline int Sion_PipeBroadcast(AnsiChar* szEntity, HANDLE hSession, dword dwMsg,
- WPARAM wParam, LPARAM lParam, dword dwFrom, dword dwTo) {
- struct PIPE_DATA pd;
- pd.cbSize=sizeof(struct PIPE_DATA);
- pd.szEntity=szEntity;
- pd.hSession=hSession;
- pd.dwMsg=dwMsg;
- pd.dwTo=dwTo;
- pd.dwFrom=dwFrom;
- pd.wParam=wParam;
- pd.lParam=lParam;
- return CallService(MS_SION_PIPE,0,(LPARAM)&pd);
-}
-*)
-
-{
---Pipe Convos--
-
-The following is the planned pathway message, not all may make
-it to the final draft.
-
-Because of the nature of some protocols, there are some
-messages that some protocols can ignore since they have no meaning.
-
-SION : sends ENTITY_CREATE after creating a temporary entity handle
-PROTO,
-UI : both UI and protocol store structures as cookies within the handle
- which it can later fetch. At this point the UI is assumed single
- contact.
-
-SION : sends a message to the protocol to let it know it should allocate transport
-PROTO: the proto can assume this from ENTITY_CREATE, but I'm not sure this a good idea.
-
-PROTO: Protocol needs to send a message to tell the UI about basic channel stuff
- like if it is multiple contact from the start (IRC style) or open to change
- (MSN style) or if it is private and restricted in all forms of JOIN, INVITE, etc.
-UI : Can use this message to present information in a 2 person format even if
- the protocol level is widly different.
-
-
-SION : ATTACH_CHANNEL or ATTACH_CONTACT
-PROTO: will send "JOIN" or "INVITE" to request a join/a contact
- this maybe on the transport just created above.
- These two messages will be have a HPROCESS code
- that must be acknowledged later.
-
- Note that if the protocol does not require contacts
- to be attached in this way (invited) then just fake the
- ATTACHED_* messages.
-
- The contacts(s) will be shown in the channel at the UI level
- even if they are not yet within the channel at the protocol
- level.
-
-PROTO: sends ATTACHED_CHANNEL or ATTACHED_CONTACT with the HPROCESS
- code given by the ATTACH_* messages, this is to signal
- that the JOIN was successful or that the invited contact
- has joined.
-
- Note that there maybe more than one ATTACHED_* message.
-
-PROTO: sends a CHANNEL_WHOLIST
-UI : is supposed to listen out for this WHOLIST and present
- a list of people already inside the channel.
-
- if for a single user, the channel list maybe hidden.
-
-PROTO: sends a CHANNEL_TOPIC
-UI : displays the topic inside the channel, this message is optional and may not be sent
-
-PROTO: sends a CHANNEL_MODE
-UI : displays the modes that the channel is in, the modes still have to be abstracted
- to Miranda, e.g. IRC mode +M have another Miranda spec flag.
-
-PROTO: sends a CHANNEL_DONE
-UI : the UI is now sure that no more messages are expected.
-
-UI : sends a UI_TEXT message, with optional source TMCONTACT and of course the message.
-PROTO: picks up on this message and transmits it, it must return
- a HPROCESS code that is later acknowledged.
-
- It is upto the protocol if it processes this message with the protocol
- send chain.
-
-PROTO: sends a UI_TEXTED with HPROCESS code given above
-UI : the UI may show the message as 'sent' or show nothing to the user.
-
-UI : sends UI_IAMTYPING
-PROTO: the protocol may or may not send this message to the other parties
- but it must process it, this message is also optional.
-
-PROTO: sends UI_CONTACT_ISTYPING (source TMCONTACT)
-UI : an TMCONTACT within the session is typing, the UI may elect to show this
- message in a status bar, or with a visual effect.
-}
-
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_shutdown.inc b/plugins/ExternalAPI/delphi/m_shutdown.inc deleted file mode 100644 index fbdede1fb6..0000000000 --- a/plugins/ExternalAPI/delphi/m_shutdown.inc +++ /dev/null @@ -1,178 +0,0 @@ -{
-
-'AutoShutdown'-Plugin for
-Miranda IM: the free IM client for Microsoft* Windows*
-
-Copyright (C) 2004-2007 H. Herkenrath
-
-This program is free software; you can redistribute it and/or
-modify it under the terms of the GNU General Public License
-as published by the Free Software Foundation; either version 2
-of the License, or (at your option) any later version.
-
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with this program (Shutdown-License.txt); if not, write to the Free Software
-Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-}
-
-{$IFNDEF M_SHUTDOWN}
-{$DEFINE M_SHUTDOWN}
-
-const
- MIID_SHUTDOWN:TGUID = '{142982A8-88CF-4C65-8721-6DE27D5CE7B5}';
-
-//******************************************************************/
-//************************* SERVICES *******************************/
-//******************************************************************/
-
-{ Show settings dialog v1.3.0.0+
-Shows the dialog by which the shutdown watcher can be started.
-If the dialog is already opened this brings it to foreground.
- wParam=lParam=0
-Returns 0 on success, nonzero otherwise.
-}
- MS_AUTOSHUTDOWN_SHOWSETTINGSDIALOG:PAnsiChar = 'AutoShutdown/ShowSettingsDialog';
-
-{ Initiate shutdown process v1.3.0.0+
-Initiates the shutdown process for a given shutdown type.
-If another shutdown process is already pending it will return error.
-Associated events: ME_AUTOSHUTDOWN_OKTOSHUTDOWN, ME_AUTOSHUTDOWN_SHUTDOWN
- wParam=shutdownType
- lParam=(LPARAM)(bool)fShowConfirmDlg (whether to show the warning dialog or not)
-Returns 0 on success, nonzero otherwise.
-}
- MS_AUTOSHUTDOWN_SHUTDOWN:PAnsiChar = 'AutoShutdown/Shutdown';
-
-//* shutdown types */
- SDSDT_CLOSEMIRANDA = 1; // close miranda process
- SDSDT_SETMIRANDAOFFLINE = 2; // set all protocols to offline
- SDSDT_LOGOFF = 3; // logoff from Windows
- SDSDT_REBOOT = 4; // reboot computer
- SDSDT_SHUTDOWN = 5; // shutdown Windows and power off
- SDSDT_STANDBY = 6; // standby mode
- SDSDT_HIBERNATE = 7; // hibernate mode
- SDSDT_LOCKWORKSTATION = 8; // lock the workstation
- SDSDT_CLOSERASCONNECTIONS = 9; // close all dialup connections
- SDSDT_MAX = 9;
-
-{ Get shutdown type description v1.4.0.0+
-Gets a textual description of the given shutdown type.
- wParam=shutdownType
- lParam=flags (see GSTDF_* below)
-Returns a static buffer of the description of the given shutdown type.
-It does not need to be freed in any way.
-The returned text is already translated.
-Returns a pointer to a string on success, NULL on error.
-}
- MS_AUTOSHUTDOWN_GETTYPEDESCRIPTION:PAnsiChar = 'AutoShutdown/GetTypeDescription';
-
- GSTDF_LONGDESC = $0001; // returns a long description
- GSTDF_UNICODE = $0002; // returns a Unicode string
- GSTDF_UNTRANSLATED = $0004; // returns an untranslated string
-
-{ Check if shutdown type is enabled v1.4.0.0+
-Tests if a specific shutdown type is activated and its use is possible
-on the system. For example hibernate and stand-by modes are not available on
-older versions of Windows (needs Windows ME/2000+).
-Shutdown might also be prohibited by security restrictions.
-This services checks it all.
-However, there is no need to call this before calling MS_AUTOSHUTDOWN_SHUTDOWN.
-MS_AUTOSHUTDOWN_SHUTDOWN will fail if the given shutdown type is not enabled.
- wParam=shutdownType
- lParam=0
-Returns TRUE if the given shutdown type is enabled, FALSE otherwise.
-}
- MS_AUTOSHUTDOWN_ISTYPEENABLED:PAnsiChar = 'AutoShutdown/IsTypeEnabled';
-
-{ Start shutdown watcher v1.4.0.0+
-Starts the watcher using the last settings specified on the dialog
-shown by MS_AUTOSHUTDOWN_SHOWSETTINGSDIALOG.
-Call MS_AUTOSHUTDOWN_SHOWSETTINGSDIALOG instead to offer
-options about what watcher to use.
-Associated event: ME_AUTOSHUTDOWN_WATCHERCHANGED
- wParam=lParam=0
-Returns 0 on success, nonzero otherwise.
-}
- MS_AUTOSHUTDOWN_STARTWATCHER:PAnsiChar = 'AutoShutdown/StartWatcher';
-
-{ Stop shutdown watcher v1.4.0.0+
-Stops the currently running watcher.
-If the watcher is not running, it returns error.
-Associated event: ME_AUTOSHUTDOWN_WATCHERCHANGED
- wParam=lParam=0
-Returns 0 on success, nonzero otherwise.
-}
- MS_AUTOSHUTDOWN_STOPWATCHER:PAnsiChar = 'AutoShutdown/StopWatcher';
-
-{ Check if watcher is running v1.4.0.0+
-Checks if the watcher is currently active or not.
- wParam=lParam=0
-Returns TRUE if the watcher is enabled, FALSE otherwise.
-}
- MS_AUTOSHUTDOWN_ISWATCHERENABLED:PAnsiChar = 'AutoShutdown/IsWatcherEnabled';
-
-//******************************************************************/
-//************************** EVENTS ********************************/
-//******************************************************************/
-
-{ Disallow shutdown process (event) v1.3.0.0+
-Gets fired when MS_AUTOSHUTDOWN_SHUTDOWN is called.
-Parmeters are the same as specified at the call to MS_AUTOSHUTDOWN_SHUTDOWN.
- wParam=shutdownType
- lParam=(LPARAM)(bool)fShowConfirmDlg
-Return 0 to allow shutdown, 1 to disallow.
-}
- ME_AUTOSHUTDOWN_OKTOSHUTDOWN:PAnsiChar = 'AutoShutdown/OkToShutdown';
-
-{ Shutdown process started (event) v1.3.0.1+
-Gets fired when ME_AUTOSHUTDOWN_OKTOSHUTDOWN was confirmed.
-Parmeters are the same as specified at the call
-to MS_AUTOSHUTDOWN_SHUTDOWN.
- wParam=shutdownType
- lParam=(LPARAM)(bool)fShowConfirmDlg
-Unused, return always 0 here.
-}
- ME_AUTOSHUTDOWN_SHUTDOWN:PAnsiChar = 'AutoShutdown/ShutdownEvent';
-
-{ Watcher changed (event) v1.3.0.0+
-Fired when MS_AUTOSHUTDOWN_STARTWATCHER or MS_AUTOSHUTDOWN_STOPWATCHER
-is called.
- wParam=(WPARAM)(bool)fIsStarted (whether whe watcher is running now)
- lParam=0
-Unused, return always 0 here.
-}
- ME_AUTOSHUTDOWN_WATCHERCHANGED:PAnsiChar = 'AutoShutdown/Watcher/Changed';
-
- SDWTF_SPECIFICTIME = $0001;
- SDWTF_ST_TIME = $0002;
- SDWTF_ST_COUNTDOWN = $0004;
- SDWTF_ST_MASK = $0006; // bitmask for SDWTF_ST_* bits
- SDWTF_MESSAGE = $0008;
- SDWTF_FILETRANSFER = $0010;
- SDWTF_IDLE = $0020;
- SDWTF_STATUS = $0040;
- SDWTF_CPUUSAGE = $0080;
- SDWTF_MASK = $00FF; // bitmask for all SDWTF_* bits
-
- SETTING_REMEMBERONRESTART_DEFAULT = 0; // SDROR_RUNNING
- SETTING_SHOWCONFIRMDLG_DEFAULT = 1;
- SETTING_CONFIRMDLGCOUNTDOWN_DEFAULT = 30; // seconds
- SETTING_WEATHERSHUTDOWN_DEFAULT = 0;
- SETTING_HDDOVERHEATSHUTDOWN_DEFAULT = 1;
- SETTING_SMARTOFFLINECHECK_DEFAULT = 1;
-
- SETTING_SHUTDOWNTYPE_DEFAULT = SDSDT_SHUTDOWN;
- SETTING_WATCHERFLAGS_DEFAULT = SDWTF_SPECIFICTIME or SDWTF_ST_COUNTDOWN;
- SETTING_COUNTDOWN_DEFAULT = 30;
- SETTING_COUNTDOWNUNIT_DEFAULT = 60; // x times countdown seconds
- SETTING_TIMESTAMP_DEFAULT = SETTING_COUNTDOWN_DEFAULT*SETTING_COUNTDOWNUNIT_DEFAULT;
- SETTING_CPUUSAGETHRESHOLD_DEFAULT = 90; // percent
-
- SDROR_RUNNING = 3;
-
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_simplestatusmsg.inc b/plugins/ExternalAPI/delphi/m_simplestatusmsg.inc deleted file mode 100644 index 6a1cea8f8c..0000000000 --- a/plugins/ExternalAPI/delphi/m_simplestatusmsg.inc +++ /dev/null @@ -1,51 +0,0 @@ -{
-Simple Status Message plugin for Miranda IM
-Copyright (C) 2006-2011 Bartosz 'Dezeath' Biaіek, (C) 2005 Harven
-
-This program is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2 of the License, or
-(at your option) any later version.
-
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License along
-with this program; if not, write to the Free Software Foundation, Inc.,
-51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-}
-
-{$IFNDEF M_SIMPLESTATUSMSG}
-{$DEFINE M_SIMPLESTATUSMSG}
-
-const
-// Change global status mode/message
-// wParam = (int)new status, 0 if for current
-// lParam = (LPARAM)(TCHAR *)status message
- MS_SIMPLESTATUSMSG_SETSTATUS:PAnsiChar = 'SimpleStatusMsg/SetStatus';
-
-// Bring up the status message dialog
-// wParam = 0
-// lParam = (LPARAM)(char *)protocol name, NULL if for all protocols
- MS_SIMPLESTATUSMSG_SHOWDIALOG:PAnsiChar = 'SimpleStatusMsg/ShowDialog';
-
-// Force a change of status mode/message. The status message dialog will
-// appear depending on settings
-// wParam = (int)new status
-// lParam = (LPARAM)(char *)protocol name, NULL if for all protocols
-// Returns 1 when changed without showing the status message dialog
- MS_SIMPLESTATUSMSG_CHANGESTATUSMSG:PAnsiChar = 'SimpleStatusMsg/ChangeStatusMessage';
-
-// Copy the status message of a contact to clipboard
-// wParam = (WPARAM)(HANDLE)hContact
-// lParam = 0
- MS_SIMPLESTATUSMSG_COPYMSG:PAnsiChar = 'SimpleStatusMsg/CopyMsg';
-
-// Go to URL in status message of a contact
-// wParam = (WPARAM)(HANDLE)hContact
-// lParam = 0
- MS_SIMPLESTATUSMSG_GOTOURLMSG:PAnsiChar = 'SimpleStatusMsg/GoToURLMsg';
-
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_skin_eng.inc b/plugins/ExternalAPI/delphi/m_skin_eng.inc deleted file mode 100644 index 78ad8d306c..0000000000 --- a/plugins/ExternalAPI/delphi/m_skin_eng.inc +++ /dev/null @@ -1,268 +0,0 @@ -{
-Miranda IM: the free IM client for Microsoft* Windows*
-
-Copyright 2000-2008 Miranda ICQ/IM project,
-all portions of this codebase are copyrighted to the people
-listed in contributors.txt.
-
-This program is free software; you can redistribute it and/or
-modify it under the terms of the GNU General Public License
-as published by the Free Software Foundation; either version 2
-of the License, or (at your option) any later version.
-
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with this program; if not, write to the Free Software
-Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-}
-
-{$IFNDEF M_SKE}
-{$DEFINE M_SKE}
-
-const
-//*defaults*/
-// DEFAULT_FIT_MODE = FM_STRETCH;
-// DEFAULT_STYLE = ST_BRUSH ;
-// DEFAULT_BKCOLOUR GetSysColor(COLOR_3DFACE);
-// DEFAULT_SELBKCOLOUR GetSysColor(COLOR_HIGHLIGHT);
-
- SIZING_MARGIN = 3;
-
-//* Fit mode */
- FM_STRETCH = 0;
- FM_TILE_HORZ = 1;
- FM_TILE_VERT = 2;
- FM_TILE_BOTH = 3;
-
-//*Object types*/
- OT_ANY = 0;
- OT_GLYPHOBJECT = 1;
- OT_FONTOBJECT = 2;
-
-//*STYLE INDEXEX*/
- ST_SKIP = 0;
- ST_PARENT = 1;
- ST_BRUSH = 2;
- ST_IMAGE = 3;
- ST_SOLARIZE = 4; //Not used yet.
- ST_FRAGMENT = 5;
- ST_GRADIENT = 6;
-
-//formats:
- ADT_TOP = $00000000;
- ADT_LEFT = $00000000;
- ADT_HCENTER = $00000001;
- ADT_RIGHT = $00000002;
- ADT_VCENTER = $00000004;
- ADT_BOTTOM = $00000008;
-// ADT_ECLIPSE = 64;
-
-
-//*SERVICES*/
-
-//toggle the 'hide offline contacts' flag and call CLUI
-//wParam=0
-//lParam=0
- MS_CLIST_TOGGLEHIDEOFFLINE:PAnsiChar = 'CList/ToggleHideOffline';
-
- MS_CLIST_TOGGLEGROUPS:PAnsiChar = 'CList/ToggleGroups';
-
- MS_CLIST_TOGGLESOUNDS:PAnsiChar = 'CList/ToggleSounds';
-
-// Add new object to skin object list.
-// wParam = pointer to SKINOBJECTDESCRIPTOR structure
-// lParam = 0 ( used for internal purposes: pointer to skin object list)
- MS_SKIN_REGISTEROBJECT:PAnsiChar = 'ModernList/RegisterObject';
-
-// Add new object to skin object list.
-// wParam = pointer to DEF_SKIN_OBJECT_PARAMS structure
-// lParam = 0 ( used for internal purposes: pointer to skin object list)
- MS_SKIN_REGISTERDEFOBJECT:PAnsiChar = 'ModernList/RegisterDefObject';
-
-type
- DEF_SKIN_OBJECT_PARAMS = record
- szObjectID:PAnsiChar;
- defStyle:byte;
- defColor:dword;
- // Skin: PSKINOBJECTSLIST;
- end;
-
-const
-// Request painting glyph object
-// wParam = pointer to SKINDRAWREQUEST structure
-// lParam = 0
- MS_SKIN_DRAWGLYPH:PAnsiChar = 'ModernList/DrawGlyph';
-
-
-//* EVENTS */
- ME_SKIN_SERVICESCREATED:PAnsiChar = 'ModernList/ServicesCreated';
-
-//* DRAWGLYPH Request structure */
-type
- PSKINDRAWREQUEST = ^TSKINDRAWREQUEST;
- TSKINDRAWREQUEST = record
- szObjectID:array [0..254] of AnsiChar; // Unic Object ID (path) to paint
- rcDestRect:TRECT; // Rectangle to fit
- rcClipRect:TRECT; // Rectangle to paint in.
- hDC:HDC; // Handler to device context to paint in.
- end;
-
-//* SKINOBJECTDESCRIPTOR opbject descriptor structure */
-type
- PSKINOBJECTDESCRIPTOR = ^TSKINOBJECTDESCRIPTOR;
- TSKINOBJECTDESCRIPTOR = record
- bType:byte; // One of OT_* values.
- szObjectID:PAnsiChar; // Unic Object ID (path) [255] max
- Data:pointer; // Pointer to GLYPHOBJECT strycture if bType==OT_GLYPHOBJECT
- end;
-
-//* SKINOBJECTDESCRIPTOR opbject descriptor structure */
-type
- PGLYPHOBJECT = ^TGLYPHOBJECT;
- TGLYPHOBJECT = record
- Style :byte; // One of ST_* values
- hGlyph :HBITMAP; // Bitmap handler (for internal use only)
- dwTop,
- dwLeft,
- dwBottom,
- dwRight :dword; // Margins
- szFileName :PAnsiChar; // FileName of image
- dwColor :dword; // Fill color
- dwAlpha :byte; // Constant alpha-transparency level
- FitMode :byte; // One of FM_* values
- clipArea :TPOINT; // Object image rect on full image
- szclipArea :TSIZE; // Object image rect on full image
- plTextList :PSortedList; // List of GLYPHTEXT
- bmWidth :long;
- bmHeight :long;
- bmBitsPixel:byte;
- end;
-
-//* SKINTEXTDESCRIPTOR opbject descriptor structure */
-type
- PGLYPHTEXT = ^TGLYPHTEXT;
- TGLYPHTEXT = record
- szGlyphTextID:PAnsiChar;
- stText :TChar;
- stValueText :TChar;
- dwFlags :dword;
- dwColor :dword; // Color (InvAA)(RR)(GG)(BB)
- dwShadow :dword; //ToDo: Color2/Shaddow
- iLeft,iTop,iRight,iBottom:int;
- RelativeFlags:byte;
- szFontID :PAnsiChar;
- hFont :HFONT;
- szObjectName :PAnsiChar;
- end;
-
-//* SKINTEXTDESCRIPTOR opbject descriptor structure */
-type
- PSKINFONT = ^TSKINFONT;
- TSKINFONT = record
- szFontID:PAnsiChar;
- hFont :HFONT;
- end;
-
-//////////////////////////////////////////////
-// //
-// New Painting sequence servises //
-// //
-//////////////////////////////////////////////
-
-type
- sPaintRequest = record
- dStructSize :dword; // size of structure
- hWnd :HWND; // called by window
- hDC :HDC; // context to draw on
- rcUpdate :TRECT; // rectangle to be painted in (relative to Top-Left corner of Main window)
- dwFlags :dword; // drawing flags
- CallbackData:pointer; // Data for passing to callback procedure
- Reserved :array [0..15] of byte; // reserved for farther usage;
- end;
-
-const
-// Request to register sub for callback painting frame area
-// wParam = hWnd of called frame
-// lParam = pointer to tPaintCallBackProc (or NULL to remove)
-// return 1 - succes, 0 - failure
- MS_SKINENG_REGISTERPAINTSUB:PAnsiChar = 'SkinEngine/ske_Service_RegisterFramePaintCallbackProcedure';
-
-// Request to repaint frame or change/drop callback data immeadeately
-// wParam = hWnd of called frame
-// lParam = pointer to sPaintRequest (or NULL to redraw all)
- MS_SKINENG_UPTATEFRAMEIMAGE:PAnsiChar = 'SkinEngine/ske_Service_UpdateFrameImage';
-
-// Request to repaint frame or change/drop callback data
-// wParam = hWnd of called frame
-// lParam = pointer to sPaintRequest (or NULL to redraw all)
-// return 2 - already queued, data updated, 1-have been queued, 0 - failure
- MS_SKINENG_INVALIDATEFRAMEIMAGE:PAnsiChar = 'SkinEngine/ske_Service_InvalidateFrameImage';
-
-// Callback proc type
-type
- tPaintCallbackProc = function(hWnd:HWND; hDC:HDC; rcPaint:PRECT; rgnUpdate:HRGN;
- dFlags:dword; CallBackData:pointer):int;
-
-const
-//
-// Paints text with correct alpha channel
-// wParam - pointer to AlphaTextOutParams
- MS_SKINENG_ALPHATEXTOUT:PAnsiChar = 'SkinEngine/ske_AlphaTextOut';
-
-type
- TAlphaTextOutParams = record
- HDC :HDC;
- lpString :TChar;
- nCount :int;
- lpRect :PRECT;
- forma :uint;
- ARGBcolor:dword;
- reserv :array [0..15] of byte;
- end;
-
-type
- ImageListFixParam = record
- himl :THANDLE; //HIMAGELIST;
- index:int;
- hicon:HICON;
- end;
-
-type
- DrawIconFixParam = record
- hdc :HDC;
- xLeft :int;
- yTop :int;
- hIcon :HICON;
- cxWidth :int;
- cyWidth :int;
- istepIfAniCur :uint;
- hbrFlickerFreeDraw:HBRUSH;
- diFlags :uint;
- end;
-
-const
-//wParam - pointer to DrawIconFixParam
- MS_SKINENG_DRAWICONEXFIX:PAnsiChar = 'SkinEngine/DrawIconEx_Fix';
-
-const
-// Register of plugin's user
-//
-// wParam = (WPARAM)szSetting - string that describes a user
-// format: Category/ModuleName,
-// eg: "Contact list background/CLUI",
-// "Status bar background/StatusBar"
-// lParam = (LPARAM)dwFlags
-//
- MS_BACKGROUNDCONFIG_REGISTER:PAnsiChar = 'ModernBkgrCfg/Register';
-
-//
-// Notification about changed background
-// wParam = ModuleName
-// lParam = 0
- ME_BACKGROUNDCONFIG_CHANGED:PAnsiChar = 'ModernBkgrCfg/Changed';
-
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_spellchecker.inc b/plugins/ExternalAPI/delphi/m_spellchecker.inc deleted file mode 100644 index 9f776d2fd7..0000000000 --- a/plugins/ExternalAPI/delphi/m_spellchecker.inc +++ /dev/null @@ -1,68 +0,0 @@ -{
-Copyright (C) 2006 Ricardo Pescuma Domenecci
-
-This is free software; you can redistribute it and/or
-modify it under the terms of the GNU Library General Public
-License as published by the Free Software Foundation; either
-version 2 of the License, or (at your option) any later version.
-
-This is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-Library General Public License for more details.
-
-You should have received a copy of the GNU Library General Public
-License along with this file; see the file license.txt. If
-not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-Boston, MA 02111-1307, USA.
-}
-
-{$IFNDEF M_SPELLCHECKER}
-{$DEFINE M_SPELLCHECKER}
-
-type
- SPELLCHECKER_ITEM = record
- cbSize :int;
- hContact :TMCONTACT; // The contact to get the settings from, or NULL
- hwnd :HWND; // The hwnd of the richedit
- window_name:PAnsiChar; // A name for this richedit
- end;
-
-type
- SPELLCHECKER_POPUPMENU = record
- cbSize :int;
- hwnd :HWND; // The hwnd of the richedit
- hMenu :HMENU; // The handle to the menu
- pt :TPOINT; // The point, in screen coords
- hwndOwner:HWND; // The hwnd of owner of the popup menu. If it is null, hwnd is used
- end;
-
-const
-{
-Adds a richedit control for the spell checker to check
-
-wParam: SPELLCHECKER_ITEM *
-lParam: ignored
-return: 0 on success
-}
- MS_SPELLCHECKER_ADD_RICHEDIT:PAnsiChar = 'SpellChecker/AddRichedit';
-
-{
-Removes a richedit control for the spell checker to check
-
-wParam: HWND
-lParam: ignored
-return: 0 on success
-}
- MS_SPELLCHECKER_REMOVE_RICHEDIT:PAnsiChar = 'SpellChecker/RemoveRichedit';
-
-{
-Show context menu
-
-wParam: SPELLCHECKER_POPUPMENU
-lParam: ignored
-return: the control id selected by the user, 0 if no one was selected, < 0 on error
-}
- MS_SPELLCHECKER_SHOW_POPUP_MENU:PAnsiChar = 'SpellChecker/ShowPopupMenu';
-
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_splash.inc b/plugins/ExternalAPI/delphi/m_splash.inc deleted file mode 100644 index 0ff1dde6f6..0000000000 --- a/plugins/ExternalAPI/delphi/m_splash.inc +++ /dev/null @@ -1,11 +0,0 @@ -{$IFNDEF M_SPLASH}
-{$DEFINE M_SPLASH}
-
-// Shows splash image
-// wParam = (char *) image filename, either relative to Miranda dir or absolute
-// lParam = (int) time to display in milliseconds, 0 - infinite (hangs on screen until clicked)
-// returns: 1 if success and 0 if failed
-const
- MS_SHOWSPLASH:PAnsiChar = 'SplashScreen/Show';
-
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_statusplugins.inc b/plugins/ExternalAPI/delphi/m_statusplugins.inc deleted file mode 100644 index 9852d0cf14..0000000000 --- a/plugins/ExternalAPI/delphi/m_statusplugins.inc +++ /dev/null @@ -1,182 +0,0 @@ -{
- AdvancedAutoAway Plugin for Miranda-IM (www.miranda-im.org)
- KeepStatus Plugin for Miranda-IM (www.miranda-im.org)
- StartupStatus Plugin for Miranda-IM (www.miranda-im.org)
- Copyright 2003-2006 P. Boon
-
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 2 of the License, or
- (at your option) any later version.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
-
- You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software
- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-}
-{$IFNDEF M_STATUSPLUGINS}
-{$DEFINE M_STATUSPLUGINS}
-
-// -- common status -- (all three plugins)
-type
- PROTOCOLSETTINGEX = record
- cbSize :integer;
- szName :PAnsiChar; // pointer to protocol modulename
- szMsg :TChar; // pointer to the status message (may be NULL)
- status :word; // the status
- lastStatus:word; // last status
- tszAccName:TChar;
- end;
-
-const
-// wParam = PROTOCOLSETTINGEX*** (keep it like this for compatibility)
-// lParam = 0
-// returns 0 on success
- MS_CS_SETSTATUSEX:PAnsiChar = 'CommonStatus/SetStatusEx';
-
-// wParam = PROTOCOLSETTINGEX*** (keep it like this for compatibility)
-// lParam = timeout
-// returns hwnd
- MS_CS_SHOWCONFIRMDLGEX:PAnsiChar = 'CommonStatus/ShowConfirmDialogEx';
-
-// wParam = 0
-// lParam = 0
-// returns the number of protocols registerd
- MS_CS_GETPROTOCOUNT:PAnsiChar = 'CommonStatus/GetProtocolCount'; // added dec '04
-
-// wParam = PROTOCOLSETTINGEX*** (keep it like this for compatibility)
-// lParam = (int) settings count
- ME_CS_STATUSCHANGEEX:PAnsiChar = 'CommonStatus/StatusChangeEx';
-{
-// wParam = protoCount
-// lParam = 0
- ME_CS_CSMODULELOADED:PAnsiChar = 'CommonStatus/CommonStatusLoaded';
-}
-// -- startup status --
-// wParam = profile number (set to -1 to get default profile)
-// lParam = PROTOCOLSETTINGEX*** (keep for... )(memory must be allocated protoCount*PROTOCOLSETTINGEX* and protoCount*PROTOCOLSETTINGEX)
-// szMsg member does not have to be freed
-// returns 0 on success
- MS_SS_GETPROFILE:PAnsiChar = 'StartupStatus/GetProfile'; // don't use this > jan '05, internal use only
-
-// wParam = profile number
-// lParam = 0
-// return 0 on success
- MS_SS_LOADANDSETPROFILE:PAnsiChar = 'StartupStatus/LoadAndSetProfile'; // you can use this
-
-// wParam = int*, maybe NULL sets this int to the default profile number
-// lParam = 0
-// returns profile count
- MS_SS_GETPROFILECOUNT:PAnsiChar = 'StartupStatus/GetProfileCount';
-
-// wParam = profile number
-// lParam = AnsiChar* (must be allocated, size = 128)
-// returns 0 on success
- MS_SS_GETPROFILENAME:PAnsiChar = 'StartupStatus/GetProfileName';
-
-// -- AdvancedAutoAway --
-type
- STATES = (
- ACTIVE, // user is active
- STATUS1_SET, // first status change happened
- STATUS2_SET, // second status change happened
- SET_ORGSTATUS, // user was active again, original status will be restored
-
- HIDDEN_ACTIVE // user is active, but this is not shown to the outside world
-
-// STATUS1_SET2, // first status change happened, but user may be active ('on inactive only was disabled')
-// STATUS2_SET2 // second status change happened, but user may be active ('on inactive only was disabled')
- );
-
-type
- AUTOAWAYSETTING = record
- protocolSetting :^PROTOCOLSETTINGEX;
- originalStatusMode:int; // this is set only when going from ACTIVE to
- // STATUS1_SET (or to STATUS2_SET)
- // (note: this is therefore not always valid)
- oldState :STATES; // state before the call
- curState :STATES; // current state
- bstatusChanged :bool; // the status of the protocol will actually be changed
- // (note: unlike the name suggests, the status is
- // changed AFTER this hook is called)
- bManual :bool; // state changed becuase status was changed manually
- end;
-
-// wParam = 0;
-// lParam = AUTOAWAYSETTING*
-// Called when a protocol's state in AAA is changed this does NOT necessary means the status was changed
-// note: this hook is called for each protocol seperately
-const
- ME_AAA_STATECHANGED:PAnsiChar = 'AdvancedAutoAway/StateChanged';
-{
-type
- AAAOPTPAGE = record
- cbSize :int;
- pszText :PAnsiChar;
- hInst :HINSTANCE;
- pfnDlgProc :DLGPROC;
- pszTemplate:PAnsiChar;
- end;
-
-const
-// lParam=(LPARAM)(AAAOPTPAGE)&aop
- MS_AAA_REGISTEROPTIONPAGE:PAnsiChar = 'AdvancedAutoAway/RegisterOptionPage';
-}
-// -- KeepStatus --
- KS_CONN_STATE_LOST = 1; // lParam = protocol
- KS_CONN_STATE_OTHERLOCATION = 2; // lParam = protocol
- KS_CONN_STATE_RETRY = 3; // lParam = nth retry
- KS_CONN_STATE_STOPPEDCHECKING = 4; // lParam = TRUE if success, FALSE if failed
- KS_CONN_STATE_LOGINERROR = 5; // lParam = protocol, only if selected in options
- KS_CONN_STATE_RETRYNOCONN = 6; // lParam = nth try, a connection attempt will not be made
-// wParam = one of above
-// lParam depends on wParam
- ME_KS_CONNECTIONEVENT:PAnsiChar = 'KeepStatus/ConnectionEvent';
-
-// wParam = 0
-// lParam = 0
-// returns 0 on succes, nonzero on failure, probably keepstatus wasn't reconnecting
- MS_KS_STOPRECONNECTING:PAnsiChar = 'KeepStatus/StopReconnecting';
-
-// wParam = TRUE to enable checking a protocol, FALSE to disable checking a protocol
-// lParam = protocol
-// return 0 on success, nonzero on failure, probably the protocol is 'hard' disabled or not found
-// note: you cannot enable a protocol that is disabled in the options screen, you can disable a protocol
-// if it's enabled in the option screen.
- MS_KS_ENABLEPROTOCOL:PAnsiChar = 'KeepStatus/EnableProtocol';
-
-// wParam = 0
-// lParam = protocol
-// returns TRUE if protocol is enabled for checked, FALSE otherwise
- MS_KS_ISPROTOCOLENABLED:PAnsiChar = 'KeepStatus/IsProtocolEnabled';
-
-// Indicate the status will be changed which will not be regarded as a connection failure.
-// wParam = 0
-// lParam = PROTOCOLSETTINGEX* of the new situation
-// returns 0
- MS_KS_ANNOUNCESTATUSCHANGE:PAnsiChar = 'KeepStatus/AnnounceStatusChange';
-
-{
-function announce_status_change(szProto:PAnsiChar;newstatus:integer;szMsg:TChar):integer;// cdecl;
-var
- ps:PROTOCOLSETTINGEX;
-begin
- FillChar(ps,SizeOf(PROTOCOLSETTINGEX),0);
- ps.cbSize:=SizeOf(PROTOCOLSETTINGEX);
- if szProto<>NIL then
- ps.lastStatus:=CallProtoService(szProto, PS_GETSTATUS, 0, 0);
- else
- ps.lastStatus:=CallService(MS_CLIST_GETSTATUSMODE, 0, 0);
-
- ps.status:=newstatus;
- ps.szMsg :=szMsg;
- ps.szName:=szProto;
-
- result:=CallService(MS_KS_ANNOUNCESTATUSCHANGE, 0,dword(@ps));
-end;
-}
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_stopspam.inc b/plugins/ExternalAPI/delphi/m_stopspam.inc deleted file mode 100644 index 9644fdc689..0000000000 --- a/plugins/ExternalAPI/delphi/m_stopspam.inc +++ /dev/null @@ -1,41 +0,0 @@ -{
-Miranda NG: the free IM client for Microsoft* Windows*
-
-Copyright (c) 2012-17 Miranda NG project (https://miranda-ng.org),
-Copyright (c) 2004-009 Roman Miklashevsky, A. Petkevich, Kosh&chka, persei
-
-This program is free software; you can redistribute it and/or
-modify it under the terms of the GNU General Public License
-as published by the Free Software Foundation; either version 2
-of the License, or (at your option) any later version.
-
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with this program; if not, write to the Free Software
-Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-}
-
-{$IFNDEF M_STOPSPAM}
-{$DEFINE M_STOPSPAM}
-
-const
- CS_NOTPASSED = 0;
- CS_PASSED = 1;
-
-//check is contact pass the stopspam
-//wParam=(HANDLE)hContact
-//lParam=0
-//returns a "Contact State" flag
- MS_STOPSPAM_CONTACTPASSED:PAnsiChar = 'StopSpam/IsContactPassed';
-
-//remove all temporary contacts from db
-//wParam=0
-//lParam=0
-//returns 0
- MS_STOPSPAM_REMTEMPCONTACTS:PAnsiChar = 'StopSpam/RemoveTempContacts';
-
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_tabsrmm.inc b/plugins/ExternalAPI/delphi/m_tabsrmm.inc deleted file mode 100644 index b07cb6d5bf..0000000000 --- a/plugins/ExternalAPI/delphi/m_tabsrmm.inc +++ /dev/null @@ -1,18 +0,0 @@ -{$IFNDEF M_TABSRMM}
-{$DEFINE M_TABSRMM}
-
-const
-{
- show one of the tray menus
- wParam = 0 -> session list
- wParam = 1 -> tray menu
- lParam must be 0
-}
- MS_TABMSG_TRAYSUPPORT:PAnsiChar = 'SRMsg_MOD/Show_TrayMenu';
-
-{
- the service which processes globally registered hotkeys
-}
- MS_TABMSG_HOTKEYPROCESS:PAnsiChar = 'SRMsg_MOD/ProcessHotkey';
-
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_text.inc b/plugins/ExternalAPI/delphi/m_text.inc deleted file mode 100644 index 11d6a5f0b0..0000000000 --- a/plugins/ExternalAPI/delphi/m_text.inc +++ /dev/null @@ -1,269 +0,0 @@ -{$IFNDEF M_MTEXT}
-{$DEFINE M_MTEXT}
-
-// NEW mtextcontrol interface:
-//
-// obtain the full mtextcontrol interface from the library. it is much faster as use of
-// miranda core CallService to access to mtextcontrol (no core traffic).
-// This interface provides full access to mtextcontrol internal functions,
-// thus enabling devs to fully utilize the mtextcontrol API.
-// All functions will be exported as miranda services for compatibility.
-//
-// the interface is populated during the Load(PLUGINLINK *link) handler, so you can assume it is ready when Miranda
-// throw the ME_SYSTEM_MODULESLOADED event and you can generate a warning in your ModulesLoaded() when
-// it depends on the mtextcontrol interface and the mtextcontrol plugin is missing.
-//
-// example:
-//
-// MTEXT_INTERFACE MText = {0};
-//
-// mir_getMTI(&MText);
-//
-// all interface function designed as old mtextcontrol helper functions.
-// therefore it is easy to convert your old plugin code to new interface.
-//
-// example:
-//
-// old code: MTextCreate (...
-// new code: MText.Create(...
-
-// Text control
-const
- MTEXTCONTROLCLASS = 'MTextControl';
- MTM_SETUSER = WM_USER;
- MTM_UPDATE = WM_USER+1;
-
-type
- TMTEXT_INTERFACE = record
- cbSize:size_t;
- version:dword;
-
- Register :function(const userTitle:PAnsiChar; options:dword):THANDLE; stdcall;
- Create :function(userHandle:THANDLE; text:pointer):THANDLE; stdcall;
- CreateEx :function(userHandle:THANDLE; text:pointer; flags:dword):THANDLE; stdcall;
- Measure :function(dc:HDC; sz:PSIZE; text:THANDLE):int; stdcall;
- Display :function(dc:HDC; pos:TPOINT; sz:TSIZE; text:THANDLE):int; stdcall;
- SetParent :function(text:THANDLE; hwnd:HWND; rect:TRECT):int; stdcall;
- SendMsg :function(hwnd:HWND; text:THANDLE; msg:uint; wParam:WPARAM; lParam:LPARAM):int; stdcall;
- CreateProxy:function(text:THANDLE):HWND; stdcall;
- Destroy :function(text:THANDLE):int; stdcall;
- end;
-
-const
-// get access to the interface
-// wParam = 0
-// lParam = (LPARAM)(MTEXT_INTERFACE*)Mtext
-// dont vorget to set cbSize before call service
- MS_TEXT_GETINTERFACE:PAnsiChar = 'MText/GetInterface';
-(*
-__forceinline INT_PTR mir_getMTI( MTEXT_INTERFACE* dest )
-{
- dest->cbSize = sizeof(*dest);
- INT_PTR result = CallService(MS_TEXT_GETINTERFACE, 0, (LPARAM)dest);
- return result;
-}
-*)
-const
- // visual text options, used in MS_TEXT_REGISTER
- MTEXT_FANCY_SMILEYS = $00000010; // SmileyAdd smileys
- MTEXT_FANCY_BBCODES = $00000020; // [b], [u], [i]
- MTEXT_FANCY_MATHMOD = $00000040; // enable math module formula parsing
- MTEXT_FANCY_URLS = $00000080; // underline urls
- MTEXT_FANCY_BBCODES2 = $00000100; // [color], [img], [url], not implemented yet
- MTEXT_FANCY_SIMPLEFMT = $00000200; // simple formatting ("_", "/" and "*")
- MTEXT_FANCY_MASK = $00007FFF;
- MTEXT_FANCY_DEFAULT = $00008000; // Use default options
-
- // text options, used in MS_TEXT_REGISTER
- MTEXT_SYSTEM_HICONS = $00010000; // [$handle=i<HICON as dword>$]
- MTEXT_SYSTEM_HBITMAPS = $00010000; // [$handle=b<HBITMAP as dword>$], not implemented yet
- MTEXT_SYSTEM_ESCAPED = $00020000; // passed text is escaped with slashes, not implemented yet
- MTEXT_SYSTEM_MASK = $7FFF0000;
- MTEXT_SYSTEM_DEFAULT = $80000000; // Use default option -- just nothing system is used :)
-
- // text object flags
- MTEXT_FLG_CHAR = $00000000;
- MTEXT_FLG_WCHAR = $00000001;
- MTEXT_FLG_BIDI_RTL = $00000002;
-
-// used in MS_TEXT_CREATEEX
-type
- PMTEXTCREATE = ^TMTEXTCREATE;
- TMTEXTCREATE = record
- cbSize :dword;
- hContact:TMCONTACT;
- text :TChar; // this is 'char *' or 'WCHAR *'
- flags :dword;
- end;
-
-// used in MS_TEXT_MEASURE and MS_TEXT_DISPLAY
-type
- PMTEXTDISPLAY = ^TMTEXTDISPLAY;
- TMTEXTDISPLAY = record
- cbSize:dword;
- dc :HDC;
- pos :TPOINT;
- sz :TSIZE;
- text :THANDLE;
- end;
-
-// used in MS_TEXT_SETPARENT
-type
- PMTEXTSETPARENT = ^TMTEXTSETPARENT;
- TMTEXTSETPARENT = record
- text:THANDLE;
- hwnd:HWND;
- rc :TRECT;
- end;
-
-// used in MS_TEXT_SENDMESSAGE
-type
- PMTEXTMESSAGE = ^TMTEXTMESSAGE;
- TMTEXTMESSAGE = record
- hwnd :HWND;
- text :THANDLE;
- msg :uint;
- wParam:WPARAM;
- lParam:LPARAM;
- end;
-
-const
-//---------------------------------------------------------------------------
-// deprecatet service and helper functions
-// replaced by new mtext interface !!!!!!!
-//---------------------------------------------------------------------------
-
-// subscribe to MText services
-// wParam = (WPARAM)(DOWRD)defaultOptions
-// lParam = (LPARAM)(char *)userTitle
-// result = (LRESULT)(HANDLE)userHandle
- MS_TEXT_REGISTER:PAnsiChar = 'MText/Register';
-
-// allocate text object (unicode)
-// wParam = (WPARAM)(HANDLE)userHandle
-// lParam = (LPARAM)(WCHAR *)text
-// result = (LRESULT)(HANDLE)textHandle
- MS_TEXT_CREATEW:PAnsiChar = 'MText/CreateW';
-
-// allocate text object (advanced)
-// wParam = (WPARAM)(HANDLE)userHandle
-// lParam = (LPARAM)(LPMTEXTCREATE)createInfo
-// result = (LRESULT)(HANDLE)textHandle
- MS_TEXT_CREATEEX:PAnsiChar = 'MText/CreateEx';
-
-(*
-__inline HANDLE MTextCreateEx(HANDLE userHandle, HANDLE hContact, void *text, DWORD flags)
-{
- #ifdef __cplusplus
- MTEXTCREATE textCreate;
- #else
- MTEXTCREATE textCreate = {0};
- textCreate.cbSize = sizeof(textCreate);
- #endif
- textCreate.hContact = hContact;
- textCreate.text = text;
- textCreate.flags = flags;
- return (HANDLE)CallService(MS_TEXT_CREATEEX, (WPARAM)userHandle, (LPARAM)&textCreate);
-}
-*)
-
-// measure text object
-// wParam = (LPARAM)(LPMTEXTDISPLAY)displayInfo
-// result = 1 (success), 0 (failure)
-// displayInfo->size.cx is interpreted as maximum width allowed.
-// wrapped text size is stored in displayInfo->size, text
- MS_TEXT_MEASURE:PAnsiChar = 'MText/Measure';
-
-(*
-__inline int MTextMeasure(HDC dc, SIZE *sz, HANDLE text)
-{
- #ifdef __cplusplus
- MTEXTDISPLAY displayInfo;
- #else
- MTEXTDISPLAY displayInfo = {0};
- displayInfo.cbSize = sizeof(displayInfo);
- #endif
- displayInfo.dc = dc;
- displayInfo.pos.x = displayInfo.pos.y = 0;
- displayInfo.sz = *sz;
- displayInfo.text = text;
- int result = (int)CallService(MS_TEXT_MEASURE, (WPARAM)&displayInfo, 0);
- *sz = displayInfo.sz;
- return result;
-}
-*)
-
-// display text object
-// wParam = (LPARAM)(LPMTEXTDISPLAY)displayInfo
-// result = 1 (success), 0 (failure)
- MS_TEXT_DISPLAY:PAnsiChar = 'MText/Display';
-
-(*
-__inline int MTextDisplay(HDC dc, POINT pos, SIZE sz, HANDLE text)
-{
- #ifdef __cplusplus
- MTEXTDISPLAY displayInfo;
- #else
- MTEXTDISPLAY displayInfo = {0};
- displayInfo.cbSize = sizeof(displayInfo);
- #endif
- displayInfo.dc = dc;
- displayInfo.pos = pos;
- displayInfo.sz = sz;
- displayInfo.text = text;
- return (int)CallService(MS_TEXT_DISPLAY, (WPARAM)&displayInfo, 0);
-}
-*)
-
-// set parent window for text object (this is required for mouse handling, etc)
-// wParam = (WPARAM)(LPMTEXTSETPARENT)info
-// result = message result
- MS_TEXT_SETPARENT:PAnsiChar = 'MText/SetParent';
-
-(*
-__inline int MTextSetParent(HANDLE text, HWND hwnd, RECT rect)
-{
- MTEXTSETPARENT info;
- info.text = text;
- info.hwnd = hwnd;
- info.rc = rect;
- return (int)CallService(MS_TEXT_SETPARENT, (WPARAM)&info, 0);
-}
-*)
-
-// send message to an object
-// wParam = (WPARAM)(LPMTEXTMESSAGE)message
-// result = message result
- MS_TEXT_SENDMESSAGE:PAnsiChar = 'MText/SendMessage';
-
-(*
-__inline int MTextSendMessage(HWND hwnd, HANDLE text, UINT msg, WPARAM wParam, LPARAM lParam)
-{
- #ifdef __cplusplus
- MTEXTMESSAGE message;
- #else
- MTEXTMESSAGE message = {0};
- #endif
- message.hwnd = hwnd;
- message.text = text;
- message.msg = msg;
- message.wParam = wParam;
- message.lParam = lParam;
- return (int)CallService(MS_TEXT_SENDMESSAGE, (WPARAM)&message, 0);
-}
-*)
-
-// create a proxy window
-// wParam = (LPARAM)(HANDLE)textHandle
- MS_TEXT_CREATEPROXY:PAnsiChar = 'MText/CreateProxy';
-
-
-// destroy text object
-// wParam = (LPARAM)(HANDLE)textHandle
- MS_TEXT_DESTROY:PAnsiChar = 'MText/Destroy';
-
-
-// MS_TEXT_QDISPLAY :PAnsiChar = 'MText/QDisplay';
-// MS_TEXT_QDISPLAYW:PAnsiChar = 'MText/QDisplayW';
-
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_userinfoex.inc b/plugins/ExternalAPI/delphi/m_userinfoex.inc deleted file mode 100644 index d22f8cd559..0000000000 --- a/plugins/ExternalAPI/delphi/m_userinfoex.inc +++ /dev/null @@ -1,316 +0,0 @@ -{
-Miranda IM: the free IM client for Microsoft* Windows*
-
-Copyright 2000-2006 Miranda ICQ/IM project,
-all portions of this codebase are copyrighted to the people
-listed in contributors.txt.
-
-This program is free software; you can redistribute it and/or
-modify it under the terms of the GNU General Public License
-as published by the Free Software Foundation; either version 2
-of the License, or (at your option) any later version.
-
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with this program; if not, write to the Free Software
-Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-}
-
-{$IFNDEF M_USERINFOEX}
-{$DEFINE M_USERINFOEX}
-
-{*************************************************************
- * Interfaces Module
-}
-
-const MIID_UIUSERINFOEX:MUUID='{9C23A24B-E6AA-43c6-B0B8-D6C36D2F7B57}';
-const MIID_CONTACTINFO :MUUID='{17DBD7C9-450E-4000-BFB4-908A7EF4CE72}';
-const MIID_REMINDER :MUUID='{02E890BD-278D-4890-918D-AB2CF5DC50BD}';
-
-{*************************************************************
- * PropertySheetPage Module
-}
-
-{ UserInfo/AddPage v0.1.0.0+
-If the hIcon member of te optiondialogpage is valid, the tree show it for nicer look.
-Otherwise the default icon is displayed for this treeitem.
-}
-const
-// ODPF_UNICODE = 8; // string fields in OPTIONSDIALOGPAGE are WCHAR*
- ODPF_ICON = 64; // the hIcon member of the option dialog page is valid
-
-{ Handling notifications v0.1.0.4+
-A dialogbox should call SetWindowLongPtr(hDlg, DWL_MSGRESULT, PSP_CHANGED) on a PSN_INFOCHANGED notification if
-there are unsafed changes and apply button should keep enabled. Otherwise the changed status
-of the dialogbox is resetted as well as the changed status of the details dialog box itself if no page
-called this message. Because UserinfoEx now looks for changes in the settings of a user to keep the
-shown inforamtion up to date.
-}
- PSP_CHANGED = 2;
- PSN_ICONCHANGED = 2000;
-
-{ PSM_GETBOLDFONT v0.1.0.3+
-wParam=NULL
-lParam=(HFONT*)&hFont
-get bold dialog font. wParam is pointer to a handle that retrieves the boldfont.
-You can also call GetWindowLong(hDlg, DWL_MSGRESULT) to get the font.
-This function returns TRUE on success or FALSE otherwise.
-}
-//!! PSM_GETBOLDFONT = WM_USER+102; //defined in m_options.inc
-
-{ PSM_ISLOCKED v0.1.0.4+
-Returns state of propertysheet. If it is locked, The PSM_CHANGED messages sent by a propertysheetpage does not
-have any effect. To aVOID editcontrols, ... to check for changes on redrawing at a load of settings from database or
-if another propertysheetpage is selected, a plugin should check this state and skip those checks to reduce stressing
-the database if such a test if control's content changed does so.
-wParam=NULL
-lParam=NULL
-You can also call GetWindowLong(hDlg, DWL_MSGRESULT) to get the handle.
-This function returns TRUE if the PropertySheet is locked or FALSE otherwise.
-
-Example:
-__inline BOOLEAN PspIsLocked(HWND hPsp)
-
- HWND hPs = GetParent(hPsp);
- return ((BOOLEAN)SendMessage((hPs), PSM_ISLOCKED, 0, 0) || GetWindowLongPtr((hPs), DWL_MSGRESULT) != 0);
-}
- PSM_ISLOCKED = WM_USER+901;
-
-{ PSM_GETCONTACT v0.1.0.4+
-You can get the handle to the contact the propertysheet is associated with by calling PSM_GETCONTACT
-to the parent of your propertysheetpage - the propertysheet.
-wParam=NULL
-lParam=(HANDLE*)&hContact
-You can also call GetWindowLong(hDlg, DWL_MSGRESULT) to get the handle.
-This function returns TRUE on success or FALSE otherwise.
-}
- PSM_GETCONTACT = WM_USER+903;
-
-{ PSM_GETBASEPROTO v0.1.0.4+
-You can get a pointer to the basic protocol module by sending PSM_GETBASEPROTO to the parent of your propertysheetpage.
-wParam=NULL
-lParam=(LPCSTR*)&szBaseProto
-The propertysheet loads the basic contact protocol on creation for a better handling
-of owners (ICQ) protocol used for changing details on the server. Should also reduce database traffic.
-You can also call GetWindowLong(hDlg, DWL_MSGRESULT) to get the protocol.
-This function returns TRUE on success or FALSE otherwise.
-}
- PSM_GETBASEPROTO = WM_USER+905;
-
- INDEX_CURPAGE = -1;
-
-{ PSM_GETPAGEHWND v0.1.1.1+
-retrieve the windowhandle for a propertysheetpage identified by its id
-wParam=idDlg
-lParam=hInstance
-}
- PSM_GETPAGEHWND = WM_USER+906;
-
-{ PSM_DLGMESSAGE v0.1.1.1+
-Send a message to a specified propertypage of the details dialog.
-This enables communication between propertypages without the need to know
-the window handles of each page.
-}
-type
- PDLGCOMMAND = ^TDLGCOMMAND;
- TDLGCOMMAND = record
- hInst :HINST;
- idDlg :word;
- idDlgItem:word;
- uMsg :uint;
- wParam :WPARAM;
- lParam :LPARAM;
- end;
-
-const
- PSM_DLGMESSAGE = WM_USER+907;
-
-(* PSM_ISAEROMODE v0.8.2.1+
-This message can be sent to the propertysheet (details dialog) to examine,
-whether the aero adaption mode is enabled or not. This message should be used in
-each propertysheet page's dialog procedure as follows:
-
- ...
- switch (msg) {
- ...
- case WM_CTLCOLORSTATIC:
- case WM_CTLCOLORDLG:
- if (PSIsAeroMode(hDlg))
- return (INT_PTR)GetStockBrush(WHITE_BRUSH);
- break;
- ...
-
-This will draw a propertysheet page with white background, if aero adaption is enabled.
-wParam=not used
-lParam=pointer to boolean bIsAero
-*)
- PSM_ISAEROMODE = (WM_USER+908);
-
-{*************************************************************
- * vCard Module
-}
-
-// UserInfo/vCardExport v0.1.0.4+
-
- MS_USERINFO_VCARD_IMPORT:PAnsiChar = 'UserInfo/vCard/Import';
-
- MS_USERINFO_VCARD_IMPORTALL:PAnsiChar = 'UserInfo/vCard/ImportAll';
-
-// UserInfo/vCardImport v0.1.0.4+
-
- MS_USERINFO_VCARD_EXPORT:PAnsiChar = 'UserInfo/vCard/Export';
-
-// UserInfo/vCardImport v0.1.0.4+
-
- MS_USERINFO_VCARD_EXPORTALL:PAnsiChar = 'UserInfo/vCard/ExportAll';
-
-{*************************************************************
- * time Module
-}
-
-{ UserInfo/LocalTime v0.1.0.3+
-Computes the local time for the desired contact and writes it to lpst.
-wParam=(WPARAM)hContact
-lParam=(LPSYSTEMTIME)lpst
-The service gets your windows box's local time, reads your timezoneinformation (Windows setting)
-and hContact's timezone from his user details. With these information contact's local time is computed
-considering daylightsaving time.
-Return values are TRUE for success and FALSE if anything went wrong.
-}
- MS_USERINFO_LOCALTIME:PAnsiChar = 'UserInfo/LocalTime';
-
-{ UserInfo/LocalTime v0.7.0.1+
-This service provides the timezone information for a given contact
-as known by windows, too. All but the DaylightName and StandardName members
-of the class are filled out and can be used. The values are read
-from the windows registry and therefore keep up to date if the latest
-windows hotfixes are installed. There is no default API in the windows SDK
-to solve this problem.
-wParam=(WPARAM)hContact
-lParam=(TIME_ZONE_INFORMATION*)tzi
-Return values are 0 for success and 1 if no valid timezone is set for the contact.
-}
- MS_USERINFO_TIMEZONEINFO:PAnsiChar = 'UserInfo/TimezoneInfo';
-
-{*************************************************************
- * Reminder module
-}
-
-{ UserInfo/Reminder/Check v0.1.0.4+
-This service checks if one of your contacts has birthday in the next few days
-wParam = lParam = not used
-}
- MS_USERINFO_REMINDER_CHECK:PAnsiChar = 'UserInfo/Reminder/Check';
-
-{ UserInfo/Reminder/Check v0.1.1.1+
-This service creates a dialog, that lists all of the anniversaries
-wParam = lParam = not used
-}
- MS_USERINFO_REMINDER_LIST:PAnsiChar = 'UserInfo/Reminder/List';
-
-
-{ UserInfo/Reminder/Check v0.1.2.16+
-This service compares birthday date which is set by the protocol module of each contact
-to the first found custom set birthday date. If a difference is detected, the user is asked
-whether to update the custom set birthday by the one of the protocol or not.
-
-If no custom birthday is set yet and the protocol contains a valid birthday, it is copied to
-primary custom module (e.g.: mBirthday or UserInfo).
-wParam = handle to single contact or NULL to backup all
-lParam = not used
-}
- MS_USERINFO_REMINDER_AGGRASIVEBACKUP:PAnsiChar = 'UserInfo/Reminder/AggrassiveBackup';
-
-{ UserInfo/Refresh v0.7.0.1+
-This service calls PSS_GETINFO for all contacts in the contact list
-wParam = not used
-lParam = not used
-}
- MS_USERINFO_REFRESH:PAnsiChar = 'UserInfo/Refresh';
-
-{*************************************************************
- * Uinfobuttonclass module
-}
-
-// button styles
- MBS_DEFBUTTON = $00001000; // default button
- MBS_PUSHBUTTON = $00002000; // toggle button
- MBS_FLAT = $00004000; // flat button
- MBS_DOWNARROW = $00008000; // has arrow on the right
-
- MBBF_UNICODE = 1;
-// BUTTONADDTOOLTIP
-// use lParam=MBBF_UNICODE to set unicode tooltips
-// for lParam=0 the string is interpreted as ansi
-
-// message to explicitly translate the buttons text,
-// as it is not done by default translation routine
-// wParam=lParam=NULL
- BUTTONTRANSLATE = WM_USER+6;
-
-{ UserInfo/MsgBox v0.1.0.4+
-Slightly modified version of MButtonClass, to draw both text and icon in a button control
-}
- UINFOBUTTONCLASS = 'UInfoButtonClass';
-
-{*************************************************************
- * contact info module
-}
-
-// additional information which can be retrieved with this service
- CNF_COPHONE = 55; // returns company phone (string)
- CNF_COFAX = 40; // returns company fax (string)
- CNF_COCELLULAR = 41; // returns company cellular (string)
- CNF_COEMAIL = 42; // returns company email address (string)
-
-{ CNF_BIRTHDATE v0.1.2.18+
-returns a formated string with the birthdate in it
-wParam - 1 for long dateformat, 0 for short dateformat
-lParam - CONTACTINFO structure as for all other fields, too
-returns 0 on success and 1 on failure
-}
- CNF_BIRTHDATE = 43; // returns date of birth (string)
-
-{*************************************************************
- * extended integration module
-}
-
-{ UserInfo/Homepage/OpenURL v0.1.2.19+
-This service reads the contact's homepage from UserInfo module or contact's protocol module
-and opens the default browser to show it.
-wParam=hContact - handle to contact whose homepage is to show
-lParam=not used
-}
- MS_USERINFO_HOMEPAGE_OPENURL:PAnsiChar = 'UserInfo/Homepage/OpenURL';
-
-
-{*************************************************************
- * extended database module
- *}
-
-{ DB/Contact/GetSettingStrEx v0.7.0.1+
-This service function reads a database setting from USERINFO module.
-If the setting does not exist, it is looked up in 'pszProto'.
-If 'hContact' points to a MetaContact, the setting is recursivly
-searched in all sub contacts, too, starting with the default contact,
-if the MetaContact does not directly provide the setting.
-This service can directly replace the default MS_DB_CONTACT_GETSETTING_STR
-for reading contact information from the database.
-There will be no difference for the user but the possible source of information.
-
-This service can be used to retrieve all kinds of settings!
-Some versions of the default MS_DB_CONTACT_GETSETTING_STR service return
-an error for byte, word and dword values if cgs.pValue->type is not 0.
-
-wParam = (WPARAM)(HANDLE)hContact
-lParam = (LPARAM)(DBCONTACTGETSETTING*)&cgs
-
-This service returns one of the results of MS_DB_CONTACT_GETSETTING_STR!
-}
- MS_DB_CONTACT_GETSETTING_STR_EX:PAnsiChar = 'DB/Contact/GetSettingStrEx';
-
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_versioninfo.inc b/plugins/ExternalAPI/delphi/m_versioninfo.inc deleted file mode 100644 index 02aa22df49..0000000000 --- a/plugins/ExternalAPI/delphi/m_versioninfo.inc +++ /dev/null @@ -1,49 +0,0 @@ -{
-Version information plugin for Miranda IM
-
-Copyright © 2002-2006 Luca Santarelli, Cristian Libotean
-
-This program is free software; you can redistribute it and/or
-modify it under the terms of the GNU General Public License
-as published by the Free Software Foundation; either version 2
-of the License, or (at your option) any later version.
-
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with this program; if not, write to the Free Software
-Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-}
-
-{$IFNDEF M_VERSIONINFO}
-{$DEFINE M_VERSIONINFO}
-
-const
-{
- Brings up the versioninfo post as configured in the options
- wParam - not used
- lParam - not used
-}
- MS_VERSIONINFO_MENU_COMMAND:PAnsiChar = 'VersionInfo/MenuCommand';
-
-{
- Returns a string containing the versioninfo post
- wParam - (bool) suppress forum style formatting. If true the post won't have forum
- style formatting even if the option is checked in miranda's options.
- lParam - (^PAnsiChar) Pointer to a string that receives the info. Memory is allocated
- using miranda's version of malloc() and you need to use miranda's version
- of free() on it.
- Returns 0 on success.
-
-how to use:
-//...
- data:PAnsiChar;
- if GetInfoService(TRUE,LPARAM(@data))=0 then
- //success
-}
- MS_VERSIONINFO_GETINFO:PAnsiChar = 'Versioninfo/GetInfo';
-
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_weather.inc b/plugins/ExternalAPI/delphi/m_weather.inc deleted file mode 100644 index a3049a5d82..0000000000 --- a/plugins/ExternalAPI/delphi/m_weather.inc +++ /dev/null @@ -1,163 +0,0 @@ -{
-Weather Protocol plugin for Miranda IM
-Copyright (C) 2005-2009 Boris Krasnovskiy All Rights Reserved
-Copyright (C) 2002-2005 Calvin Che
-
-This program is free software; you can redistribute it and/or
-modify it under the terms of the GNU General Public License
-as published by the Free Software Foundation; version 2
-of the License.
-
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with this program. If not, see <http://www.gnu.org/licenses/>.
-}
-
-{$IFNDEF M_WEATHER}
-{$DEFINE M_WEATHER}
-
-// {6B612A34-DCF2-4e32-85CF-B6FD006B745E}
-const MIID_WEATHER:TGUID = '{6B612A34-DCF2-4E32-85CF-B6FD006B745E}';
-
-//============ CONSTANTS ============
-const
-// name
- WEATHERPROTONAME = 'Weather';
- WEATHERPROTOTEXT = 'Weather';
- DEFCURRENTWEATHER = 'WeatherCondition';
- WEATHERCONDITION = 'Current';
-
-// weather conditions
- SUNNY = ID_STATUS_ONLINE;
- NA = ID_STATUS_OFFLINE;
- PCLOUDY = ID_STATUS_AWAY;
- CLOUDY = ID_STATUS_NA;
- RAIN = ID_STATUS_OCCUPIED;
- RSHOWER = ID_STATUS_DND;
- SNOW = ID_STATUS_FREECHAT;
- LIGHT = ID_STATUS_INVISIBLE;
- THUNDER = ID_STATUS_INVISIBLE;
- SSHOWER = ID_STATUS_ONTHEPHONE;
- FOG = ID_STATUS_OUTTOLUNCH;
- UNAVAIL = ID_STATUS_IDLE;
-
-
-//============ WEATHER CONDITION STRUCT ============
-
-// weather conditions (added in v0.1.2.0)
-type
- PWEATHERINFO = ^TWEATHERINFO;
- TWEATHERINFO = record
- hContact:TMCONTACT;
- id :array [0..127] of WideChar;
- city :array [0..127] of WideChar;
- update :array [0.. 63] of WideChar;
- cond :array [0..127] of WideChar;
- temp :array [0.. 15] of WideChar;
- low :array [0.. 15] of WideChar;
- high :array [0.. 15] of WideChar;
- feel :array [0.. 15] of WideChar;
- wind :array [0.. 15] of WideChar;
- winddir :array [0.. 63] of WideChar;
- dewpoint:array [0.. 15] of WideChar;
- pressure:array [0.. 15] of WideChar;
- humid :array [0.. 15] of WideChar;
- vis :array [0.. 15] of WideChar;
- sunrise :array [0.. 31] of WideChar;
- sunset :array [0.. 31] of WideChar;
-// are the other ones that important!?
- status:word;
- end;
-
-
-const
-// =============== WEATHER SERVICES ================
-
-// Enable or disable weather protocol.
-// WPARAM = FALSE to toggle, TRUE to use the LPARAM
-// LPARAM = TRUE to enable, FALSE to disable
- MS_WEATHER_ENABLED:PAnsiChar = 'Weather/EnableDisable';
-
-// Update all weather info
-// WPARAM = LPARAM = NULL
- MS_WEATHER_UPDATEALL:PAnsiChar = 'Weather/UpdateAll';
-
-// Update all weather info + erase the old ones
-// WPARAM = LPARAM = NULL
- MS_WEATHER_REFRESHALL:PAnsiChar = 'Weather/RefreshAll';
-
-// Below are the service functions for weather contacts
-// The plugin does NOT verify that they are used in weather contact,
-// so bad call on these function may cause crashes.
-
-// Update a single station
-// WPARAM = (HANDLE)hContact
-// LPARAM = NULL
- MS_WEATHER_UPDATE:PAnsiChar = 'Weather/Update';
-
-// Update a single station + delete old settings
-// WPARAM = (HANDLE)hContact
-// LPARAM = NULL
- MS_WEATHER_REFRESH:PAnsiChar = 'Weather/Refresh';
-
-// View the brief info of a contact
-// WPARAM = (HANDLE)hContact
-// LPARAM = NULL
- MS_WEATHER_BRIEF:PAnsiChar = 'Weather/Brief';
-
-// Use default browser to open the complete forecast on web
-// WPARAM = (HANDLE)hContact
-// LPARAM = NULL
- MS_WEATHER_COMPLETE:PAnsiChar = 'Weather/CompleteForecast';
-
-// Use default browser to open the weather map defined for the contact
-// WPARAM = (HANDLE)hContact
-// LPARAM = NULL
- MS_WEATHER_MAP:PAnsiChar = 'Weather/Map';
-
-// Open the external log of the weather contact
-// WPARAM = (HANDLE)hContact
-// LPARAM = NULL
- MS_WEATHER_LOG:PAnsiChar = 'Weather/Log';
-
-// Edit weather contact setting
-// WPARAM = (HANDLE)hContact
-// LPARAM = NULL
- MS_WEATHER_EDIT:PAnsiChar = 'Weather/Edit';
-
-// parse the string to turn it to weather display
-// WPARAM = (WEATHERINFO*)hContact
-// LPARAM = (char*)display_str
- MS_WEATHER_GETDISPLAY:PAnsiChar = 'Weather/GetDisplay';
-
-// =============== WEATHER EVENTS ================
-
-{
-HANDLE hContact = (HANDLE)wParam;
-bool Condition_Changed = (bool)lParam;
-
-hContact is the handle of updated contact
-If the weather condition is differ from the last update (either temperature/condition,
-or the last update time, depend what the user choose in the options), then
-Condition_Changed is true; otherwise is false.
-}
- ME_WEATHER_UPDATED:PAnsiChar = 'Miranda/Weather/Updated';
-
-{
-Shows a warning message for Weather PopUp.
-wParam = (char*) lpzMessage
-lParam = Type
-Type can either be SM_WARNING, SM_NOTIFY, or SM_WEATHERALERT
-
-This event is used to avoid the error popup to occurs within a thread, so the "Use
-multiply thread" fuction don't have to be enabled for weather popups to work.
-}
- SM_WEATHERALERT = 16;
- ME_WEATHER_ERROR:PAnsiChar = 'Miranda/Weather/Error';
-
-
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_winterspeak.inc b/plugins/ExternalAPI/delphi/m_winterspeak.inc deleted file mode 100644 index 597b423c21..0000000000 --- a/plugins/ExternalAPI/delphi/m_winterspeak.inc +++ /dev/null @@ -1,12 +0,0 @@ -{
-}
-const
-{
- wParam - contact Handle
- lParam - Unicode text
- Notes: difference of services is for "ignore" checks, status or messages
- offline contacts don't processes (use hCantact = 0 instead)
- if English voice choosen, it can't process non-English texts (silence on Russian, for example)
-}
- MS_SPEAK_STATUS :PAnsiChar = 'Speak/Status';
- MS_SPEAK_MESSAGE:PAnsiChar = 'Speak/Message';
diff --git a/plugins/ExternalAPI/delphi/m_yamn.inc b/plugins/ExternalAPI/delphi/m_yamn.inc deleted file mode 100644 index 7ecaa5ae25..0000000000 --- a/plugins/ExternalAPI/delphi/m_yamn.inc +++ /dev/null @@ -1,151 +0,0 @@ -{$IFNDEF M_YAMN}
-{$DEFINE M_YAMN}
-
-//
-//================================== VARIABLES STRUCT ========================================
-//
-
-const
- YAMN_VARIABLESVERSION = 3;
-
-type
- PYAMN_VARIABLES = ^TYAMN_VARIABLES;
- TYAMN_VARIABLES = record
- hInst :HINST;
- MessageWnds :THANDLE;
- NewMailAccountWnd:THANDLE;
- Shutdown :int;
- end;
- CYAMNVariables = TYAMN_VARIABLES;
-
-//
-//================================== EXPORTED FUNCTIONS STRUCT ===============================
-//
-type
- CExportedFunctions = record
- ID :PAnsiChar;
- Ptr:pointer;
- end;
-
-type
- CExportedServices = record
- ID :PAnsiChar;
- Ptr:TMIRANDASERVICE;
- end;
-
-//
-//================================== YAMN EVENTS ==================================
-//
-
-const
-//UninstallPlugin Event
-//Sent when user wants to uninstall YAMN and all its plugins
- ME_YAMN_UNINSTALLPLUGINS:PAnsiChar = 'YAMN/MirandaEvents/UninstallPlugins';
-
-//NewMail Event
-//Notifies you about new mail
-//no arguments now (Developers, send mail, which params would you like to have, but note there's problem that
-//params are 32b numbers. When it is pointer to some data, these data should persist while every plugin read them and
-//after that they can be removed from memory. So it is problem)
- ME_YAMN_NEWMAIL:PAnsiChar = 'YAMN/MirandaEvents/NewMail';
-
-//
-//================================== YAMN SERVICES ==================================
-//
-
-//GetFcnPtr Service
-//Your plugin can co-operate with YAMN in 2 ways: with Miranda services and with YAMN exported functions
-//Some commands are written in services, some are functions. The advantage of function calling instead of
-//service calling is, that your code is more clear and it is faster than service calling (smaller, FASTER,
-//easier- it is slogan of Miranda, isn't it ?). Miranda service has only 2 parameters, that can be
-//disadvantage too.
-//In every way, it is discutable which functions should be exported or if they should be implemented as
-//services. And if YAMN should export some functions etc. Functions not used very often are now implemented
-//as Miranda services.
-//
-//This service gets pointer to YAMN function. Then you can use function directly. In m_?????.h files you have
-//definitions of some functions, with definitions of structure variable, so you can use functions very
-//clearly, just look to header file.
-//WPARAM- function ID. It is string representating function you need to get pointer (e.g. YAMN_WRITEWAITID)
-//LPARAM- not used now, but set it to 0
-//returns pointer to YAMN function or NULL when functions does not exist
- MS_YAMN_GETFCNPTR:PAnsiChar = 'YAMN/Service/GetFcn';
-
-//GetVariables Service
-//Ask YAMN for pointer to CYAMNVariables structure.
-//WPARAM- YAMN_VARIABLESVERSION
-//LPARAM- any value
-//returns pointer to YAMN_VARIABLES or NULL when version of structure does not match
- MS_YAMN_GETVARIABLES:PAnsiChar = 'YAMN/Service/GetVar';
-
-//ForceCheck Service
-//Check mail on accounts
-//WPARAM- not used
-//LPARAM- not used
- MS_YAMN_FORCECHECK:PAnsiChar = 'YAMN/Service/ForceCheck';
-
-//AccountCheck Service
-//Check mail on individual account
-//WPARAM- HACCOUNT
-//LPARAM- not used
- MS_YAMN_ACCOUNTCHECK:PAnsiChar = 'YAMN/Service/AccountCheck';
-
-//Contact List Context Menu Click
-//wParam=(WPARAM)hContact
-//lParam=0
-//
-//Event is fired when there is a double click on a CList contact,
-//it is upto the caller to check for the protocol & status
-//of the TMCONTACT, it's not done for you anymore since it didn't make
-//sense to store all this information in memory, etc.
- MS_YAMN_CLISTCONTEXT:PAnsiChar = 'YAMN/Service/ClistContactContextMenu';
-
-//Contact List Context Menu Click for application
-//wParam=(WPARAM)hContact
-//lParam=0
-//
-//Event is fired when there is a double click on a CList contact,
-//it is upto the caller to check for the protocol & status
-//of the TMCONTACT, it's not done for you anymore since it didn't make
-//sense to store all this information in memory, etc.
- MS_YAMN_CLISTCONTEXTAPP:PAnsiChar = 'YAMN/Service/ClistContactContextMenuApp';
-
-//Contact List Double Click
-//wParam=(WPARAM)hContact
-//lParam=0
-//
-//Event is fired when there is a double click on a CList contact,
-//it is upto the caller to check for the protocol & status
-//of the TMCONTACT, it's not done for you anymore since it didn't make
-//sense to store all this information in memory, etc.
- MS_YAMN_CLISTDBLCLICK:PAnsiChar = 'YAMN/Service/ClistContactDoubleclicked';
-
-//FilterMail Service
-//Ask YAMN to process mail filtering. YAMN calls filter plugins to mark mail as spam etc... Warning! Leave all
-//read or write access to mail as this function waits for write-access to mail!
-//WPARAM- (HACCOUNT) account to which mail belongs
-//LPARAM- (HYAMNMAIL) mail to filter
- MS_YAMN_FILTERMAIL:PAnsiChar = 'YAMN/Service/FilterMail';
-
-//MailBrowser Service
-//runs mail browser window (or tray icon only or popups only)
-//WPARAM- pointer to YAMN_MAILBROWSERPARAM structure, data to mailbrowser. You do not need to fill ThreadRunningEV event member.
-//LPARAM- YAMN_MAILBROWSERPARAM structure version param. Use YAMN_MAILBROWSERVERSION definition.
-//returns zero if failed, nonzero if succeed
- MS_YAMN_MAILBROWSER:PAnsiChar = 'YAMN/Service/RunMailBrowser';
-
-//NoNewMail Service
-//runs no new mail procedure (shows popups e.g.)
-//WPARAM- pointer to YAMN_NONEWMAILPARAM structure, data to no new mail procedure. You do not need to fill ThreadRunningEV event member.
-//LPARAM- YAMN_NONEWMAILPARAM structure version param. Use YAMN_NONEWMAILVERSION definition.
-//returns zero if failed, nonzero if succeed
- MS_YAMN_NONEWMAILPROC:PAnsiChar = 'YAMN/Service/NoNewMailProc';
-
-//BadConnection Service
-//runs bad connection window
-//WPARAM- pointer to YAMN_BADCONNECTIONPARAM structure, data to mailbrowser. You do not need to fill ThreadRunningEV event member.
-//LPARAM- YAMN_BADCONNECTIONPARAM structure version param. Use YAMN_BADCONNECTIONVERSION definition.
-//returns zero if failed, nonzero if succeed
- MS_YAMN_BADCONNECTION:PAnsiChar = 'YAMN/Service/BadConnection';
-
-{$ENDIF}
diff --git a/plugins/ExternalAPI/delphi/m_yapp.inc b/plugins/ExternalAPI/delphi/m_yapp.inc deleted file mode 100644 index cd5652fb71..0000000000 --- a/plugins/ExternalAPI/delphi/m_yapp.inc +++ /dev/null @@ -1,86 +0,0 @@ -{$IFNDEF M_YAPP}
-{$DEFINE M_YAPP}
-
-////////////////////////////////////////////////
-// YAPP API
-///////////////////////////////////////////////
-
-type
- TPopupData = record
- cbSize :int;
- flags :int; // OR of PDF_* flags below
- hContact :THANDLE;
- hIcon :HICON;
- szTitle :TChar;
- szText :TChar;
- colorBack :COLORREF; // if colorBack and colorText are equal, defaults will be used
- colorText :COLORREF;
- windowProc:TWNDPROC; // optional custom window procedure
- timeout :int; // -1 == infinite, 0 == default, otherwise timeout in seconds
- opaque :pointer;
- end;
-
-const
- PDF_UNICODE = $0001;
-
-// windowProc messages
- PM_INIT = WM_USER+$0202; // message sent to your windowProc after the window has been initialized
- PM_DIENOTIFY = WM_USER+$0200; // message sent to your windowProc just before the window is destroyed (can be used e.g. to free your opaque data)
- PM_DESTROY = WM_USER+$0201; // send to the popup hWnd (use PostMessage generally, or SendMessage inside your windowProc) to kill it
-
-// Show a popup
-//wParam = &PopupData
-//lParam = 0
-// returns -1 if popups disabled
- MS_YAPP_SHOWPOPUP:PAnsiChar = 'YAPP/ShowPopup';
-
-// get hContact from PopupData
-// wParam = hWnd
-// lParam = 0
-// return hContact
- MS_YAPP_GETCONTACT:PAnsiChar = 'YAPP/GetContact';
-
-// get opaque from PopupData
-// wParam = hWnd
-// lParam = 0
-// returns opaque
- MS_YAPP_GETOPAQUE:PAnsiChar = 'YAPP/GetOpaque';
-
-//------------- Class API ----------------//
-
-type
- TPopupClass = record
- cbSize :int;
- flags :int;
- pszName :PAnsiChar;
- szDescription:TChar;
- hIcon :HICON;
- colorBack :COLORREF;
- colorText :COLORREF;
- windowProc :TWNDPROC;
- timeout :int;
- end;
-
-const
- PCF_UNICODE = $0001;
-
-// wParam = 0
-// lParam = (POPUPCLASS *)&pc
- MS_POPUP_REGISTERCLASS:PAnsiChar = 'PopUp/RegisterClass';
-
-type
- TPopupClassInstance = record
- cbSize :int;
- pszClassName:PAnsiChar;
- szTitle :TChar;
- szText :TChar;
- opaque :pointer;
- hContact :THANDLE;
- end;
-
-const
-// wParam = 0
-// lParam = (POPUPDATACLASS *)&pdc
- MS_POPUP_ADDPOPUPCLASS:PAnsiChar = 'PopUp/AddPopupClass';
-
-{$ENDIF}
|