From 45c5789dd34e1cba557c29483d4f897f4f7b2de0 Mon Sep 17 00:00:00 2001
From: George Hazan <george.hazan@gmail.com>
Date: Mon, 25 Sep 2023 14:10:38 +0300
Subject: =?UTF-8?q?der=20Kode=20im=20Pascal=20mu=C3=9F=20so=20wie=20so=20k?=
 =?UTF-8?q?repieren?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 plugins/ExternalAPI/delphi/m_smileyadd.inc | 88 ------------------------------
 1 file changed, 88 deletions(-)

(limited to 'plugins/ExternalAPI/delphi')

diff --git a/plugins/ExternalAPI/delphi/m_smileyadd.inc b/plugins/ExternalAPI/delphi/m_smileyadd.inc
index 346c03c9e1..e9bc62f724 100644
--- a/plugins/ExternalAPI/delphi/m_smileyadd.inc
+++ b/plugins/ExternalAPI/delphi/m_smileyadd.inc
@@ -52,98 +52,10 @@ type
 const
   MS_SMILEYADD_REPLACESMILEYS:PAnsiChar = 'SmileyAdd/ReplaceSmileys';
 
-{
-  get smiley button icon
-  wParam = (WPARAM) 0; not used
-  lParam = (LPARAM) (SMADD_INFO*) &smgi;  //pointer to SMADD_INFO
-}
-type
-  PSMADD_INFO2 = ^TSMADD_INFO2;
-  TSMADD_INFO2 = record
-    Protocolname          : PAnsiChar;
-    ButtonIcon            : HICON;     // RETURN VALUE: this is filled with the
-     // icon handle of the smiley that can be used on the button
-     // do not destroy! NULL if the buttonicon is not defined...
-    NumberOfVisibleSmileys: int;       // Number of visible smileys defined.
-    NumberOfSmileys       : int;       // Number of total smileys defined
-    hContact              : TMCONTACT; //Contact handle
-  end;
-
-const
-  MS_SMILEYADD_GETINFO2:PAnsiChar = 'SmileyAdd/GetInfo2';
-
 // Event notifies that options have changed
 // Message dialogs usually need to redraw it's content on reception of this event
   ME_SMILEYADD_OPTIONSCHANGED:PAnsiChar = 'SmileyAdd/OptionsChanged';
 
-  SAFL_PATH     = 1;  // provide smiley file path, icon otherwise
-  SAFL_UNICODE  = 2;  // string fields in OPTIONSDIALOGPAGE are WCHAR*
-  SAFL_OUTGOING = 4;  // Parsing outgoing message
-  SAFL_NOCUSTOM = 8;  // Do not use custom smileys
-
-type
-  PSMADD_BATCHPARSE2 = ^TSMADD_BATCHPARSE2;
-  TSMADD_BATCHPARSE2 = record
-    Protocolname:PAnsiChar; // protocol to use... if you have defined a protocol, u can
-                            // use your own protocol name. Smiley add wil automatically
-                            // select the smileypack that is defined for your protocol.
-                            // Or, use "Standard" for standard smiley set. Or "ICQ"
-                            // if you prefer those icons.
-                            // If not found or NULL: "Standard" will be used
-    str         :TChar;     // String to parse
-    flag        :uint;      // One of the SAFL_ flags specifies parsing requirements
-                            // This parameter should be filled by the user
-    numSmileys  :uint;      // Number of Smileys found, this parameter filled by SmileyAdd
-    oflag       :uint;      // One of the SAFL_ flags specifies content of the parse results
-                            // this parameter filled by SmileyAdd
-    hContact    :TMCONTACT; // Contact handle
-  end;
-
-type
-  PSMADD_BATCHPARSERES = ^TSMADD_BATCHPARSERES;
-  TSMADD_BATCHPARSERES = record
-    startChar:uint; // Starting smiley character
-                    // Because of iterative nature of the API caller should
-                    // set this parameter to correct value
-    size     :uint; // Number of characters in smiley (0 if not found)
-                    // Because of iterative nature of the API caller should
-                    // set this parameter to correct value
-    case boolean of
-      false: (filepath:TChar);
-      true:  (hIcon:HICON); // User responsible for destroying icon handle
-  end;
-const
-//find all smileys in text, API parses the provided text and returns all smileys found
-//wParam = (WPARAM) 0; not used
-//lParam = (LPARAM) (SMADD_BATCHPARSE2*) &smgp;  //pointer to SMADD_BATCHPARSE2
-//function returns pointer to array SMADD_BATCHPARSERES records for each smiley found
-//if no smileys found NULL is returned
-//if non NULL value returned pointer must be freed with MS_SMILEYADD_BATCHFREE API
-  MS_SMILEYADD_BATCHPARSE:PAnsiChar = 'SmileyAdd/BatchParse';
-
-//Free memory allocated by MS_SMILEYADD_BATCHPARSE
-//wParam = (WPARAM) 0; not used
-//lParam = (LPARAM) (SMADD_BATCHPARSERES*) &smgp;  //pointer to SMADD_BATCHPARSERES
-  MS_SMILEYADD_BATCHFREE:PAnsiChar = 'SmileyAdd/BatchFree';
-
-type
-  PSMADD_REGCAT = ^TSMADD_REGCAT;
-  TSMADD_REGCAT = record
-    name    :PAnsiChar; // smiley category name for reference
-    dispname:PAnsiChar; // smiley category name for display
-  end;
-
-const
-//Register smiley category
-//wParam = (WPARAM) 0; not used
-//lParam = (LPARAM) (SMADD_REGCAT*) &smgp;  //pointer to SMADD_REGCAT
-  MS_SMILEYADD_REGISTERCATEGORY:PAnsiChar = 'SmileyAdd/RegisterCategory';
-
-//Register smiley category
-//wParam = (WPARAM) 0; not used
-//lParam = (LPARAM) Pointer to protocol name or NULL for all;
-  MS_SMILEYADD_RELOAD:PAnsiChar = 'SmileyAdd/Reload';
-
 {
  NM_FIREVIEWCHANGE is WM_NOTIFY Message for notify parent of host window about smiley are going to be repaint
 
-- 
cgit v1.2.3