From 8b8845c8e142c2e70bc0c2785ddf3a91ad3f84bd Mon Sep 17 00:00:00 2001 From: Alexey Kulakov Date: Tue, 3 Jul 2012 07:22:09 +0000 Subject: 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 --- plugins/Pascal_Headers/m_helpers.inc | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'plugins/Pascal_Headers/m_helpers.inc') 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); -- cgit v1.2.3