- langpacks/belarusian: updated

- langpackmgr.exe tool and it's sources updated (by Jebifor)

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

2 files changed, 39 insertions, 13 deletions

diff --git a/tools/langpackmgr/Unit1.dfm b/tools/langpackmgr/Unit1.dfm
index 7edf9ac297..e108d9c03d 100644
--- a/tools/langpackmgr/Unit1.dfm
+++ b/tools/langpackmgr/Unit1.dfm
@@ -73,7 +73,7 @@ object Form1: TForm1
   end

   object C: TBitBtn

     Left = 455

-    Top = 64

+    Top = 56

     Width = 27

     Height = 25

     Caption = 'C'

@@ -82,7 +82,7 @@ object Form1: TForm1
   end

   object X: TBitBtn

     Left = 455

-    Top = 127

+    Top = 145

     Width = 27

     Height = 25

     Caption = 'X'

@@ -91,14 +91,14 @@ object Form1: TForm1
   end

   object Edit2: TEdit

     Left = 8

-    Top = 66

+    Top = 58

     Width = 441

     Height = 21

     TabOrder = 6

   end

   object Edit3: TEdit

     Left = 8

-    Top = 129

+    Top = 111

     Width = 441

     Height = 21

     TabOrder = 7

@@ -113,6 +113,23 @@ object Form1: TForm1
     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

+  end

   object OpenDialog1: TOpenDialog

     Left = 192

     Top = 176

diff --git a/tools/langpackmgr/Unit1.pas b/tools/langpackmgr/Unit1.pas
index 2ddb8f0be7..b4c30b6e83 100644
--- a/tools/langpackmgr/Unit1.pas
+++ b/tools/langpackmgr/Unit1.pas
@@ -21,6 +21,8 @@ type
     OpenDialog1: TOpenDialog;

     C: TBitBtn;

     X: TBitBtn;

+    B: TBitBtn;

+    G: TBitBtn;

     procedure FormCreate(Sender: TObject);

     procedure Button1Click(Sender: TObject);

     procedure Button2Click(Sender: TObject);

@@ -31,6 +33,7 @@ type
     procedure refresh;

     procedure read;

     procedure enter(Sender: TObject; var Key: Word; Shift: TShiftState);

+    procedure BClick(Sender: TObject);

 

   private

     { Private declarations }

@@ -41,8 +44,8 @@ type
 var

   Form1: TForm1;

   openDialog : TOpenDialog;

-  full,ustring,tstring,fline,dupes: array [1..7000]  of string;

-  notranslate: array [1..7000] of integer;

+  full,ustring,tstring,fline,dupes: array [1..9999]  of string;

+  notranslate: array [1..9999] of integer;

   translate: textfile;

   bom, bomd, line:string;

   ii,i,it,ie:integer;

@@ -52,6 +55,12 @@ implementation
 

 {$R *.dfm}

 // Открытие файла

+procedure TForm1.BClick(Sender: TObject);

+begin

+ edit2.SelectAll;

+ edit2.CopyToClipboard;

+end;

+

 procedure TForm1.Button1Click(Sender: TObject);

  begin

  chdir(ExtractFilePath(Application.ExeName));

@@ -86,7 +95,7 @@ writeLn(translate, bom);
   if (copy(ustring[i],1,1)='[') and (tstring[i]<>'')

   then begin

         cores:=false;

-        if Button3.caption='DUPES ON' then

+        if Button3.visible=true then

         for idx := 1 to idm do

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

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

@@ -108,14 +117,13 @@ closefile(translate);
 assignfile(translate,ExtractFilePath(opendialog.filename)+'=DUPES=.txt',CP_UTF8);

 rewrite(translate);

 writeLn(translate, bomd);

-//

 // Если строка отсутствует в =СORE=, она запишется в =DUPES=

 for idx := 1 to idm do

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

     begin cores:=false;

     for i := 1 to ie do

-    if dupes[idx]=ustring[i] then  cores:=true;

-    if cores=true then  begin

+    if dupes[idx]=ustring[i] then cores:=true;

+    if cores=false then  begin

      writeLn(translate, dupes[idx]);

      writeLn(translate, dupes[idx+1]);

                         end;

@@ -180,12 +188,12 @@ tstring[notranslate[n]]:=line;
 label2.Caption:=inttostr(ListBox1.ItemIndex+1);

 n:=strtoint(label2.caption);

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

-edit2.SelectAll;

-edit2.CopyToClipboard;

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

 edit3.SetFocus;

 end;

 

+

+

 procedure tform1.read;

 begin

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

@@ -194,7 +202,7 @@ else button3.Visible:=true;
    listbox1.Items.Clear;

    line:='';

    edit3.Text:='';

- for i:= 1 to 7000 do

+ for i:= 1 to 9999 do

  begin

    full[i]:='';

    dupes[i]:='';

@@ -328,5 +336,6 @@ notranslate[listbox1.Items.Count]:=i;
 end;

 end;

 label3.caption:='Untranslate:'+inttostr(listbox1.Items.Count)+' lines.';

+refresh;

 end;

 end.