- langpacks/belarusian: updated (by Jebifor)

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

2 files changed, 41 insertions, 36 deletions

diff --git a/tools/langpackmgr/Unit1.dfm b/tools/langpackmgr/Unit1.dfm
index a12fd571b5..a854b4bd2d 100644
--- a/tools/langpackmgr/Unit1.dfm
+++ b/tools/langpackmgr/Unit1.dfm
@@ -4,7 +4,7 @@ object Form1: TForm1
   BiDiMode = bdLeftToRight

   BorderIcons = [biSystemMenu, biMinimize]

   Caption = 'Miranda NG Langpack Manager'

-  ClientHeight = 310

+  ClientHeight = 323

   ClientWidth = 679

   Color = clBtnFace

   Font.Charset = DEFAULT_CHARSET

@@ -19,45 +19,45 @@ object Form1: TForm1
   PixelsPerInch = 96

   TextHeight = 13

   object Label1: TLabel

-    Left = 0

-    Top = 7

+    Left = 8

+    Top = 19

     Width = 20

     Height = 13

     Caption = 'File:'

   end

   object Label2: TLabel

-    Left = 296

-    Top = 7

+    Left = 328

+    Top = 19

     Width = 6

     Height = 13

     Caption = '1'

   end

   object Label3: TLabel

-    Left = 323

-    Top = 7

+    Left = 356

+    Top = 19

     Width = 3

     Height = 13

   end

   object ListBox1: TListBox

-    Left = 480

-    Top = 33

+    Left = 478

+    Top = 38

     Width = 193

-    Height = 275

+    Height = 277

     ItemHeight = 13

     TabOrder = 0

     OnClick = ListBox1Click

   end

   object Edit1: TEdit

     Left = 37

-    Top = 4

-    Width = 156

+    Top = 11

+    Width = 204

     Height = 21

     Enabled = False

     TabOrder = 1

   end

   object Button1: TButton

-    Left = 215

-    Top = 0

+    Left = 247

+    Top = 7

     Width = 75

     Height = 25

     Caption = 'OPEN'

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

   object Button2: TButton

     Left = 480

-    Top = 2

+    Top = 7

     Width = 193

     Height = 25

     Caption = 'SAVE AND REFRESH'

@@ -74,8 +74,8 @@ object Form1: TForm1
     OnClick = Button2Click

   end

   object C: TBitBtn

-    Left = 0

-    Top = 283

+    Left = 8

+    Top = 290

     Width = 27

     Height = 25

     Hint = 'Copy Original'

@@ -86,8 +86,8 @@ object Form1: TForm1
     OnClick = CClick

   end

   object X: TBitBtn

-    Left = 66

-    Top = 283

+    Left = 74

+    Top = 290

     Width = 27

     Height = 25

     Hint = 'Clear Translate'

@@ -98,8 +98,8 @@ object Form1: TForm1
     OnClick = XClick

   end

   object G: TBitBtn

-    Left = 33

-    Top = 283

+    Left = 41

+    Top = 290

     Width = 27

     Height = 25

     Hint = 'Google Translator'

@@ -110,24 +110,24 @@ object Form1: TForm1
     OnClick = GClick

   end

   object Memo1: TMemo

-    Left = 0

-    Top = 31

-    Width = 474

+    Left = 8

+    Top = 38

+    Width = 466

     Height = 120

     ScrollBars = ssBoth

     TabOrder = 7

   end

   object Memo2: TMemo

-    Left = 0

-    Top = 157

-    Width = 474

+    Left = 8

+    Top = 156

+    Width = 466

     Height = 120

     ScrollBars = ssBoth

     TabOrder = 8

   end

   object T: TBitBtn

     Left = 447

-    Top = 283

+    Top = 290

     Width = 27

     Height = 25

     Hint = 'Enable On Top'

@@ -138,6 +138,7 @@ object Form1: TForm1
     OnClick = TClick

   end

   object OpenDialog1: TOpenDialog

-    Left = 456

+    Left = 448

+    Top = 7

   end

 end

diff --git a/tools/langpackmgr/Unit1.pas b/tools/langpackmgr/Unit1.pas
index 0d077710b6..eea9890b32 100644
--- a/tools/langpackmgr/Unit1.pas
+++ b/tools/langpackmgr/Unit1.pas
@@ -84,6 +84,7 @@ end;
 procedure TForm1.Button2Click(Sender: TObject);

 begin

 refresh;

+memo2.Lines.Clear;

 assignfile(translate,opendialog.filename,CP_UTF8);

 rewrite(translate);

 writeLn(translate, bom);

@@ -138,7 +139,7 @@ end;
 procedure TForm1.GClick(Sender: TObject);

 var str:string;

  begin

- str:='http://translate.google.com/?hl=&ie=&langpair=auto&text=';

+ str:='http://translate.google.com/?hl=&ie=&langpair=en&text=';

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

 begin

 str:=str+memo1.Lines[i];

@@ -253,15 +254,18 @@ begin
 closefile(translate);

 

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

-begin

 assignfile(translate,ExtractFilePath(Application.ExeName)+

-'\..\english\'+extractfilename(opendialog.filename),CP_UTF8);

-end

+'\..\english\'+extractfilename(opendialog.filename),CP_UTF8)

 else

-begin

+  if fileexists(ExtractFilePath(Application.ExeName)+

+'\..\english\plugins\'+extractfilename(opendialog.filename)) then

 assignfile(translate,ExtractFilePath(Application.ExeName)+

-'\..\english\plugins\'+extractfilename(opendialog.filename),CP_UTF8);

-end;

+'\..\english\plugins\'+extractfilename(opendialog.filename),CP_UTF8)

+else

+  if fileexists(ExtractFilePath(Application.ExeName)+

+'\..\english\weather\'+extractfilename(opendialog.filename)) then

+assignfile(translate,ExtractFilePath(Application.ExeName)+

+'\..\english\weather\'+extractfilename(opendialog.filename),CP_UTF8);

    reset(translate);

    ReadLn(translate, bom);

    ie:=0;