mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: Zip - translate resource strings

Browse source
This commit is contained in:
Alexander Koblov 2023-02-25 17:21:16 +03:00
commit 735cf33d5b
4 changed files with 86 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

28
plugins/wcx/zip/language/zip.po
View file

@ -36,3 +36,31 @@ msgstr ""
#: tdialogbox.btnOK.caption
msgid "OK"
msgstr ""
#: ziplng.rscompressionmethodstore
msgid "Store"
msgstr ""
#: ziplng.rscompressionmethodoptimal
msgid "Optimal (2x slower)"
msgstr ""
#: ziplng.rscompressionlevelfastest
msgid "Fastest"
msgstr ""
#: ziplng.rscompressionlevelfast
msgid "Fast"
msgstr ""
#: ziplng.rscompressionlevelnormal
msgid "Normal"
msgstr ""
#: ziplng.rscompressionlevelmaximum
msgid "Maximum"
msgstr ""
#: ziplng.rscompressionlevelultra
msgid "Ultra"
msgstr ""

28
plugins/wcx/zip/language/zip.ru.po
View file

@ -36,3 +36,31 @@ msgstr "Отмена"
#: tdialogbox.btnOK.caption
msgid "OK"
msgstr "OK"
#: ziplng.rscompressionmethodstore
msgid "Store"
msgstr "Без сжатия"
#: ziplng.rscompressionmethodoptimal
msgid "Optimal (2x slower)"
msgstr "Оптимальный (медленно)"
#: ziplng.rscompressionlevelfastest
msgid "Fastest"
msgstr "Скоростной"
#: ziplng.rscompressionlevelfast
msgid "Fast"
msgstr "Быстрый"
#: ziplng.rscompressionlevelnormal
msgid "Normal"
msgstr "Нормальный"
#: ziplng.rscompressionlevelmaximum
msgid "Maximum"
msgstr "Максимальный"
#: ziplng.rscompressionlevelultra
msgid "Ultra"
msgstr "Ультра"

4
plugins/wcx/zip/src/ZipFunc.pas
View file

@ -87,7 +87,8 @@ var
implementation
uses
SysUtils, LazUTF8, ZipConfDlg, AbBrowse, DCConvertEncoding, DCOSUtils, ZipOpt;
SysUtils, LazUTF8, ZipConfDlg, AbBrowse, DCConvertEncoding, DCOSUtils, ZipOpt,
ZipLng;
threadvar
gProcessDataProcW : TProcessDataProcW;
@ -509,6 +510,7 @@ begin
gStartupInfo:= StartupInfo^;
// Load configuration from ini file
LoadConfiguration;
TranslateResourceStrings;
end;
{ TAbZipKitEx }

29
plugins/wcx/zip/src/ZipLng.pas
View file

@ -1,9 +1,9 @@
{
Double Commander
-------------------------------------------------------------------------
SevenZip archiver plugin, language support
Zip archiver plugin, language support
Copyright (C) 2014-2015 Alexander Koblov (alexx2000@mail.ru)
Copyright (C) 2023 Alexander Koblov (alexx2000@mail.ru)
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
@ -39,7 +39,32 @@ resourcestring
rsCompressionLevelMaximum = 'Maximum';
rsCompressionLevelUltra = 'Ultra';
procedure TranslateResourceStrings;
implementation
uses
ZipFunc;
function Translate(Name, Value: AnsiString; Hash: LongInt; Arg: Pointer): AnsiString;
var
ALen: Integer;
begin
with gStartupInfo do
begin
SetLength(Result, MaxSmallint);
ALen:= TranslateString(Translation, PAnsiChar(Name), PAnsiChar(Value), PAnsiChar(Result), MaxSmallint);
SetLength(Result, ALen);
end;
end;
procedure TranslateResourceStrings;
begin
if Assigned(gStartupInfo.Translation) then
begin
SetResourceStrings(@Translate, nil);
end;
end;
end.