moved\removed headers from h++

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

6 files changed, 0 insertions, 1153 deletions

diff --git a/plugins/HistoryPlusPlus/inc/m_icqext.inc b/plugins/HistoryPlusPlus/inc/m_icqext.inc
deleted file mode 100644
index 37336d863d..0000000000
--- a/plugins/HistoryPlusPlus/inc/m_icqext.inc
+++ /dev/null
@@ -1,19 +0,0 @@
-    //auth

-    //db event added to NULL contact

-    //blob format is:

-    //ASCIIZ    text

-    //DWORD     uin

-    //HANDLE    hContact

-    ICQEVENTTYPE_AUTH_GRANTED   = 2004;    //database event type

-    ICQEVENTTYPE_AUTH_DENIED    = 2005;    //database event type

-    ICQEVENTTYPE_SELF_REMOVE    = 2007;    //database event type

-    ICQEVENTTYPE_FUTURE_AUTH    = 2008;    //database event type

-    ICQEVENTTYPE_CLIENT_CHANGE  = 2009;    //database event type

-    ICQEVENTTYPE_CHECK_STATUS   = 2010;    //database event type

-    ICQEVENTTYPE_IGNORECHECK_STATUS = 2011;//database event type

-

-    //broadcast from server

-    //ASCIIZ    text

-    //ASCIIZ    from name

-    //ASCIIZ    from e-mail

-    ICQEVENTTYPE_BROADCAST      = 2006;    //database event type

diff --git a/plugins/HistoryPlusPlus/inc/m_ieview.inc b/plugins/HistoryPlusPlus/inc/m_ieview.inc
deleted file mode 100644
index 2881ef5c8c..0000000000
--- a/plugins/HistoryPlusPlus/inc/m_ieview.inc
+++ /dev/null
@@ -1,217 +0,0 @@
-{

-  IEView Plugin for Miranda IM

-  Copyright (C) 2005  Piotr Piastucki

-

-  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_IEVIEW}

-{$DEFINE M_IEVIEW}

-

-const

-  MS_IEVIEW_WINDOW              = 'IEVIEW/NewWindow';

-  MS_IEVIEW_EVENT               = 'IEVIEW/Event';

-  MS_IEVIEW_NAVIGATE            = 'IEVIEW/Navigate';

-

-  ME_IEVIEW_OPTIONSCHANGED      = 'IEVIEW/OptionsChanged';

-(*

-  MS_IEVIEW_UTILS               = 'IEVIEW/Utils';

-  MS_IEVIEW_SHOWSMILEYSELECTION = 'IEVIEW/ShowSmileySelection';

-  ME_IEVIEW_NOTIFICATION        = 'IEVIEW/Notification';

-*)

-  IEW_CREATE       = 1; // create new window (control)

-  IEW_DESTROY      = 2; // destroy control

-  IEW_SETPOS       = 3; // set window position and size

-  IEW_SCROLLBOTTOM = 4; // scroll text to bottom

-

-  IEWM_SRMM    = 0; // regular SRMM

-  IEWM_TABSRMM = 1; // TabSRMM-compatible HTML builder

-  IEWM_HTML    = 2; // HTML

-  IEWM_SCRIVER = 3; // HTML

-  IEWM_MUCC    = 4; // MUCC group chats GUI

-  IEWM_CHAT    = 5; // chat.dll group chats GUI

-  IEWM_HISTORY = 6; // history viewer

-  IEWM_BROWSER = 256; // empty browser window

-

-type

-  PIEVIEWWINDOW = ^TIEVIEWWINDOW;

-  TIEVIEWWINDOW = record

-    cbSize : int;   // size of the strusture

-    iType  : int;   // one of IEW_* values

-    dwMode : DWORD; // compatibility mode - one of IEWM_* values

-    dwFlags: DWORD; // flags, one of IEWF_* values

-    parent : HWND;  // parent window HWND

-    hwnd   : HWND;  // IEW_CREATE returns WebBrowser control's HWND here

-    x      : int;   // IE control horizontal position

-    y      : int;   // IE control vertical position

-    cx     : int;   // IE control horizontal size

-    cy     : int;   // IE control vertical size

-  end;

-

-const

-  IEEDF_UNICODE       = 1; // if set pszText is a pointer to wchar_t string instead of AnsiChar string

-  IEEDF_UNICODE_TEXT  = 1; // if set pszText is a pointer to wchar_t string instead of AnsiChar string

-  IEEDF_UNICODE_NICK  = 2; // if set pszNick is a pointer to wchar_t string instead of AnsiChar string

-  IEEDF_UNICODE_TEXT2 = 4; // if set pszText2 is a pointer to wchar_t string instead of AnsiChar string

-// The following flags are valid only for message events (IEED_EVENT_MESSAGE)

-  IEEDF_FORMAT_FONT  = $00000100; // if set pszFont (font name) is valid and should be used

-  IEEDF_FORMAT_SIZE  = $00000200; // if set fontSize is valid and should be used

-  IEEDF_FORMAT_COLOR = $00000400; // if set color is valid and should be used

-  IEEDF_FORMAT_STYLE = $00000800; // if set fontSize is valid and should be used

-

-  IEEDF_READ = $00001000; // if set

-  IEEDF_SENT = $00002000; // if set

-  IEEDF_RTL  = $00004000; // if set

-

-  IEED_EVENT_MESSAGE      = $0001; // message

-  IEED_EVENT_STATUSCHANGE = $0002; // status change

-  IEED_EVENT_FILE         = $0003; // file

-  IEED_EVENT_URL          = $0004; // url

-  IEED_EVENT_ERRMSG       = $0005; // error message

-  IEED_EVENT_SYSTEM       = $0006; // system event

-

-  IEED_MUCC_EVENT_MESSAGE = $0001; // message

-  IEED_MUCC_EVENT_TOPIC   = $0002; // topic change

-  IEED_MUCC_EVENT_JOINED  = $0003; // user joined

-  IEED_MUCC_EVENT_LEFT    = $0004; // user left

-  IEED_MUCC_EVENT_ERROR   = $0005; // error

-

-// MUCC-related dwData bit flags

-  IEEDD_MUCC_SHOW_NICK       = $00000001;

-  IEEDD_MUCC_MSG_ON_NEW_LINE = $00000002;

-  IEEDD_MUCC_SHOW_DATE       = $00000010;

-  IEEDD_MUCC_SHOW_TIME       = $00000020;

-  IEEDD_MUCC_SECONDS         = $00000040;

-  IEEDD_MUCC_LONG_DATE       = $00000080;

-

-  IEED_GC_EVENT_HIGHLIGHT    = $8000;

-  IEED_GC_EVENT_MESSAGE      = $0001;

-  IEED_GC_EVENT_TOPIC        = $0002;

-  IEED_GC_EVENT_JOIN         = $0003;

-  IEED_GC_EVENT_PART         = $0004;

-  IEED_GC_EVENT_QUIT         = $0006;

-  IEED_GC_EVENT_NICK         = $0007;

-  IEED_GC_EVENT_ACTION       = $0008;

-  IEED_GC_EVENT_KICK         = $0009;

-  IEED_GC_EVENT_NOTICE       = $000A;

-  IEED_GC_EVENT_INFORMATION  = $000B;

-  IEED_GC_EVENT_ADDSTATUS    = $000C;

-  IEED_GC_EVENT_REMOVESTATUS = $000D;

-

-// GC-related dwData bit flags

-  IEEDD_GC_SHOW_NICK       = $00000001;

-  IEEDD_GC_SHOW_TIME       = $00000002;

-  IEEDD_GC_SHOW_ICON       = $00000004;

-  IEEDD_GC_MSG_ON_NEW_LINE = $00001000;

-

-  IE_FONT_BOLD      = $000100; // Bold font flag

-  IE_FONT_ITALIC    = $000200; // Italic font flag

-  IE_FONT_UNDERLINE = $000400; // Underlined font flags

-

-type

-  PtagIEVIEWEVENTDATA = ^TtagIEVIEWEVENTDATA;

-  TtagIEVIEWEVENTDATA = record

-    cbSize   :int;

-    iType    :int;       // Event type, one of MUCC_EVENT_* values

-    dwFlags  :dword;     // Event flags - IEEF_*

-    fontName :PAnsiChar;     // Text font name

-    fontSize :int;       // Text font size (in pixels)

-    fontStyle:int;       // Text font style (combination of IE_FONT_* flags)

-    color    :TCOLORREF; // Text color

-    Nick     :TChar;     // Nick, usage depends on type of event

-    Text     :TChar;     // Text, usage depends on type of event

-    dwData   :dword;     // DWORD data e.g. status

-    bIsMe    :BOOL;      // TRUE if the event is related to the user

-    time     :dword;     // Time of the event

-    next     :PtagIEVIEWEVENTDATA;

-    Text2    :TChar;     // Text, usage depends on type of event

-  end;

-  PIEVIEWEVENTDATA = PtagIEVIEWEVENTDATA;

-  TIEVIEWEVENTDATA = TtagIEVIEWEVENTDATA;

-

-const

-  IEE_LOG_DB_EVENTS  = 1; // log specified number of DB events

-  IEE_CLEAR_LOG      = 2; // clear log

-  IEE_GET_SELECTION  = 3; // get selected text

-  IEE_SAVE_DOCUMENT  = 4; // save current document

-  IEE_LOG_MEM_EVENTS = 5; // log specified number of IEView events

-

-  IEEF_RTL          = 1; // turn on RTL support

-  IEEF_NO_UNICODE   = 2; // disable Unicode support

-  IEEF_NO_SCROLLING = 4; // do not scroll logs to bottom

-

-const

-  IEVIEWEVENT_SIZE_V1 = 28;

-  IEVIEWEVENT_SIZE_V2 = 32;

-  IEVIEWEVENT_SIZE_V3 = 36;

-

-type

-  tagIEVIEWEVENT = record

-    case byte of

-      0: (hDbEventFirst: THANDLE);

-      1: (eventData :PIEVIEWEVENTDATA);

-  end;

-

-  PIEVIEWEVENT = ^TIEVIEWEVENT;

-  TIEVIEWEVENT = record

-    cbSize   :int; // size of the strusture

-    iType    :int; // one of IEE_* values

-    dwFlags  :DWORD;   // one of IEEF_* values

-    hwnd     :HWND;    // HWND returned by IEW_CREATE

-    hContact :THANDLE; // contact

-    Event    :tagIEVIEWEVENT; // first event to log, when IEE_LOG_EVENTS

-                              // returns it will contain the last event

-                              // actually logged or NULL if no event was logged

-    count    :int;     // number of events to log

-    codepage :int;     // ANSI codepage

-    pszProto :PAnsiChar;

-  end;

-(*

-type

-  PIEVIEWSHOWSMILEYSEL = ^TIEVIEWSHOWSMILEYSEL;

-  TIEVIEWSHOWSMILEYSEL = record

-    cbSize       : int;    // size of the structure

-    Protocolname : PAnsiChar;  // protocol to use... if you have defined a protocol,

-                           // u can use your own protocol name. Smiley add will

-                           // automatically select the smileypack that is

-                           // defined for your protocol. Or, use "Standard" for

-                           // standard smiley set. Or "ICQ", "MSN" if you

-                           // prefer those icons. If not found or NULL:

-                           // "Standard" will be used

-    xPosition    : int;    // Postition to place the selectwindow

-    yPosition    : int;

-    Direction    : int;    // Direction (i.e. size upwards/downwards/etc) of

-                           // the window 0, 1, 2, 3

-    hwndTarget   : HWND;   // Window, where to send the message when smiley is

-                           // selected.

-    targetMessage: DWORD;  // Target message, to be sent.

-    targetWParam : LPARAM; // Target WParam to be sent (LParam will be AnsiChar*

-                           // to select smiley) see the example file.

-  end;

-*)

-const

-  IEN_NAVIGATE = 1; // navigate to the given destination

-  IENF_UNICODE = 1; // if set urlW is used instead of urlW

-

-type

-  IEVIEWNAVIGATE = record

-    cbSize :int;   // size of the strusture

-    iType  :int;   // one of IEN_* values

-    dwFlags:dword; // one of IEEF_* values

-    hwnd   :HWND;  // HWND returned by IEW_CREATE

-    url    :TChar; // Text, usage depends on type of event

-end;

-

-{$ENDIF}

diff --git a/plugins/HistoryPlusPlus/inc/m_jabber.inc b/plugins/HistoryPlusPlus/inc/m_jabber.inc
deleted file mode 100644
index bbb051e203..0000000000
--- a/plugins/HistoryPlusPlus/inc/m_jabber.inc
+++ /dev/null
@@ -1,32 +0,0 @@
-{

-Jabber Protocol Plugin for Miranda IM

-Copyright ( C ) 2002-04  Santithorn Bunchua

-Copyright ( C ) 2005-07  George Hazan

-Copyright ( C ) 2007     Maxim Mluhov

-

-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_JABBER}

-{$DEFINE M_JABBER}

-

-const

-

-    // registered db event types

-    JABBER_DB_EVENT_TYPE_CHATSTATES          = 2000;

-    JS_DB_GETEVENTTEXT_CHATSTATES            = '/GetEventText2000';

-    JABBER_DB_EVENT_CHATSTATES_GONE          = 1;

-

-{$ENDIF}

diff --git a/plugins/HistoryPlusPlus/inc/m_mathmodule.inc b/plugins/HistoryPlusPlus/inc/m_mathmodule.inc
deleted file mode 100644
index a4d10edfa6..0000000000
--- a/plugins/HistoryPlusPlus/inc/m_mathmodule.inc
+++ /dev/null
@@ -1,199 +0,0 @@
-{$IFNDEF M_MATHMODULE}

-{$DEFINE M_MATHMODULE}

-  {--------------------------------------------------- }

-  {

-                   2                   

-                  x  + 2 Pi

-                               +  R

-                   Sin(wt)

-  

-                     Math-Module

-  

-        Miranda Plugin by Stephan Kassemeyer

-     MathModule API  -  (c) Stephan Kassemeyer

-                    8 May, 2004

-   }

-  { --------- }

-  {

-     Miranda Service-functions defined by MathModule

-     call with the

-     int ( CallService)(const AnsiChar   servicename,WPARAM,LPARAM)

-     that you get from miranda when Miranda calls the

-     Load(PLUGINLINK   link)

-     of your PlugIn-dll

-     the CallService function then is:

-     link->CallServiceSync(Servicename,wparam,lparam)

-   }

-  { --------- }

-

-const

-  MATH_RTF_REPLACE_FORMULAE = 'Math/RtfReplaceFormulae';

-  { replace all formulas in a RichEdit with bitmaps. }

-  { wParam = 0 }

-  { lParam = *TMathRichedit Info }

-  { return: TRUE if replacement succeeded, FALSE if not (disable by user?). }

-  { handle of richedit. }

-  { NULL: replace all. }

-type

-  PMathRicheditInfo = ^TMathRicheditInfo;

-  TMathRicheditInfo = record

-    hwndRichEditControl : HWND;

-    sel                 : PCHARRANGE;

-    disableredraw       : int;

-  end;

-  { WARNING:   !!! }

-  { Strange things happen if you use this function twice on the same CHARRANGE: }

-  { if Math-startDelimiter == Math-endDelimiter, there is the following problem: }

-  { it might be that someone forgot an endDelimiter, this results in a lonesome startdelimiter. }

-  { if you try to MATH_REPLACE_FORMULAE the second time, startDelimiters and endDelimiters are mixed up. }

-  { The same problem occours if we have empty formulae, because two succeding delimiters are }

-  { replaced with a single delimiter. }

-

-const

-  MATH_GET_STARTDELIMITER = 'Math/GetStartDelimiter';

-  { returns the delimiter that marks the beginning of a formula }

-  { wparam=0 }

-  { lparam=0 }

-  { result=*AnsiChar Delimiter }

-  { !!! the result-buffer must be deleted with MTH_FREE_MATH_BUFFER }

-

-  MATH_GETENDDELIMITER = 'Math/GetEndDelimiter';

-  { returns the delimiter that marks the end of a formula }

-  { wparam=0 }

-  { lparam=0 }

-  { result=*AnsiChar Delimiter }

-  { !!! the result-buffer must be deleted with MTH_FREE_MATH_BUFFER }

-

-  MTH_FREE_MATH_BUFFER = 'Math/FreeRTFBitmapText';

-  { deletes any buffer that MathModule has created. }

-  { wparam=0 }

-  { lparam=(*AnsiChar) buffer }

-  { result=0 }

-

-  MATH_SETBKGCOLOR = 'Math/SetBackGroundColor';

-  { changes the background color of the next formula to be rendered. }

-  { wparam=0 }

-  { lparam=(COLORREF) color }

-  { result=0 }

-

-  MATH_SET_PARAMS = 'Math/SetParams';

-  { sets a parameter (only integer values) encoded in  wparam }

-  { wparam=paramcode }

-  { lparam=parametervalue }

-  { paramcodes: }

-const

-  MATH_PARAM_BKGCOLOR  = 0; // (COLORREF) std-rgb-color or TRANSPARENT_Color

-  MATH_PARAM_FONTCOLOR = 1; // (COLORREF) std-rgb-color

-  RESIZE_HWND          = 2; // (HWND) preview window resizes RESIZE_HWND when

-                            // it is being resized.

-  ToolboxEdit_HWND     = 3; // (HWND) If this hwnd (of an edit-box) is set,

-                            // MathModule can insert Formula-elements from

-                            // the Math-Toolbox.

-// you can make the BKGCOLOR Transparent (default) by using this color:

-  TRANSPARENT_Color = $FFFFFFFF-1;  // this is default

-

-const

-  MTH_GETBITMAP = 'Math/GetBitmap';

-  {returns Bitmap that represents the formula given in lparam (string-pointer) }

-  {this formula has NO Delimiters. }

-  {wparam=0 }

-  {lparam=(*AnsiChar)Formula }

-  {result=(HBITMAP) bitmap }

-  {!!! the bitmap must be deleted with DeleteObject(hobject) }

-  {example: }

-  {HBITMAP Bmp=(HBITMAP)CallService(MTH_GETBITMAP,0, (LPARAM)formula); }

-

-  MTH_GET_RTF_BITMAPTEXT = 'Math/GetRTFBitmapText';

-  { returns rich-text stream that includes bitmaps from text given in lparam }

-  { text included between MATH_GET_STARTDELIMITER and MATH_GETENDDELIMITER }

-  { hereby is replaced with a rtf-bitmap-stream that represents the corresponding formula }

-  { wparam=0 }

-  { lparam=*AnsiChar text }

-  { result=*AnsiChar rtfstream }

-  { !!! the result-buffer must be deleted with MTH_FREE_RTF_BITMAPTEXT }

-

-  MTH_FREE_RTF_BITMAPTEXT = 'Math/FreeRTFBitmapText';

-  { deletes the buffer that MTH_GET_RTF_BITMAPTEXT has created. }

-  { wparam=0 }

-  { lparam=(*AnsiChar) buffer }

-  { result=0 }

-

-  { ************************************************************** }

-  { The following is still SRMM - specific. }

-  { I plan to modify it, so that other PlugIns can take advantage of e.g. preview-window.... }

-const

-  MTH_SHOW = 'Math/Show';

-  { shows the preview-window }

-  { wparam=0 }

-  { lparam=0 }

-  { result=0 }

-

-  MTH_HIDE = 'Math/Hide';

-  { hides the preview-window }

-  { wparam=0 }

-  { lparam=0 }

-  { result=0 }

-

-  MTH_RESIZE = 'Math/Resize';

-  { sets the size of the preview-window }

-  { wparam=0 }

-  { lparam=(*TMathWindowInfo) }

-  { result=0 }

-type

-  PTMathWindowInfo = ^TTMathWindowInfo;

-  TTMathWindowInfo = record

-    top   : int;

-    left  : int;

-    right : int;

-    bottom: int;

-  end;

-

-const

-  MTH_SETFORMULA = 'Math/SetFormula';

-  { sets the text that the preview-window should parse to display formulas found inside }

-  { wparam=0 }

-  { lparam=(*AnsiChar) text }

-  { result=0 }

-

-  MTH_Set_ToolboxEditHwnd = 'Math/SetTBhwnd';

-  { If this hwnd (of an edit-box) is set, MathModule can insert Formula-elements from the Math-Toolbox. }

-  { wparam=0 }

-  { lparam=handle }

-  {übergibt fenster-Handle des aktuellen Message-Dialogs }

-

-  MTH_Set_Srmm_HWND = 'Math/SetSrmmHWND';

-  { If MathModule knows the handle of a SRMM-based window, following features exist: }

-  { - preview window resizes Math-Srmm when it is being resized. }

-  { wparam=0 }

-  { lparam=handle }

-  { result=0 }

-  { todo: umbenennen in MTH_Set_ResizeWindowHandle, zusaetzlich MTH_Set_ToolboxEditHandle erstellen, dann keine SRMM-Abhaengigkeit mehr. }

-  { damit ResizeWindows selbst entscheiden koennen, was sie tun, kann man auch ein miranda-event "MTH_preview_resized" einrichten. }

-

-  MTH_GET_PREVIEW_HEIGHT = 'Math/getPreviewHeight';

-  { returns the height of the whole preview-window (including system-menu-bar) }

-  { consider this when maximizing a window to that preview-window is hooked on top or bottom }

-  { it returns the height no matter whether preview-window is visible or not }

-  { wparam=0 }

-  { lparam=0 }

-  { result=(int) height }

-

-  MTH_GET_PREVIEW_SHOWN = 'Math/getPreviewShown';

-  { returns 1 if preview window is visible }

-  { returns 0 if preview window is invisible }

-  { result=(int) shown }

-

-  MTH_SUBSTITUTE_DELIMITER = 'Math/SubstituteDelimiter';

-  { replaces Substitute given lparam-structure with internal Math-Delimiter }

-  { wparam=0 }

-  { lparam=(TMathSubstInfo) substInfo }

-  { result=0 }

-

-type

-  PTMathSubstInfo = ^TTMathSubstInfo;

-  TTMathSubstInfo = record

-    EditHandle : HWND;

-    Substitute : PAnsiChar;

-  end;

-{--------------------------------------------------- }

-{$ENDIF}

diff --git a/plugins/HistoryPlusPlus/inc/m_music.inc b/plugins/HistoryPlusPlus/inc/m_music.inc
deleted file mode 100644
index aba0bd27f6..0000000000
--- a/plugins/HistoryPlusPlus/inc/m_music.inc
+++ /dev/null
@@ -1,419 +0,0 @@
-{$IFNDEF M_MUSIC}

-{$DEFINE M_MUSIC}

-

-// defined in interfaces.inc

-//const MIID_WATRACK:MUUID='{FC6C81F4-837E-4430-9601-A0AA43177AE3}';

-

-type

-  pSongInfoA = ^tSongInfoA;

-  tSongInfoA = record

-    artist   :PAnsiChar;

-    title    :PAnsiChar;

-    album    :PAnsiChar;

-    genre    :PAnsiChar;

-    comment  :PAnsiChar;

-    year     :PAnsiChar;

-    mfile    :PAnsiChar; // media file

-    kbps     :dword;

-    khz      :dword;

-    channels :dword;

-    track    :dword;

-    total    :dword;     // music length

-    time     :dword;     // elapsed time

-    wndtext  :PAnsiChar; // window title

-    player   :PAnsiChar; // player name

-    plyver   :dword;     // player version

-    icon     :THANDLE;   // player icon

-    fsize    :dword;     // media file size

-    vbr      :dword;

-    status   :integer;   // WAT_MES_* const

-    plwnd    :HWND;      // player window

-    // video  part

-    codec    :dword;

-    width    :dword;

-    height   :dword;

-    fps      :dword;

-    date     :int64;

-    txtver   :PAnsiChar;

-    lyric    :PAnsiChar;

-    cover    :PAnsiChar;

-    volume   :dword;

-    url      :PAnsiChar; // player homepage

-    winampwnd:HWND;

-  end;

-type

-  pSongInfo=^tSongInfo;

-  tSongInfo = record

-    artist   :pWideChar;

-    title    :pWideChar;

-    album    :pWideChar;

-    genre    :pWideChar;

-    comment  :pWideChar;

-    year     :pWideChar;

-    mfile    :pWideChar; // media file

-    kbps     :dword;

-    khz      :dword;

-    channels :dword;

-    track    :dword;

-    total    :dword;     // music length

-    time     :dword;     // elapsed time

-    wndtext  :pWideChar; // window title

-    player   :pWideChar; // player name

-    plyver   :dword;     // player version

-    icon     :THANDLE;   // player icon

-    fsize    :dword;     // media file size

-    vbr      :dword;

-    status   :integer;   // WAT_MES_* const

-    plwnd    :HWND;      // player window

-    // video  part

-    codec    :dword;

-    width    :dword;

-    height   :dword;

-    fps      :dword;

-    date     :int64;

-    txtver   :pWideChar;

-    lyric    :pWideChar;

-    cover    :pWideChar; // cover path

-    volume   :dword;

-    url      :PWideChar; // player homepage

-    winampwnd:HWND;

-  end;

-  pSongInfoW = pSongInfo;

-  tSongInfoW = tSongInfo;

-

-const

-  // result codes

-  WAT_RES_UNKNOWN   = -2;

-  WAT_RES_NOTFOUND  = -1;

-  WAT_RES_ERROR     = WAT_RES_NOTFOUND;

-  WAT_RES_OK        = 0;

-  WAT_RES_ENABLED   = WAT_RES_OK;

-  WAT_RES_DISABLED  = 1;

-  // internal

-  WAT_RES_NEWFILE   = 3;

-  WAT_RES_NEWPLAYER = 4;

-

-// result for MS_WAT_GETMUSICINFO service

-const

-  WAT_PLS_NORMAL   = WAT_RES_OK;

-  WAT_PLS_NOMUSIC  = WAT_RES_DISABLED;

-  WAT_PLS_NOTFOUND = WAT_RES_NOTFOUND;

-

-const

-  WAT_INF_UNICODE = 0;

-  WAT_INF_ANSI    = 1;

-  WAT_INF_UTF8    = 2;

-  WAT_INF_CHANGES = $100;

-

-const

-  MS_WAT_INSERT:PAnsiChar = 'WATrack/Insert';

-  MS_WAT_EXPORT:PAnsiChar = 'WATrack/Export';

-

-const

-{

-  wParam : WAT_INF_* constant

-  lParam : pointer to pSongInfo (Unicode) or pSongInfoA (ANSI/UTF8)

-  Affects: Fill structure by currently played music info

-  returns: WAT_PLS_* constant

-  note: pointer will be point to global SongInfo structure of plugin

-  warning: Non-Unicode data filled only by request

-  if lParam=0 only internal SongInfo structure will be filled

-  Example:

-    var p:pSongInfo;

-    CallService(MS_WAT_GETMUSICINFO,0,dword(@p));

-}

-  MS_WAT_GETMUSICINFO:PAnsiChar = 'WATrack/GetMusicInfo';

-{

-  wParam:0

-  lParam : pointer to pSongInfo (Unicode)

-  Affects: Fill structure by info from file named in SongInfo.mfile

-  returns: 0, if success

-  note: fields, which values can't be obtained, leaves old values.

-    you must free given strings by miranda mir_free

-}

-  MS_WAT_GETFILEINFO:PAnsiChar = 'WATrack/GetFileInfo';

-

-{

-  wParam: encoding (WAT_INF_* consts, 0 = WAT_INF_UNICODE)

-  lParam: codepage (0 = ANSI)

-  Returns Global unicode SongInfo pointer or tranlated to Ansi/UTF8 structure

-}

-  MS_WAT_RETURNGLOBAL:PAnsiChar = 'WATrack/GetMainStructure';

-

-//!! DON'T CHANGE THESE VALUES!

-const

-  WAT_CTRL_FIRST = 1;

-

-  WAT_CTRL_PREV  = 1;

-  WAT_CTRL_PLAY  = 2;

-  WAT_CTRL_PAUSE = 3;

-  WAT_CTRL_STOP  = 4;

-  WAT_CTRL_NEXT  = 5;

-  WAT_CTRL_VOLDN = 6;

-  WAT_CTRL_VOLUP = 7;

-  WAT_CTRL_SEEK  = 8; // lParam is new position (sec)

-

-  WAT_CTRL_LAST  = 8;

-

-{

-  wParam: button code (WAT_CTRL_* const)

-  lParam: 0, or value (see WAT_CTRL_* const comments)

-  Affects: emulate player button pressing

-  returns: 0 if unsuccesful

-}

-  MS_WAT_PRESSBUTTON:PAnsiChar = 'WATrack/PressButton';

-

-{

-  Get user's Music Info

-}

-  MS_WAT_GETCONTACTINFO:PAnsiChar = 'WATrack/GetContactInfo';

-

-// ------------ Plugin/player status ------------

-

-{

-  wParam: 1  - switch off plugin

-          0  - switch on plugin

-          -1 - switch plugin status

-          2  - get plugin version

-          other - get plugin status

-  lParam: 0

-  Affects: Switch plugin status to enabled or disabled

-  returns: version, old plugin status, 0, if was enabled

-}

-  MS_WAT_PLUGINSTATUS:PAnsiChar = 'WATrack/PluginStatus';

-

-  ME_WAT_MODULELOADED:PAnsiChar = 'WATrack/ModuleLoaded';

-

-const

-  WAT_EVENT_PLAYERSTATUS = 1; // WAT_PLS_* in loword, WAT_MES_* in hiword

-  WAT_EVENT_NEWTRACK     = 2; // SongInfo ptr

-  WAT_EVENT_PLUGINSTATUS = 3; // 0-enabled; 1-dis.temporary; 2-dis.permanent

-  WAT_EVENT_NEWPLAYER    = 4; //

-  WAT_EVENT_NEWTEMPLATE  = 5; // TM_* constant

-

-{

-  Plugin or player status changed:

-  wParam: type of event (see above)

-  lParam: value

-}

-  ME_WAT_NEWSTATUS:PAnsiChar = 'WATrack/NewStatus';

-

-// ---------- Popup module ------------

-

-{

-  wParam: not used

-  lParam: not used

-  Affects: Show popup or Info window with current music information

-  note: Only Info window will be showed if Popup plugin disabled

-}

-  MS_WAT_SHOWMUSICINFO:PAnsiChar = 'WATrack/ShowMusicInfo';

-

-// --------- Statistic (report) module -------------

-

-{

-  wParam: pointer to log file name or NIL

-  lParam: pointer to report file name or NIL

-  Affects: Create report from log and run it (if option is set)

-  returns: 0 if unsuccesful

-  note: if wParam or lParam is a NIL then file names from options are used

-}

-  MS_WAT_MAKEREPORT :PAnsiChar = 'WATrack/MakeReport';

-//  MS_WAT_MAKEREPORTW:PAnsiChar = 'WATrack/MakeReportW';

-

-{

-  wParam, lParam - not used

-  Affects: pack statistic file

-}

-  MS_WAT_PACKLOG:PAnsiChar = 'WATrack/PackLog';

-

-{

-  wParam: not used

-  lParam: pointer to SongInfo

-}

-  MS_WAT_ADDTOLOG:PAnsiChar = 'WATrack/AddToLog';

-

-// ----------- Formats and players -----------

-

-// media file status

-

-const

-  WAT_MES_STOPPED = 0;

-  WAT_MES_PLAYING = 1;

-  WAT_MES_PAUSED  = 2;

-  WAT_MES_UNKNOWN = -1;

-

-const

-  WAT_ACT_REGISTER   = 1;

-  WAT_ACT_UNREGISTER = 2;

-  WAT_ACT_DISABLE    = 3;

-  WAT_ACT_ENABLE     = 4;

-  WAT_ACT_GETSTATUS  = 5; // not found/enabled/disabled

-  WAT_ACT_SETACTIVE  = 6;

-  WAT_ACT_REPLACE    = $10000; // can be combined with WAT_REGISTERFORMAT

-

-const

-  // flags

-  WAT_OPT_DISABLED    = $00000001; // [formats,players,options] registered but disabled

-  WAT_OPT_ONLYONE     = $00000002; // [formats,players] code can't be overwriten

-  WAT_OPT_PLAYERINFO  = $00000004; // [players] song info from player

-  WAT_OPT_WINAMPAPI   = $00000008; // [players] Winamp API support

-  WAT_OPT_CHECKTIME   = $00000010; // [options] check file time for changes

-  WAT_OPT_VIDEO       = $00000020; // [formats,options] format is video

-  WAT_OPT_LAST        = $00000040; // (internal-Winamp Clone) put to the end of queue

-  WAT_OPT_FIRST       = $00000080; // (internal)

-  WAT_OPT_TEMPLATE    = $00000100; // (internal)

-  WAT_OPT_IMPLANTANT  = $00000200; // [options] use process implantation

-  WAT_OPT_HASURL      = $00000400; // [players] URL field present

-  WAT_OPT_CHANGES     = $00000800; // (internal) obtain only chaged values

-                                   // (volume, status, window text, elapsed time)

-  WAT_OPT_APPCOMMAND  = $00001000; // [options] Special (multimedia) key support

-  WAT_OPT_CHECKALL    = $00002000; // [options] Check all players

-  WAT_OPT_KEEPOLD     = $00004000; // [options] Keep Old opened file

-  WAT_OPT_MULTITHREAD = $00008000; // [options] Use multithread scan

-  WAT_OPT_SINGLEINST  = $00010000; // [players] Single player instance

-  WAT_OPT_PLAYERDATA  = $00020000; // (internal) to obtain player data

-  WAT_OPT_CONTAINER   = $00040000; // [formats] format is container (need to check full)

-

-type

-  tReadFormatProc = function(var Info:tSongInfo):boolean; cdecl;

-  pMusicFormat = ^tMusicFormat;

-  tMusicFormat = record

-    proc :tReadFormatProc;

-    ext  :array [0..7] of AnsiChar;

-    flags:cardinal;

-  end;

-

-const

-{

-  wParam: action

-  lParam: pointer to tMusicFormat if wParam = WAT_ACT_REGISTER,

-          else - pointer to extension string (ANSI)

-  returns: see result codes

-}

-  MS_WAT_FORMAT:PAnsiChar = 'WATrack/Format';

-

-{

-  wParam: pointer to SongInfo structure (plwind field must be initialized)

-  lParam: flags

-  Affects: trying to fill SongInfo using Winamp API

-}

-  MS_WAT_WINAMPINFO:PAnsiChar = 'WATrack/WinampInfo';

-

-{

-  wParam: window

-  lParam: LoWord - command; HiWord - value

-}

-  MS_WAT_WINAMPCOMMAND:PAnsiChar = 'WATrack/WinampCommand';

-

-type

-  tInitProc    = function():integer;cdecl;

-  tDeInitProc  = function():integer;cdecl;

-  tStatusProc  = function(wnd:HWND):integer;cdecl;

-  tNameProc    = function(wnd:HWND;flags:integer):pWideChar;cdecl;

-  tCheckProc   = function(wnd:HWND;flags:integer):HWND;cdecl;

-  tInfoProc    = function(var SongInfo:tSongInfo;flags:integer):integer;cdecl;

-  tCommandProc = function(wnd:HWND;command:integer;value:integer):integer;cdecl;

-

-  pPlayerCell = ^tPlayerCell;

-  tPlayerCell = record

-    Desc     :PAnsiChar; // Short player name

-    flags    :cardinal;

-    Icon     :HICON;     // can be 0. for registration only

-    Init     :pointer;   // tInitProc;    can be NIL. initialize any data

-    DeInit   :pointer;   // tDeInitProc;  can be NIL. finalize player processing

-    Check    :pointer;   // tCheckProc;   check player

-    GetStatus:pointer;   // tStatusProc;  can be NIL. get player status

-    GetName  :pointer;   // tNameProc;    can be NIL. get media filename

-    GetInfo  :pointer;   // tInfoProc;    can be NIL. get info from player

-    Command  :pointer;   // tCommandProc; can be NIL. send command to player

-    URL      :PAnsiChar; // only if WAT_OPT_HASURL flag present

-    Notes    :PWideChar; // any tips, notes etc for this player

-  end;

-

-const

-{

-  wParam: action

-  lParam: pointer to tPlayerCell if wParam = WAT_ACT_REGISTER,

-          else - pointer to player description string (ANSI)

-  returns: player window handle or value>0 if found

-  note: If you use GetName or GetInfo field, please, do not return empty

-        filename even when mediafile is remote!

-}

-  MS_WAT_PLAYER:PAnsiChar = 'WATrack/Player';

-

-// --------- MyShows.ru ---------

-

-{

-  Toggle MyShows scrobbling status

-  wParam,lParam=0

-  Returns: previous state

-}

-const

-  MS_WAT_MYSHOWS:pAnsiChar = 'WATrack/MyShows';

-

-

-const

-  MS_WAT_MYSHOWSINFO:pAnsiChar = 'WATrack/MyShowsInfo';

-

-// --------- Last FM  ---------

-

-{

-  Toggle LastFM scrobbling status

-  wParam,lParam=0

-  Returns: previous state

-}

-const

-  MS_WAT_LASTFM:pAnsiChar = 'WATrack/LastFM';

-

-{

-  Get Info based on currently played song

-  wParam: pLastFMInfo

-  lParam: int language (first 2 bytes - 2-letters language code)

-}

-type

-  pLastFMInfo = ^tLastFMInfo;

-  tLastFMInfo = record

-    request:cardinal;   // 0 - artist, 1 - album, 2 - track

-    artist :pWideChar; // artist

-    album  :pWideChar; // album or similar artists for Artist info request

-    title  :pWideChar; // track title 

-    tags   :pWideChar; // tags

-    info   :pWideChar; // artist bio or wiki article

-    image  :pAnsiChar; // photo/cover link

-    similar:pWideChar;

-    release:pWideChar;

-    trknum :cardinal;

-  end;

-const

-  MS_WAT_LASTFMINFO:pAnsiChar = 'WATrack/LastFMInfo';

-

-// --------- Templates ----------

-

-const

-{

-  wParam: 0 (standard Info) or pSongInfo

-  lParam: Unicode template

-  returns: New Unicode (replaced) string

-}

-  MS_WAT_REPLACETEXT:PAnsiChar = 'WATrack/ReplaceText';

-

-{

-  event types for History

-  Blob structure for EVENTTYPE_WAT_ANSWER:

-   Uniciode artist#0title#0album#0answer

-}

-const

-  EVENTTYPE_WAT_REQUEST = 9601;

-  EVENTTYPE_WAT_ANSWER  = 9602;

-  EVENTTYPE_WAT_ERROR   = 9603;

-  EVENTTYPE_WAT_MESSAGE = 9604;

-

-const

-{

-  wParam: 0 or parent window

-  lParam: 0

-  note:   Shows Macro help window with edit aliases ability

-}

-  MS_WAT_MACROHELP:pAnsiChar = 'WATrack/MacroHelp';

-

-{$ENDIF M_MUSIC}

diff --git a/plugins/HistoryPlusPlus/inc/m_speak.inc b/plugins/HistoryPlusPlus/inc/m_speak.inc
deleted file mode 100644
index 5a90fa98b0..0000000000
--- a/plugins/HistoryPlusPlus/inc/m_speak.inc
+++ /dev/null
@@ -1,267 +0,0 @@
-{

-Copyright (C) 2007 Ricardo Pescuma Domenecci

-

-This is free software; you can redistribute it and/or

-modify it under the terms of the GNU Library General Public

-License as published by the Free Software Foundation; either

-version 2 of the License, or (at your option) any later version.

-

-This 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

-Library General Public License for more details.

-

-You should have received a copy of the GNU Library General Public

-License along with this file; see the file license.txt.  If

-not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,

-Boston, MA 02111-1307, USA.

-}

-

-{$IFNDEF M_SPEAK}

-{$DEFINE M_SPEAK}

-

-(*

-There is 2 ways of using the speak plugin:

-

-1. Older and simple way: just call

-	Speak_Say(hContact, _T("text to speak"))

-and the text will be spoken using contact settings. If hContact is NULL, it will use

-system settings.

-Previous versions only had an ascii version, so if you want to support then you need

-to call

-	Speak_SayA(hContact, "text to speak")

-

-

-2. Integrating with meSpeak GUI: for that you have first to register a speak type and

-then call the speak functions. In both case you have 2 options:

-

-2.1 Sending the full text: meSpeak GUI will only allow to enable/disable the type.

-To register call (in modules loaded):

-	Speak_Register("PluginName (DB key)", "name", "Prety name for GUI", "icon_xyz")

-And to speak call:

-	Speak_SayEx("name", hContact, _T("text to speak"))

-

-2.2 Using templates: you will not pass the text, but some variables. meSpeak handles

-the GUI to allow the user to create the text for those variables. These functions

-end with WT (with templates).

-To register call (in modules loaded):

-	AnsiChar *templates[] = { "Name\nDefault\n%var1%\tDescription 1\n%var2%\tDescription2\n%var3%\tDescription 3" };

-	Speak_RegisterWT("PluginName (DB key)", "name", "Prety name for GUI", "icon_xyz",

-					 templates, 1);

-And to speak call:

-	TCHAR *variables[] = { _T("var1"), _T("Value 1"), _T("var2"), _T("Value 2"), _T("var3"), _T("Value 3") };

-	Speak_SayExWT("name", hContact, 0, variables, 3);

-*)

-

-const

-  MIID_SPEAK = '{1ef72725-6a83-483b-aa50-8953e359eead}';

-

-  {*

-  Speak a text

-

-  wParam: (HANDLE) hContact

-  lParam: (AnsiChar *) text

-  return: 0 on success

-  *}

-  MS_SPEAK_SAY_A = 'Speak/Say';

-

-  {*

-  Speak a unicode text

-

-  wParam: (HANDLE) hContact

-  lParam: (WCHAR *) text

-  return: 0 on success

-  *}

-  MS_SPEAK_SAY_W = 'Speak/SayW';

-

-type

-  PSPEAK_TYPE = ^TSPEAK_TYPE;

-  TSPEAK_TYPE = record

-    cbSize: integer;

-	  module: PAnsiChar;

-	  name: PAnsiChar;					// Internal type name

-	  description: PAnsiChar;		// Will be translated

-	  icon: PAnsiChar;					// Name off icolib icon

-  	// Aditional data if wants to use add to history services

-	  templates: ^PAnsiChar;    // Each entry is: "Name\nDefault\n%var%\tDescription\n%var%\tDescription\n%var%\tDescription"

-	  numTemplates: integer;

-  end;

-

-const

-  {*

-  Register and speak type

-

-  wParam: (SPEAK_TYPE *) type

-  lParam: 0

-  return: 0 on success

-  *}

-  MS_SPEAK_REGISTER = 'Speak/Register';

-

-const

-  SPEAK_CHAR  = 1;

-  SPEAK_WCHAR = 2;

-

-type

-  PSPEAK_ITEM = ^TSPEAK_ITEM;

-  TSPEAK_ITEM = record

-    cbSize: integer;

-    _type: PAnsiChar;		      // Internal type name

-  	hContact: THandle;

-	  flags: integer;       // SPEAK_*

-	  templateNum: integer;	// -1 to use text

-    case boolean of

-      true:  (text: PAnsiChar);

-      false: (

-        variables: Pointer;

-        numVariables: integer;

-      );

-  end;

-

-const

-  {*

-  Speak a text

-

-  wParam: (SPEAK_ITEM *) Item

-  lParam: 0

-  return: 0 on success

-  *}

-  MS_SPEAK_SAYEX = 'Speak/SayEx';

-

-

-{$IFDEF I_AM_A_CONSTANT_THAT_IS_NEVER_DEFINED_BUT_ALLOWS_THE_CODE_BELOW_NOT_TO_BE_COMMENTED}

-// Helper functions

-

-static int Speak_SayA(HANDLE hContact, const AnsiChar *text)

-{

-	return CallService(MS_SPEAK_SAY_A, (WPARAM) hContact, (LPARAM) text);

-}

-

-static int Speak_SayW(HANDLE hContact, const WCHAR *text)

-{

-	return CallService(MS_SPEAK_SAY_W, (WPARAM) hContact, (LPARAM) text);

-}

-

-static int Speak_Register(AnsiChar *module, AnsiChar *name, AnsiChar *description, AnsiChar *icon)

-{

-	SPEAK_TYPE type;

-

-	if (!ServiceExists(MS_SPEAK_REGISTER))

-		return -1;

-

-	type.cbSize = sizeof(type);

-	type.module = module;

-	type.name = name;

-	type.description = description;

-	type.icon = icon;

-	type.templates = NULL;

-	type.numTemplates = 0;

-

-	return CallService(MS_SPEAK_REGISTER, (WPARAM) &type, 0);

-}

-

-static int Speak_RegisterWT(const AnsiChar *module, const AnsiChar *name, const AnsiChar *description,

-							const AnsiChar *icon, AnsiChar **templates, int numTemplates)

-{

-	SPEAK_TYPE type;

-

-	if (!ServiceExists(MS_SPEAK_REGISTER))

-		return -1;

-

-	type.cbSize = sizeof(type);

-	type.module = module;

-	type.name = name;

-	type.description = description;

-	type.icon = icon;

-	type.templates = templates;

-	type.numTemplates = numTemplates;

-

-	return CallService(MS_SPEAK_REGISTER, (WPARAM) &type, 0);

-}

-

-static int Speak_SayExA(AnsiChar *type, HANDLE hContact, const AnsiChar *text)

-{

-	SPEAK_ITEM item;

-

-	if (!ServiceExists(MS_SPEAK_SAYEX))

-		// Try old service

-		return Speak_SayA(hContact, text);

-

-	item.cbSize = sizeof(item);

-	item.flags = SPEAK_CHAR;

-	item.type = type;

-	item.hContact = hContact;

-	item.templateNum = -1;

-	item.text = text;

-

-	return CallService(MS_SPEAK_SAYEX, (WPARAM) &item, 0);

-}

-

-static int Speak_SayExW(AnsiChar *type, HANDLE hContact, const WCHAR *text)

-{

-	SPEAK_ITEM item;

-

-	if (!ServiceExists(MS_SPEAK_SAYEX))

-		// Try old service

-		return Speak_SayW(hContact, text);

-

-	item.cbSize = sizeof(item);

-	item.flags = SPEAK_WCHAR;

-	item.type = type;

-	item.hContact = hContact;

-	item.templateNum = -1;

-	item.text = text;

-

-	return CallService(MS_SPEAK_SAYEX, (WPARAM) &item, 0);

-}

-

-static int Speak_SayExWTA(AnsiChar *type, HANDLE hContact, int templateNum, AnsiChar **variables, int numVariables)

-{

-	SPEAK_ITEM item;

-

-	if (!ServiceExists(MS_SPEAK_SAYEX))

-		return -1;

-

-	item.cbSize = sizeof(item);

-	item.flags = SPEAK_CHAR;

-	item.type = type;

-	item.hContact = hContact;

-	item.templateNum = templateNum;

-	item.variables = variables;

-	item.numVariables = numVariables;

-

-	return CallService(MS_SPEAK_SAYEX, (WPARAM) &item, 0);

-}

-

-static int Speak_SayExWTW(AnsiChar *type, HANDLE hContact, int templateNum, WCHAR **variables, int numVariables)

-{

-	SPEAK_ITEM item;

-

-	if (!ServiceExists(MS_SPEAK_SAYEX))

-		return -1;

-

-	item.cbSize = sizeof(item);

-	item.flags = SPEAK_WCHAR;

-	item.type = type;

-	item.hContact = hContact;

-	item.templateNum = templateNum;

-	item.variables = variables;

-	item.numVariables = numVariables;

-

-	return CallService(MS_SPEAK_SAYEX, (WPARAM) &item, 0);

-}

-

-

-#ifdef UNICODE

-#  define MS_SPEAK_SAY MS_SPEAK_SAY_W

-#  define Speak_Say Speak_SayW

-#  define Speak_SayEx Speak_SayExW

-#  define Speak_SayExWT Speak_SayExWTW

-#else

-#  define MS_SPEAK_SAY MS_SPEAK_SAY_A

-#  define Speak_Say Speak_SayA

-#  define Speak_SayEx Speak_SayExA

-#  define Speak_SayExWT Speak_SayExWTA

-#endif

-

-{$ENDIF}

-{$ENDIF}