diff options
| author | Alexey Kulakov <panda75@bk.ru> | 2012-06-29 06:56:07 +0000 |
|---|---|---|
| committer | Alexey Kulakov <panda75@bk.ru> | 2012-06-29 06:56:07 +0000 |
| commit | a2795725f5afc756a405a85c192bdd53b967999d (patch) | |
| tree | 08548adc194d0c2a960120a342bac02208c3e23f /plugins/Pascal_Headers/m_errors.inc | |
| parent | af7e438cfe8ce85e1da234318ed1584e89d952cc (diff) | |
Added my Miranda API pascal version
Changed ShlExt to my API compilation (32 bit FPC now only)
git-svn-id: http://svn.miranda-ng.org/main/trunk@679 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'plugins/Pascal_Headers/m_errors.inc')
| -rw-r--r-- | plugins/Pascal_Headers/m_errors.inc | 123 |
1 files changed, 123 insertions, 0 deletions
diff --git a/plugins/Pascal_Headers/m_errors.inc b/plugins/Pascal_Headers/m_errors.inc new file mode 100644 index 0000000000..af9579ebe2 --- /dev/null +++ b/plugins/Pascal_Headers/m_errors.inc @@ -0,0 +1,123 @@ +{
+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_ERRORS}
+{$DEFINE M_ERRORS}
+
+const
+ MERR_UNICODE = $01;
+ MERR_DEFAULT_INFO = $02;
+ MERR_DEFAULT_WARNING = $04;
+ MERR_DEFAULT_ERROR = $08;
+ MERR_DEFAULT_ALL = $0E;
+
+ MERR_TCHAR = MERR_UNICODE;
+
+// Error notifications are sorted according to this level
+ MERR_LEVEL_INFO = 1;
+ MERR_LEVEL_WARNING = 2;
+ MERR_LEVEL_ERROR = 3;
+
+// Predefined error types (no need to call MS_ERROR_REGISTER)
+ MERR_TYPE_INFO :pAnsiChar = 'Core/Info';
+ MERR_TYPE_SRV_INFO :pAnsiChar = 'Core/SrvInfo';
+ MERR_TYPE_WARNING :pAnsiChar = 'Core/Warning';
+ MERR_TYPE_SRV_WARNING:pAnsiChar = 'Core/SrvWarning';
+ MERR_TYPE_SRV_ERROR :pAnsiChar = 'Core/SrvError';
+ MERR_TYPE_NETWORK :pAnsiChar = 'Core/Network';
+ MERR_TYPE_LOGIN :pAnsiChar = 'Core/Login';
+
+// Specify set of buttons to make query box
+ MERR_BTN_NONE = 0;
+ MERR_BTN_YESNO = 1;
+ MERR_BTN_YESNOCANCEL = 2;
+ MERR_BTN_ABORTRETRYIGNORE = 4;
+
+// General-purpose error definition
+type
+ PMIRANDAERROR_TYPE = ^MIRANDAERROR_TYPE;
+ MIRANDAERROR_TYPE = record
+ cbSize :int;
+ flags :dword;
+ level :int;
+ name :PAnsiChar;
+ szTitle:TChar;
+ end;
+
+// General-purpose error definition
+type
+ MIRANDAERROR = record
+ cbSize :int;
+ flags :dword;
+ _type :pAnsiChar;
+ szModuleTitle :TCHAR;
+
+ buttons :int;
+ btnDefault :int;
+ pszQueryName :PAnsiChar; // to save answer in DB
+ pszSvcCallback:PAnsiChar;
+ lParam :LPARAM;
+
+ // information itself
+ hContact :THANDLE;
+ szTitle :TCHAR;
+ szText :TCHAR;
+
+ // filled by core and may be used in handlers.
+ typeInfo :PMIRANDAERROR_TYPE;
+ dwTimestamp :dword;
+ end;
+
+// Information about particular error handler for options UI
+type
+ MIRANDAERROR_HANDLER = record
+ cbSize :int;
+ flags :dword;
+ pszDbModule:PAnsiChar;
+
+ hIcolibIcon:THANDLE;
+ szTitle :TCHAR;
+ end;
+
+const
+ MS_ERROR_REGISTER :PAnsiChar = 'Errors/Register';
+ MS_ERROR_ADDHANDLER:PAnsiChar = 'Errors/AddHandler';
+ MS_ERROR_PROCESS :PAnsiChar = 'Errors/Process';
+ ME_ERROR_ONPROCESS :PAnsiChar = 'Errors/OnProcess';
+
+(*
+ static __forceinline void mir_ReportError(HANDLE hContact, TCHAR *ptszModuleTitle,
+ char *pszType, TCHAR *ptszText, TCHAR *ptszTitle DEFVAL(NULL))
+ {
+ MIRANDAERROR err = {0};
+ err.cbSize = sizeof(err);
+ err.flags = MERR_TCHAR;
+ err.type = pszType;
+ err.ptszModuleTitle = ptszModuleTitle;
+ err.hContact = hContact;
+ err.ptszText = ptszText;
+ err.ptszTitle = ptszTitle;
+ CallServiceSync(MS_ERROR_PROCESS, 0, (LPARAM)&err);
+ }
+*)
+
+{$ENDIF}
|