New core adaptation (Delphi 7 normal compilation)

API headers update

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

1 files changed, 8 insertions, 2 deletions

diff --git a/plugins/Pascal_Headers/m_helpers.inc b/plugins/Pascal_Headers/m_helpers.inc
index e4297b3c16..34351ec63d 100644
--- a/plugins/Pascal_Headers/m_helpers.inc
+++ b/plugins/Pascal_Headers/m_helpers.inc
@@ -3,7 +3,7 @@
 function ProtoServiceExists(const proto,service: PAnsiChar): int;

 

 function CreateVersionString(version:dword;buf:PAnsiChar):PAnsiChar;

-function CreateVersionStringPlugin(pluginInfo:PPluginInfo;buf:PAnsiChar):PAnsiChar;

+function CreateVersionStringPlugin(pluginInfo:PPluginInfoEx;buf:PAnsiChar):PAnsiChar;

 function PLUGIN_MAKE_VERSION(a,b,c,d: Cardinal): int;

 function PLUGIN_CMP_VERSION(verA: LongInt; verB: LongInt): int;

 

@@ -35,6 +35,7 @@ function Translate(sz: PAnsiChar): PAnsiChar;
 function Translatew(sz: PWideChar): PWideChar;

 function TranslateString(const sz: AnsiString): AnsiString;

 function TranslateWideString(const sz:WideString):WideString;

+function TranslateUnicodeString(sz: String): String;{$ifdef FPC}inline;{$endif}

 procedure TranslateDialogDefault(hwndDlg: THandle);

 procedure TranslateMenu(hMenu: HMENU);

 function Langpack_PCharToTChar(astr:PAnsiChar):int_ptr;

@@ -100,7 +101,7 @@ begin
   result:=buf;

 end;

 

-function CreateVersionStringPlugin(pluginInfo:PPluginInfo;buf:PAnsiChar):PAnsiChar;

+function CreateVersionStringPlugin(pluginInfo:PPluginInfoEx;buf:PAnsiChar):PAnsiChar;

 begin

   result:=CreateVersionString(pluginInfo^.version,buf);

 end;

@@ -299,6 +300,11 @@ begin
     CallService(MS_LANGPACK_TRANSLATESTRING, LANG_UNICODE, lParam(sz))));

 end;

 

+function TranslateUnicodeString(sz: String): String;{$ifdef FPC}inline;{$endif}

+begin

+  Result := String(PChar(CallService(MS_LANGPACK_TRANSLATESTRING, LANG_UNICODE, lParam(sz))));

+end;

+

 procedure TranslateDialogDefault(hwndDlg: THandle);

 begin

   TranslateDialog_LP(hwndDlg,hLangpack);