diff options
Diffstat (limited to 'plugins/ExternalAPI/delphi/m_statusplugins.inc')
| -rw-r--r-- | plugins/ExternalAPI/delphi/m_statusplugins.inc | 182 |
1 files changed, 0 insertions, 182 deletions
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}
|