From bcfe53b305e7348e126e7756b94c61fff16f6f67 Mon Sep 17 00:00:00 2001
From: Vadim Dashevskiy <watcherhd@gmail.com>
Date: Wed, 17 Jul 2013 13:09:58 +0000
Subject: - langpacks/belarusian: updated (by Jebifor)

git-svn-id: http://svn.miranda-ng.org/main/trunk@5397 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 tools/langpackmgr/Unit1.dfm | 59 +++++++++++++++++++++++----------------------
 tools/langpackmgr/Unit1.pas | 18 ++++++++------
 2 files changed, 41 insertions(+), 36 deletions(-)

(limited to 'tools')

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