MS_CLIST_SYSTRAY_NOTIFY - more useless code removed

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

2 files changed, 1 insertions, 68 deletions

diff --git a/include/delphi/m_clist.inc b/include/delphi/m_clist.inc
index ea4ce13e31..f4af29552d 100644
--- a/include/delphi/m_clist.inc
+++ b/include/delphi/m_clist.inc
@@ -187,71 +187,4 @@ function Clist_GroupCreate(hParentGroup:integer; groupName:PWideChar) : integer;
 

 procedure Clist_ContactDoubleClicked(hContact:TMCONTACT); stdcall; external AppDll;

 

-const

-  {

-    wParam=0 (not used)

-    lParam=(LPARAM) &MIRANDASYSTRAYNOTIFY

-

-    Affects: Show a message in a ballon tip against a protocol icon (if installed)

-    Returns: 0 on success, non zero on failure

-    Notes  : This service will not be created on systems that haven't got the Windows

-         support for ballontips, also note that it's upto Windows if it shows your

-         message and it keeps check of delays (don't be stupid about showing messages)

-

-    Version: 0.3.1a

-  }

-  NIIF_INFO           = $00000001;

-  NIIF_WARNING        = $00000002;

-  NIIF_ERROR          = $00000003;

-  NIIF_ICON_MASK      = $0000000F;

-  NIIF_NOSOUND        = $00000010;

-  NIIF_INTERN_UNICODE = $00000100;

-

-type

-  PMIRANDASYSTRAYNOTIFY = ^TMIRANDASYSTRAYNOTIFY;

-  TMIRANDASYSTRAYNOTIFY = record

-    cbSize     :int;       // sizeof(MIRANDASYSTRAY)

-    szProto    :PAnsiChar; // protocol to show under (may have no effect)

-    szInfoTitle:TChar;     // only 64chars of it will be used, TCHAR if NIIF_INTERN_UNICODE is specified

-    szInfo     :TChar;     // only 256chars of it will be used, TCHAR if NIIF_INTERN_UNICODE is specified

-    dwInfoFlags:dword;     // see NIIF_* stuff

-    uTimeout   :uint;      // how long to show the tip for

-  end;

-

-const

-  MS_CLIST_SYSTRAY_NOTIFY:PAnsiChar = 'Miranda/Systray/Notify';

-

-const

-  SETTING_TOOLWINDOW_DEFAULT      = 1;

-  SETTING_SHOWMAINMENU_DEFAULT    = 1;

-  SETTING_SHOWCAPTION_DEFAULT     = 1;

-  SETTING_CLIENTDRAG_DEFAULT      = 0;

-  SETTING_ONTOP_DEFAULT           = 1;

-  SETTING_MIN2TRAY_DEFAULT        = 1;

-  SETTING_TRAY1CLICK_DEFAULT      = 0;

-  SETTING_HIDEOFFLINE_DEFAULT     = 0;

-  SETTING_HIDEEMPTYGROUPS_DEFAULT = 0;

-  SETTING_USEGROUPS_DEFAULT       = 1;

-  SETTING_SORTBYSTATUS_DEFAULT    = 0;

-  SETTING_SORTBYPROTO_DEFAULT     = 0;

-  SETTING_TRANSPARENT_DEFAULT     = 0;

-  SETTING_ALPHA_DEFAULT           = 200;

-  SETTING_AUTOALPHA_DEFAULT       = 150;

-  SETTING_CONFIRMDELETE_DEFAULT   = 1;

-  SETTING_AUTOHIDE_DEFAULT        = 0;

-  SETTING_HIDETIME_DEFAULT        = 30;

-  SETTING_CYCLETIME_DEFAULT       = 4;

-  SETTING_ALWAYSSTATUS_DEFAULT    = 0;

-  SETTING_ALWAYSMULTI_DEFAULT     = 0;

-

-  SETTING_TRAYICON_SINGLE         = 0;

-  SETTING_TRAYICON_CYCLE          = 1;

-  SETTING_TRAYICON_MULTI          = 2;

-  SETTING_TRAYICON_DEFAULT        = SETTING_TRAYICON_SINGLE;

-

-  SETTING_STATE_HIDDEN            = 0;

-  SETTING_STATE_MINIMIZED         = 1;

-  SETTING_STATE_NORMAL            = 2;

-  SETTING_BRINGTOFRONT_DEFAULT    = 0;

-

 {$ENDIF}

diff --git a/include/delphi/m_clistint.inc b/include/delphi/m_clistint.inc
index f472cd2775..26d8b125f5 100644
--- a/include/delphi/m_clistint.inc
+++ b/include/delphi/m_clistint.inc
@@ -403,7 +403,7 @@ type
     pfnTrayIconIconsChanged        : procedure ; cdecl;

     pfnTrayIconPauseAutoHide       : function (wParam:WPARAM; lParam:LPARAM):int; cdecl;

     pfnTrayIconProcessMessage      : function (wParam:WPARAM; lParam:LPARAM):int_ptr; cdecl;

-    pfnCListTrayNotify             : function (_para1:PMIRANDASYSTRAYNOTIFY):int; cdecl;

+    blablabla5 : procedure; cdecl;

 

   (* clui.c *)

     pfnContactListWndProc:function(hwnd:HWND; msg:uint; wParam:WPARAM; lParam:LPARAM):int; stdcall;