1 files changed, 2 insertions, 86 deletions
diff --git a/include/delphi/m_langpack.inc b/include/delphi/m_langpack.inc
index 79a828a088..3091b574b3 100644
--- a/include/delphi/m_langpack.inc
+++ b/include/delphi/m_langpack.inc
@@ -26,85 +26,6 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
 const
 
 {
- translates a single string into the user's local language    v0.1.1.0+
- wParam=LANG_* flags
- lParam=(LPARAM)(const AnsiChar*)szEnglish
- returns a pointer to the localised string. If there is no known translation
- it will return szEnglish. The return value does not need to be freed in any way
- Note that the Translate() macro as defined below will crash plugins that are
- loaded into Miranda 0.1.0.1 and earlier. If anyone's actually using one of
- these versions, I pity them.
-}
-  MS_LANGPACK_TRANSLATESTRING:PAnsiChar = 'LangPack/TranslateString';
-(*
-{
- translates a dialog into the user's local language    v0.1.1.0+
- wParam=0
- lParam=(LPARAM)(LANGPACKTRANSLATEDIALOG* )&lptd
- returns 0 on success, nonzero on failure
- This service only knows about the following controls:
- Window titles, STATIC, EDIT, Hyperlink, BUTTON
-}
-type
-  IntArray = array [0..1000] of integer;
-  PLANGPACKTRANSLATEDIALOG = ^TLANGPACKTRANSLATEDIALOG;
-  TLANGPACKTRANSLATEDIALOG = record
-    cbSize        :int;
-    flags         :dword;
-    hwndDlg       :HWND;
-    ignoreControls:^IntArray; // zero-terminated list of control IDs *not* to translate
-  end;
-
-const
-  LPTDF_NOIGNOREEDIT = 1; // translate all edit controls. By default
-                          // non-read-only edit controls are not translated
-  LPTDF_NOTITLE      = 2; //do not translate the title of the dialog
-
-const
- MS_LANGPACK_TRANSLATEDIALOG:PAnsiChar = 'LangPack/TranslateDialog';
-*)
-{
- translates a menu into the user's local language    v0.1.1.0+
- wParam=(WPARAM)(HMENU)hMenu
- lParam=0
- returns 0 on success, nonzero on failure
-}
-  MS_LANGPACK_TRANSLATEMENU:PAnsiChar = 'LangPack/TranslateMenu';
-
-{
- returns the codepage used in the language pack     v0.4.3.0+
- wParam=0
- lParam=0
- returns the codepage stated in the langpack, or CP_ACP if no langpack is present
-}
-  MS_LANGPACK_GETCODEPAGE:PAnsiChar = 'LangPack/GetCodePage';
-
-{
-  returns the locale id associated with the language pack    v0.4.3.0+
-  wParam=0
-  lParam=0
-  returns the Windows locale id stated in the langpack, or LOCALE_USER_DEFAULT if no langpack is present
-}
-  MS_LANGPACK_GETLOCALE:PAnsiChar = 'LangPack/GetLocale';
-
-{
-  returns the strdup/wcsdup of lparam according to the langpack  v0.4.3.0+
-  wParam=0
-  lParam=(LPARAM)(AnsiChar*)source string
-  returns a string converted from AnsiChar* to TCHAR* using the langpack codepage. 
-  This string should be freed using mir_free() then
-}
-  MS_LANGPACK_PCHARTOTCHAR:PAnsiChar = 'LangPack/PcharToTchar';
-
-{
-  initializes the plugin-specific translation context  v0.10.0+
-  wParam=pointer to the langpack handle
-  lParam=PLUGININFOEX* of the caller plugin
-  always returns 0
-}
-  MS_LANGPACK_REGISTER:PAnsiChar = 'LangPack/Register';
-
-{
   reloads langpack
   wParam=0 (ignored)
   lParam=(LPARAM)(TCHAR*)langpack file name or NULL to reload the current one
@@ -114,12 +35,7 @@ const
 
   ME_LANGPACK_CHANGE:PAnsiChar = 'LangPack/Changed';
 
-{
-  retrieves the hLangpack of a plugin by its HINSTANCE
-  wParam = 0 (ignored)
-  lParam = (LPARAM)(HINSTANCE)plugin's base address
-  returns hLangpack if found, or 0 if error occurred
-}
-  MS_LANGPACK_LOOKUPHANDLE:PAnsiChar = 'LangPack/LookupHandle';
+procedure mir_getLP(var pInfo:TPLUGININFOEX; var hLang:int); stdcall;
+                 external CoreDLL name 'mir_getLP';
 
 {$ENDIF}