From e5d970c5e1b0dc0c23c67eb09f59235accd6fdc9 Mon Sep 17 00:00:00 2001
From: Vadim Dashevskiy <watcherhd@gmail.com>
Date: Thu, 27 Jun 2013 10:23:51 +0000
Subject: - 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
---
 tools/langpackmgr/Unit1.dfm | 25 +++++++++++++++++++++----
 tools/langpackmgr/Unit1.pas | 27 ++++++++++++++++++---------
 2 files changed, 39 insertions(+), 13 deletions(-)

(limited to 'tools/langpackmgr')

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.
-- 
cgit v1.2.3