only add some plugins and protocols, not adapted

See please maybe not all need us

git-svn-id: http://svn.miranda-ng.org/main/trunk@678 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 222 insertions, 0 deletions

diff --git a/plugins/ShlExt/inc/m_popup.inc b/plugins/ShlExt/inc/m_popup.inc
new file mode 100644
index 0000000000..f8d2ea9df9
--- /dev/null
+++ b/plugins/ShlExt/inc/m_popup.inc
@@ -0,0 +1,222 @@
+(*

+===============================================================================

+                                PopUp plugin

+Plugin Name: PopUp

+Plugin author: hrk, Luca Santarelli, hrk@users.sourceforge.net

+This file has been created by egodust, Sam, egodust@users.sourceforge.net

+===============================================================================

+

+The purpose of this plugin is to give developers a common "platform/interface" to show PopUps. It is born from the source code of NewStatusNotify, another plugin I've made.

+

+Remember that users *must* have this plugin enabled, or they won't get any popup. Write this in the requirements, do whatever you wish ;-)... but tell them!

+===============================================================================

+

+-- To use this file you need Windows.pas, m_globaldefs.pas (get it from the CVS under the 'inc' module)

+-- To include this in the source, use {$include m_popup.h}

+

+*)

+

+{$ifndef M_POPUP_H}

+{$define M_POPUP_H}

+

+{$ifdef FPC}

+    {$PACKRECORDS C}

+    {$MODE Delphi}

+{$endif}

+

+const

+

+    MAX_CONTACTNAME = 2048;

+    MAX_SECONDLINE  = 2048;

+

+    SM_WARNING      = $01;      //Triangle icon.

+    SM_NOTIFY       = $02;      //Exclamation mark icon.

+

+type

+

+    // for info on what this stuff is, see m_popup.h

+

+    PPOPUPDATA = ^TPOPUPDATA;

+    TPOPUPDATA = record

+        lchContact: HCONTACT;

+        lchIcon: THandle;

+        lpszContactName: array[0..MAX_CONTACTNAME-1] of Char;

+        lpszText: array[0..MAX_SECONDLINE-1] of Char;

+        colorBack: COLORREF;

+        colorForeText: COLORREF;

+        PluginWindowProc: Pointer;      // must be a window procedure using stdcall

+        PluginData: Pointer;

+    end;

+

+type

+

+    // for info on what this stuff is, see m_popup.h

+

+    PPOPUPDATAEX = ^TPOPUPDATAEX;

+    TPOPUPDATAEX = record

+        lchContact: HCONTACT;

+        lchIcon: THandle;

+        lpszContactName: array[0..MAX_CONTACTNAME-1] of Char;

+        lpszText: array[0..MAX_SECONDLINE-1] of Char;

+        colorBack: COLORREF;

+        colorForeText: COLORREF;

+        PluginWindowProc: Pointer;      // must be a window procedure using stdcall

+        PluginData: Pointer;

+        iSeconds: int;      //Custom delay time in seconds. -1 means "forever", 0 means "default time".

+        cZero: array[0..15] of Char;      //16 unused bytes which may come useful in the future.

+    end;

+

+const

+

+(*

+    Creates, adds and shows a popup, given a (valid) POPUPDATA structure pointer.

+    wParam = (WPARAM)(*POPUPDATA)PopUpDataAddress

+    lParam = 0

+    Returns: > 0 on success, 0 if creation went bad, -1 if the PopUpData contained unacceptable values.

+    NOTE: it returns -1 if the PopUpData was not valid, if there were already too many popups, if the module was disabled.

+    Otherwise, it can return anything else...

+*)

+

+    MS_POPUP_ADDPOPUP = 'PopUp/AddPopUp';

+

+(*

+    The same, but with a POPUPDATAEX structure pointer.

+    wParam = (WPARAM)(*POPUPDATAEX)PopUpDataExAddress

+    lParam = 0

+*)

+

+    MS_POPUP_ADDPOPUPEX = 'PopUp/AddPopUpEx';

+

+(*

+    Returns the handle to the contact associated to the specified PopUpWindow.

+    You will probably need to know this handle inside your WNDPROC. Exampole: you want to open the MessageWindow. :-)

+    Call MS_POPUP_GETCONTACT on the hWnd you were given in the WNDPROC.

+    wParam = (WPARAM)(HWND)hPopUpWindow

+    lParam = 0;

+    Returns: the HANDLE of the contact. Can return NULL, meaning it's the main contact. -1 means failure.

+*)  

+

+    MS_POPUP_GETCONTACT = 'PopUp/GetContact';

+    

+(*

+    wParam = hPopUpWindow

+    lParam = PluginDataAddress;

+    Returns: the address of the PLUGINDATA structure. Can return NULL, meaning nothing was given. -1 means failure.

+    IMPORTANT NOTE: it doesn't seem to work if you do:

+    CallService(..., (LPARAM)aPointerToAStruct);

+    and then use that struct.

+    Do this, instead:

+    aPointerToStruct = CallService(..., (LPARAM)aPointerToAStruct);

+    and it will work. Just look at the example I've written above (PopUpDlgProc).

+*)

+    MS_POPUP_GETPLUGINDATA = 'PopUp/GetPluginData';

+    

+(*

+    wParam = 0

+    lParam = 0

+    Returns: 0 if the user has chosen not to have the second line, 1 if he choose to have the second line.

+*)

+    MS_POPUP_ISSECONDLINESHOWN = 'PopUp/IsSecondLineShown';

+    

+(*

+    UM_FREEPLUGINDATA

+    wParam = lParam = 0. Process this message if you have allocated your own memory. (i.e.: POPUPDATA.PluginData != NULL)

+*)

+    UM_FREEPLUGINDATA        = ((*WM_USER*)$400 + $200);

+    

+(*

+    UM_DESTROYPOPUP

+    wParam = lParam = 0. Send this message when you want to destroy the popup, or use the function below.

+*)

+    UM_DESTROYPOPUP          = ((*WM_USER*)$400 + $201);

+

+(*

+    UM_INITPOPUP

+    wParam = (WPARAM)(HWND)hPopUpWindow (but this is useless, since I'll directly send it to your hPopUpWindow

+    lParam = 0.

+    This message is sent to the PopUp when its creation has been finished, so POPUPDATA (and thus your PluginData) is reachable.

+    Catch it if you needed to catch WM_CREATE or WM_INITDIALOG, which you'll never ever get in your entire popup-life.

+    Return value: if you process this message, return 0. If you don't process it, return 0. Do whatever you like ;-)

+*)

+    UM_INITPOPUP            = ($400(*WM_USER*) + $202);

+

+(*

+    wParam = hPopUpWindow

+    lParam = lpzNewText

+    returns: > 0 for success, -1 for failure, 0 if the failure is due to second line not being shown. (but you could call PUIsSecondLineShown() before changing the text...)

+    Changes the text displayed in the second line of the popup.

+*)

+    MS_POPUP_CHANGETEXT         = 'PopUp/Changetext';

+

+(*

+    This is mainly for developers.

+    Shows a warning message in a PopUp. It's useful if you need a "MessageBox" like function, but you don't want a modal window (which will interfere with a DialogProcedure. MessageBox steals focus and control, this one not.

+    wParam = lpzMessage

+    lParam = 0;  Returns: 0 if the popup was shown, -1 in case of failure.

+*)

+    MS_POPUP_SHOWMESSAGE        = 'PopUp/ShowMessage';

+    

+

+    (* helper functions, will be inlined on FPC if you have the swithces enabled *)

+    

+    function PUAddPopup(ppdp: PPOPUPDATA): int;

+    {$ifdef FPC}

+    inline;

+    {$endif}

+    begin

+        Result := CallService(MS_POPUP_ADDPOPUP, WPARAM(ppdp), 0);

+    end;

+    

+    function PUGetContact(hPopUpWindow: THandle): THandle;

+    {$ifdef FPC}

+    inline;

+    {$endif}

+    begin

+        Result := CallService(MS_POPUP_GETCONTACT, WPARAM(hPopUpWindow), 0);

+    end;

+

+    function PUGetPluginData(hPopUpWindow: THandle): Pointer;

+    {$ifdef FPC}

+    inline;

+    {$endif}

+    var

+        dummy: pointer;

+    begin

+        dummy := nil;

+        Int(Result) := CallService(MS_POPUP_GETPLUGINDATA, WPARAM(hPopUpWindow), LPARAM(dummy));

+    end;

+

+    function PUIsSecondLineShown: BOOL;

+    {$ifdef FPC}

+    inline;

+    {$endif}

+    begin

+        Int(Result) := CallService(MS_POPUP_ISSECONDLINESHOWN, 0, 0);

+    end;

+

+    function PUDeletePopUp(hWndPopUp: THandle): int;

+    {$ifdef FPC}

+    inline;

+    {$endif}

+    begin

+        Result := SendMessage(hWndPopUp, UM_DESTROYPOPUP, 0, 0);

+    end;

+    

+    function PUChangeText(hWndPopUp: THandle; lpzNewText: PChar): int;

+    {$ifdef FPC}

+    inline;

+    {$endif}

+    begin

+        Result := CallService(MS_POPUP_CHANGETEXT, WPARAM(hWndPopUp), LPARAM(lpzNewText));

+    end;

+    

+    function PUShowMessage(lpzText: PChar; kind: Byte): int;

+    {$ifdef FPC}

+    inline;

+    {$endif}

+    begin

+        Result := CallService(MS_POPUP_SHOWMESSAGE, WPARAM(lpzText), LPARAM(kind));

+    end;

+

+{$endif}

+