- langpackmgr tool and source code updated (by Jebifor)

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

5 files changed, 127 insertions, 107 deletions

diff --git a/langpacks/belarusian/Plugins/AIM.txt b/langpacks/belarusian/Plugins/AIM.txt
index b0ed1f56d6..346aeec68e 100644
--- a/langpacks/belarusian/Plugins/AIM.txt
+++ b/langpacks/belarusian/Plugins/AIM.txt
@@ -100,6 +100,8 @@ AIM Усталяваць Instant Idle
 Зайсці

 [&Cancel]

 С&касаваць

+[This allows access to user defined chat rooms. To access predefined chat rooms use web links]

+Гэта дазваляе атрымаць доступ да карыстацкіх чатаў. Каб атрымаць доступ, выкарыстоўвайце спасылкі

 [Change Password]

 Змяніць пароль

 [Original]

@@ -108,6 +110,8 @@ AIM Усталяваць Instant Idle
 Стварыць

 [Repeat]

 Паўтарыць

+[*Passwords don't match.]

+* Паролі не супадаюць.

 [Screen Name]

 Мянушка

 [E-mail]

@@ -149,6 +153,8 @@ AIM Усталяваць Instant Idle
 ;file \protocols\AimOscar\src\error.cpp

 [Mismatched Screen Name or password.]

 Няправільнае імя AIM ці пароль.

+[Unknown error occured when attempting to connect.]

+Пры спробе падлучэння адбылася невядомая памылка.

 ;file \protocols\AimOscar\src\file.cpp

 ;file \protocols\AimOscar\src\links.cpp

 [AIM Link Protocol]

@@ -238,6 +244,12 @@ AIM Усталяваць Instant Idle
 Асноўныя

 [Privacy]

 Прыватнасць

+[Join me in this buddy chat!]

+Далучайцеся да мяне ў гэтым чаце!

 ;file \protocols\AimOscar\src\utility.cpp

 [Please, enter a username in the options dialog.]

 Калі ласка, увядзі імя карыстача ў наладах

+[Please, enter a password in the options dialog.]

+Калі ласка, увядзіце пароль у наладах.

+[Failed to open file: %s %s]

+Памылка адкрыцця файла: %s %s

diff --git a/langpacks/belarusian/Plugins/Facebook.txt b/langpacks/belarusian/Plugins/Facebook.txt
index 01489a8038..d8b4641011 100644
--- a/langpacks/belarusian/Plugins/Facebook.txt
+++ b/langpacks/belarusian/Plugins/Facebook.txt
@@ -22,6 +22,8 @@
 Месца:

 [Visibility:]

 Бачнасць:

+[Share]

+Падзяліцца

 [Cancel]

 Скасаваць

 [User Details]

@@ -80,9 +82,21 @@
 Нестандартныя статусы, як Нябачны (замест 'Далучаны')

 [Enable support for Custom smileys (EXPERIMENTAL + BUGGY!)]

 Падтрымка карыстацкіх смайлаў (Эксперыментальна!)

+[Use local time for received messages]

+Выкарыстоўваць мясцовы час для прынятых паведамленняў

+[Send "Seen" info when marking messages as read]

+"Заўважаны", калі пазначаць паведамленні як прачытаныя

+[Use this server for opening links:]

+Выкарыстоўваць гэты сервер для адкрыцця спасылкі:

 ;file \protocols\FacebookRM\src\communication.cpp

+[Login error: %s]

+Памылка далучэння: %s

 [Unknown error]

 Невядомая памылка

+[Login error: Invalid request.]

+Памылка далучэння: Памылковы запрос.

+[Your account requires HTTPS connection. Activating.]

+Ваш конт патрабуе HTTPS злучэння. Актывацыя.

 ;file \protocols\FacebookRM\src\connection.cpp

 [Please enter a username.]

 Калі ласка, увядзіце імя карыстача.

@@ -130,9 +144,15 @@
 [You cannot send messages when you are offline.]

 Вы не можаце адпраўляць паведамленні без далучэння.

 ;file \protocols\FacebookRM\src\process.cpp

+[Attachments:]

+Дадаткі:

 ;file \protocols\FacebookRM\src\proto.cpp

+[Show Mind Window]

+Статус Facebook

 [%s server connection]

 Далучэнне да сервера %s

+[Unable to get Netlib connection for Facebook]

+Не атрымалася Netlib злучэнне да Facebook

 [Notification]

 Апавяшчэнне

 [News Feed]

@@ -157,11 +177,23 @@
 Праверка запытаў сяброўства...

 [Refreshing buddy list...]

 Абнаўленне спісу сяброў...

+[Do you want to cancel your friendship with '%s'?]

+Хочаце адмяніць сяброўства з '%s'?

 ;file \protocols\FacebookRM\src\theme.cpp

 [Facebook icon]

 Абразок Facebook

 [Mind]

 Меркаванне

+[Poke]

+Тыкнуць

+[Newsfeed]

+Навіны

+[Friendship details]

+Дэталі сяброўства

+[Visit profile]

+Профіль

+[Visit friendship details]

+Дэталі сяброўства

 [Cancel friendship]

 Выдаліць з сяброў

 [Cancel friendship request]

diff --git a/langpacks/tool/langpackmgr.exe b/langpacks/tool/langpackmgr.exe
index 4e8c72bf89..f960bc19a2 100644
--- a/langpacks/tool/langpackmgr.exe
+++ b/langpacks/tool/langpackmgr.exe
diff --git a/tools/langpackmgr/Unit1.dfm b/tools/langpackmgr/Unit1.dfm
index e108d9c03d..9f1c7add32 100644
--- a/tools/langpackmgr/Unit1.dfm
+++ b/tools/langpackmgr/Unit1.dfm
@@ -3,8 +3,8 @@ object Form1: TForm1
   Top = 0

   BorderIcons = [biSystemMenu]

   Caption = 'Miranda NG Langpack Manager'

-  ClientHeight = 219

-  ClientWidth = 684

+  ClientHeight = 293

+  ClientWidth = 710

   Color = clBtnFace

   Font.Charset = DEFAULT_CHARSET

   Font.Color = clWindowText

@@ -32,15 +32,15 @@ object Form1: TForm1
   end

   object Label3: TLabel

     Left = 8

-    Top = 188

-    Width = 3

+    Top = 276

+    Width = 30

     Height = 13

   end

   object ListBox1: TListBox

-    Left = 488

-    Top = 3

-    Width = 193

-    Height = 214

+    Left = 544

+    Top = 8

+    Width = 161

+    Height = 281

     ItemHeight = 13

     TabOrder = 0

     OnClick = ListBox1Click

@@ -63,75 +63,41 @@ object Form1: TForm1
     OnClick = Button1Click

   end

   object Button2: TButton

-    Left = 336

-    Top = 176

+    Left = 392

+    Top = 264

     Width = 146

     Height = 25

     Caption = 'SAVE AND REFRESH'

     TabOrder = 3

     OnClick = Button2Click

   end

-  object C: TBitBtn

-    Left = 455

-    Top = 56

-    Width = 27

-    Height = 25

-    Caption = 'C'

-    TabOrder = 4

-    OnClick = CClick

-  end

   object X: TBitBtn

-    Left = 455

-    Top = 145

+    Left = 511

+    Top = 127

     Width = 27

     Height = 25

     Caption = 'X'

-    TabOrder = 5

+    TabOrder = 4

     OnClick = XClick

   end

-  object Edit2: TEdit

+  object Memo1: TMemo

     Left = 8

-    Top = 58

-    Width = 441

-    Height = 21

-    TabOrder = 6

+    Top = 32

+    Width = 537

+    Height = 89

+    ScrollBars = ssBoth

+    TabOrder = 5

   end

-  object Edit3: TEdit

+  object Memo2: TMemo

     Left = 8

-    Top = 111

-    Width = 441

-    Height = 21

-    TabOrder = 7

-    OnEnter = FormCreate

-  end

-  object Button3: TButton

-    Left = 240

-    Top = 176

-    Width = 75

-    Height = 25

-    Caption = 'DUPES ON'

-    TabOrder = 8

-    OnClick = Button3Click

-  end

-  object B: TBitBtn

-    Left = 455

-    Top = 85

-    Width = 27

-    Height = 25

-    Caption = 'B'

-    TabOrder = 9

-    OnClick = BClick

-  end

-  object G: TBitBtn

-    Left = 455

-    Top = 114

-    Width = 27

-    Height = 25

-    Caption = 'G'

-    TabOrder = 10

+    Top = 160

+    Width = 537

+    Height = 89

+    ScrollBars = ssBoth

+    TabOrder = 6

   end

   object OpenDialog1: TOpenDialog

-    Left = 192

-    Top = 176

+    Left = 352

+    Top = 265

   end

 end

diff --git a/tools/langpackmgr/Unit1.pas b/tools/langpackmgr/Unit1.pas
index b4c30b6e83..3fd8b478ed 100644
--- a/tools/langpackmgr/Unit1.pas
+++ b/tools/langpackmgr/Unit1.pas
@@ -12,21 +12,16 @@ type
     Label2: TLabel;

     Label3: TLabel;

     Edit1: TEdit;

-    Edit2: TEdit;

-    Edit3: TEdit;

     Button1: TButton;

     Button2: TButton;

-    Button3: TButton;

     ListBox1: TListBox;

     OpenDialog1: TOpenDialog;

-    C: TBitBtn;

     X: TBitBtn;

-    B: TBitBtn;

-    G: TBitBtn;

+    Memo1: TMemo;

+    Memo2: TMemo;

     procedure FormCreate(Sender: TObject);

     procedure Button1Click(Sender: TObject);

     procedure Button2Click(Sender: TObject);

-    procedure Button3Click(Sender: TObject);

     procedure ListBox1Click(Sender: TObject);

     procedure CClick(Sender: TObject);

     procedure XClick(Sender: TObject);

@@ -57,8 +52,7 @@ implementation
 // �������� �����

 procedure TForm1.BClick(Sender: TObject);

 begin

- edit2.SelectAll;

- edit2.CopyToClipboard;

+//

 end;

 

 procedure TForm1.Button1Click(Sender: TObject);

@@ -94,18 +88,9 @@ writeLn(translate, bom);
   if copy(ustring[i],1,1)=';' then  writeln(translate,ustring[i]);

   if (copy(ustring[i],1,1)='[') and (tstring[i]<>'')

   then begin

-        cores:=false;

-        if Button3.visible=true then

-        for idx := 1 to idm do

-        if (copy(dupes[idx],1,1)='[')

-        and (dupes[idx]=ustring[i])

-        then cores:=true;

-       if cores=false then

-         begin

           writeln(translate,ustring[i]);

           writeln(translate,tstring[i]);

          end;

-  end;

    end;

 closefile(translate);

 

@@ -134,24 +119,15 @@ closefile(translate);
   read;

 end;

 

-// ���������� ������� ������������� �����

-procedure TForm1.Button3Click(Sender: TObject);

-begin

-if edit1.Text<>'' then

-If Button3.Caption='DUPES OFF'

-then Button3.Caption:='DUPES ON'

-else Button3.Caption:='DUPES OFF';

-refresh;read;refresh;

-end;

 

 procedure TForm1.CClick(Sender: TObject);

 begin

-  Edit3.text:=edit2.text;

+//

 end;

 

 procedure TForm1.XClick(Sender: TObject);

 begin

-  Edit3.text:='';

+  memo2.Lines.Clear;

   tstring[notranslate[strtoint(label2.caption)]]:='';

   refresh;

 end;

@@ -160,12 +136,11 @@ procedure TForm1.enter(Sender: TObject; var Key: Word;
   Shift: TShiftState);

 begin

 case key of

-    vk_return,vk_down: if listbox1.ItemIndex<listbox1.Items.Count then

-    listbox1.ItemIndex:=listbox1.ItemIndex+1;

+    vk_down: if listbox1.ItemIndex<listbox1.Items.Count then

+    begin listbox1.ItemIndex:=listbox1.ItemIndex+1; refresh; end;

     vk_up: if listbox1.ItemIndex>0 then

-    listbox1.ItemIndex:=listbox1.ItemIndex-1;

+    begin listbox1.ItemIndex:=listbox1.ItemIndex-1; refresh; end;

 end;

-refresh;

 end;

 

 procedure TForm1.ListBox1Click(Sender: TObject);

@@ -179,29 +154,65 @@ begin
 end;

 

 procedure tform1.refresh;

-var n:integer;

+var m,n:integer;

 begin

+memo1.Lines.Clear;

 n:=strtoint(label2.caption);

-line:=edit3.Text;

-if length(line)<>0 then

-tstring[notranslate[n]]:=line;

+//

+if memo2.Lines.Count=memo1.Lines.Count then

+tstring[notranslate[n]]:='';

+for I := 0 to memo2.Lines.Count-1 do

+begin

+tstring[notranslate[n]]:=tstring[notranslate[n]]+memo2.Lines[i];

+if i<memo2.Lines.Count-1 then

+tstring[notranslate[n]]:=tstring[notranslate[n]]+'\n';

+end;

+

+

+//

 label2.Caption:=inttostr(ListBox1.ItemIndex+1);

 n:=strtoint(label2.caption);

-edit2.Text:=copy(ustring[notranslate[n]],2,length(ustring[notranslate[n]])-2);

-edit3.Text:=tstring[notranslate[n]];

-edit3.SetFocus;

+memo2.Lines.Clear;

+//

+if tstring[notranslate[n]]<>'' then

+begin

+m:=1;

+for i := 1 to length(copy(tstring[notranslate[n]],2,length(tstring[notranslate[n]])-2))-1 do

+begin

+  if copy(copy(tstring[notranslate[n]],2,length(tstring[notranslate[n]])-2),i,2)='\n' then

+  begin

+  memo2.Lines.Add(copy(copy(tstring[notranslate[n]],2,length(tstring[notranslate[n]])-2),m,i-m));

+  m:=i+2;

+  end;

+end;

+  if m=1 then   memo2.Lines.Add(copy(tstring[notranslate[n]],2,length(tstring[notranslate[n]])-2))

+  else memo2.Lines.Add(copy(copy(tstring[notranslate[n]],2,length(tstring[notranslate[n]])-2),

+  m,length(copy(tstring[notranslate[n]],2,length(tstring[notranslate[n]])-2))-m+1));

+end;

+//

+m:=1;

+for i := 1 to length(copy(ustring[notranslate[n]],2,length(ustring[notranslate[n]])-2))-1 do

+begin

+  if copy(copy(ustring[notranslate[n]],2,length(ustring[notranslate[n]])-2),i,2)='\n' then

+  begin

+  memo1.Lines.Add(copy(copy(ustring[notranslate[n]],2,length(ustring[notranslate[n]])-2),m,i-m));

+  m:=i+2;

+  end;

+end;

+  if m=1 then   memo1.Lines.Add(copy(ustring[notranslate[n]],2,length(ustring[notranslate[n]])-2))

+  else memo1.Lines.Add(copy(copy(ustring[notranslate[n]],2,length(ustring[notranslate[n]])-2),

+  m,length(copy(ustring[notranslate[n]],2,length(ustring[notranslate[n]])-2))-m+1));

+//

+

+memo2.SetFocus;

 end;

 

 

 

 procedure tform1.read;

 begin

-if extractfilename(opendialog.filename)='=CORE=.txt'

-then button3.Visible:=false

-else button3.Visible:=true;

    listbox1.Items.Clear;

    line:='';

-   edit3.Text:='';

  for i:= 1 to 9999 do

  begin

    full[i]:='';

@@ -326,8 +337,7 @@ if (extractfilename(opendialog.filename)='=CORE=.txt') and (idm>0) then
      for idx := 1 to idm do

        if dupes[idx]=ustring[i] then tstring[i]:=dupes[idx+1];

 if (extractfilename(opendialog.filename)<>'=CORE=.txt') and (idm>0)

-and (button3.Caption='DUPES ON') then

-   for idx := 1 to idm do

+then for idx := 1 to idm do

        if dupes[idx]=ustring[i] then tstring[i]:=dupes[idx+1];

 if tstring[i]='' then

 begin