langpacks/belarusian: update (by Jebrifor)

LangPackMgr.exe update

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

1 files changed, 28 insertions, 6 deletions

diff --git a/tools/langpackmgr/Unit1.pas b/tools/langpackmgr/Unit1.pas
index 43856e383c..e708bbbee3 100644
--- a/tools/langpackmgr/Unit1.pas
+++ b/tools/langpackmgr/Unit1.pas
@@ -29,6 +29,7 @@ type
     procedure combobox1change(sender: tobject);

     procedure ComboBox2Change(Sender: TObject);

     procedure formcreate(sender: tobject);

+    procedure FormResize(Sender: TObject);

     procedure listbox1click(sender: tobject);

     procedure listbox2click(sender: tobject);

     procedure stringview;

@@ -93,6 +94,25 @@ trline:=TstringList.Create;
     end;

 end;

 

+procedure tform1.FormResize(Sender: TObject);

+begin

+  combobox2.Left:=form1.Width-78;

+  label1.left:=form1.Width-140;

+  button1.Left:=form1.width-48;

+  memo1.Width:=form1.Width-140;

+  memo2.Width:=form1.Width-140;

+

+  button1.top:=form1.Height-25;

+  button2.top:=form1.Height-25;

+  button3.top:=form1.Height-25;

+  button4.top:=form1.Height-25;

+  listbox.height:=form1.Height-42;

+

+  memo1.Height:=Trunc((form1.Height-80)/2);

+  memo2.Height:=Trunc((form1.Height-80)/2);

+  memo2.top:=44+memo1.Height;

+end;

+

 procedure tform1.stringlist;

  var llist:TStringList;

   begin

@@ -284,12 +304,14 @@ procedure tform1.Button4Click(Sender: TObject);
    if  locale='spanish' then str:=str+'es/';

    if  locale='turkish' then str:=str+'tr/';

    if  locale='ukrainian' then str:=str+'uk/';

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

-      begin

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

-           if i<memo1.Lines.Count-1 then

-              str:=str+'+%0A+';

-      end;

+   if combobox1.Text<>'english' then str:=str+listbox.items[listbox.itemindex]

+   else     begin

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

+                begin

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

+                     if i<memo1.Lines.Count-1 then str:=str+'+%0A+';

+                end;

+            end;

    ShellExecute(0, 'open',PChar(str), nil, nil, SW_SHOW);

 end;