diff options
| author | Alexey Kulakov <panda75@bk.ru> | 2014-03-08 13:10:05 +0000 |
|---|---|---|
| committer | Alexey Kulakov <panda75@bk.ru> | 2014-03-08 13:10:05 +0000 |
| commit | d83baeb842ea828eaee90a0cd6575872a95240e8 (patch) | |
| tree | 8d775bb8920446118011093658caf7d9c0d61ed4 /include/delphi/deprecated | |
| parent | 0da38f608c271216398052dc0030b901951143ec (diff) | |
Pascal-style type correction
Letter case correction
small fixes
Actman UA part dialog slightly changed
git-svn-id: http://svn.miranda-ng.org/main/trunk@8473 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'include/delphi/deprecated')
| -rw-r--r-- | include/delphi/deprecated/m_errors.inc | 123 |
1 files changed, 123 insertions, 0 deletions
diff --git a/include/delphi/deprecated/m_errors.inc b/include/delphi/deprecated/m_errors.inc new file mode 100644 index 0000000000..af9579ebe2 --- /dev/null +++ b/include/delphi/deprecated/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}
|