From 7cf7b91bba39bde2274b1e26c1b0ad18d45e4e1c Mon Sep 17 00:00:00 2001 From: Vadim Dashevskiy Date: Thu, 26 Dec 2013 12:59:25 +0000 Subject: langpacks/belarusian: update (by Jebrifor) LangPackMgr.exe update git-svn-id: http://svn.miranda-ng.org/main/trunk@7383 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c --- tools/langpackmgr/Unit1.pas | 34 +++++++++++++++---- tools/langpackmgr/langpackmgr.lps | 70 ++++++++++++++++++++------------------- tools/langpackmgr/unit1.lfm | 35 ++++++++++---------- 3 files changed, 82 insertions(+), 57 deletions(-) (limited to 'tools') 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'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 - + @@ -26,9 +26,9 @@ - - - + + + @@ -50,10 +50,12 @@ + + @@ -62,123 +64,123 @@ - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + diff --git a/tools/langpackmgr/unit1.lfm b/tools/langpackmgr/unit1.lfm index b32e674905..ae62917e23 100644 --- a/tools/langpackmgr/unit1.lfm +++ b/tools/langpackmgr/unit1.lfm @@ -1,24 +1,25 @@ object Form1: TForm1 - Left = 389 - Height = 338 - Top = 232 - Width = 587 + Left = 291 + Height = 340 + Top = 170 + Width = 505 HorzScrollBar.Page = 532 HorzScrollBar.Range = 528 VertScrollBar.Page = 296 VertScrollBar.Range = 283 - BorderStyle = bsDialog Caption = 'Miranda NG Langpack Tools: Editor' - ClientHeight = 338 - ClientWidth = 587 - DragKind = dkDock + ClientHeight = 340 + ClientWidth = 505 + Constraints.MinHeight = 340 + Constraints.MinWidth = 450 OnCreate = FormCreate + OnResize = FormResize LCLVersion = '1.0.14.0' object Memo1: TMemo Left = 136 Height = 128 Top = 40 - Width = 448 + Width = 363 ScrollBars = ssHorizontal TabOrder = 0 WordWrap = False @@ -27,7 +28,7 @@ object Form1: TForm1 Left = 136 Height = 128 Top = 176 - Width = 448 + Width = 363 ScrollBars = ssHorizontal TabOrder = 1 WordWrap = False @@ -53,7 +54,7 @@ object Form1: TForm1 TabOrder = 3 end object ComboBox2: TComboBox - Left = 512 + Left = 427 Height = 21 Top = 8 Width = 72 @@ -70,7 +71,7 @@ object Form1: TForm1 object Button3: TButton Left = 136 Height = 21 - Top = 312 + Top = 315 Width = 56 Caption = 'Copy' OnClick = Button3Click @@ -79,7 +80,7 @@ object Form1: TForm1 object Button4: TButton Left = 200 Height = 21 - Top = 312 + Top = 315 Width = 56 Caption = 'Google' OnClick = Button4Click @@ -88,7 +89,7 @@ object Form1: TForm1 object Button2: TButton Left = 264 Height = 21 - Top = 312 + Top = 315 Width = 56 Caption = 'Find' Enabled = False @@ -96,9 +97,9 @@ object Form1: TForm1 TabOrder = 7 end object Button1: TButton - Left = 541 + Left = 456 Height = 21 - Top = 312 + Top = 315 Width = 43 Caption = 'Save' OnClick = Button1Click @@ -130,7 +131,7 @@ object Form1: TForm1 TabOrder = 9 end object Label1: TLabel - Left = 424 + Left = 363 Height = 14 Top = 15 Width = 61 -- cgit v1.2.3