summaryrefslogtreecommitdiff
path: root/tools
diff options
context:
space:
mode:
Diffstat (limited to 'tools')
-rw-r--r--tools/langpackmgr/Unit1.pas34
-rw-r--r--tools/langpackmgr/langpackmgr.lps70
-rw-r--r--tools/langpackmgr/unit1.lfm35
3 files changed, 82 insertions, 57 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;
diff --git a/tools/langpackmgr/langpackmgr.lps b/tools/langpackmgr/langpackmgr.lps
index e478dbdbb6..d130412174 100644
--- a/tools/langpackmgr/langpackmgr.lps
+++ b/tools/langpackmgr/langpackmgr.lps
@@ -13,7 +13,7 @@
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="28" Y="18"/>
- <UsageCount Value="33"/>
+ <UsageCount Value="34"/>
<Loaded Value="True"/>
</Unit0>
<Unit1>
@@ -26,9 +26,9 @@
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/>
- <TopLine Value="150"/>
- <CursorPos X="17" Y="162"/>
- <UsageCount Value="33"/>
+ <TopLine Value="300"/>
+ <CursorPos X="10" Y="309"/>
+ <UsageCount Value="34"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
@@ -50,10 +50,12 @@
</Unit3>
<Unit4>
<Filename Value="E:\lazarus\lcl\interfaces\win32\win32listsl.inc"/>
+ <EditorIndex Value="2"/>
<WindowIndex Value="0"/>
<TopLine Value="160"/>
<CursorPos X="1" Y="173"/>
<UsageCount Value="10"/>
+ <Loaded Value="True"/>
</Unit4>
</Units>
<General>
@@ -62,123 +64,123 @@
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="unit1.pas"/>
- <Caret Line="66" Column="29" TopLine="59"/>
+ <Caret Line="202" Column="34" TopLine="182"/>
</Position1>
<Position2>
<Filename Value="unit1.pas"/>
- <Caret Line="290" Column="2" TopLine="279"/>
+ <Caret Line="309" Column="57" TopLine="288"/>
</Position2>
<Position3>
<Filename Value="unit1.pas"/>
- <Caret Line="67" Column="37" TopLine="56"/>
+ <Caret Line="303" Column="35" TopLine="291"/>
</Position3>
<Position4>
<Filename Value="unit1.pas"/>
- <Caret Line="4" Column="45" TopLine="1"/>
+ <Caret Line="304" Column="28" TopLine="292"/>
</Position4>
<Position5>
<Filename Value="unit1.pas"/>
- <Caret Line="53" Column="8" TopLine="32"/>
+ <Caret Line="303" Column="56" TopLine="292"/>
</Position5>
<Position6>
<Filename Value="unit1.pas"/>
- <Caret Line="74" Column="24" TopLine="53"/>
+ <Caret Line="306" Column="12" TopLine="303"/>
</Position6>
<Position7>
<Filename Value="unit1.pas"/>
- <Caret Line="202" Column="34" TopLine="182"/>
+ <Caret Line="312" Column="66" TopLine="173"/>
</Position7>
<Position8>
<Filename Value="unit1.pas"/>
- <Caret Line="309" Column="57" TopLine="288"/>
+ <Caret Line="199" Column="17" TopLine="182"/>
</Position8>
<Position9>
<Filename Value="unit1.pas"/>
- <Caret Line="303" Column="35" TopLine="291"/>
+ <Caret Line="196" Column="17" TopLine="184"/>
</Position9>
<Position10>
<Filename Value="unit1.pas"/>
- <Caret Line="304" Column="28" TopLine="292"/>
+ <Caret Line="287" Column="30" TopLine="269"/>
</Position10>
<Position11>
<Filename Value="unit1.pas"/>
- <Caret Line="303" Column="56" TopLine="292"/>
+ <Caret Line="259" Column="30" TopLine="248"/>
</Position11>
<Position12>
<Filename Value="unit1.pas"/>
- <Caret Line="306" Column="12" TopLine="303"/>
+ <Caret Line="260" Column="54" TopLine="248"/>
</Position12>
<Position13>
<Filename Value="unit1.pas"/>
- <Caret Line="312" Column="66" TopLine="173"/>
+ <Caret Line="279" Column="52" TopLine="265"/>
</Position13>
<Position14>
<Filename Value="unit1.pas"/>
- <Caret Line="199" Column="17" TopLine="182"/>
+ <Caret Line="259" Column="57" TopLine="248"/>
</Position14>
<Position15>
<Filename Value="unit1.pas"/>
- <Caret Line="196" Column="17" TopLine="184"/>
+ <Caret Line="285" Column="35" TopLine="271"/>
</Position15>
<Position16>
<Filename Value="unit1.pas"/>
- <Caret Line="287" Column="30" TopLine="269"/>
+ <Caret Line="284" Column="35" TopLine="270"/>
</Position16>
<Position17>
<Filename Value="unit1.pas"/>
- <Caret Line="259" Column="30" TopLine="248"/>
+ <Caret Line="67" Column="8" TopLine="55"/>
</Position17>
<Position18>
<Filename Value="unit1.pas"/>
- <Caret Line="260" Column="54" TopLine="248"/>
+ <Caret Line="328" Column="28" TopLine="296"/>
</Position18>
<Position19>
<Filename Value="unit1.pas"/>
- <Caret Line="279" Column="52" TopLine="265"/>
+ <Caret Line="203" Column="26" TopLine="195"/>
</Position19>
<Position20>
<Filename Value="unit1.pas"/>
- <Caret Line="259" Column="57" TopLine="248"/>
+ <Caret Line="204" Column="26" TopLine="196"/>
</Position20>
<Position21>
<Filename Value="unit1.pas"/>
- <Caret Line="285" Column="35" TopLine="271"/>
+ <Caret Line="56" Column="3" TopLine="35"/>
</Position21>
<Position22>
<Filename Value="unit1.pas"/>
- <Caret Line="284" Column="35" TopLine="270"/>
+ <Caret Line="143" Column="59" TopLine="126"/>
</Position22>
<Position23>
<Filename Value="unit1.pas"/>
- <Caret Line="67" Column="8" TopLine="55"/>
+ <Caret Line="137" Column="42" TopLine="125"/>
</Position23>
<Position24>
<Filename Value="unit1.pas"/>
- <Caret Line="328" Column="28" TopLine="296"/>
+ <Caret Line="269" Column="11" TopLine="253"/>
</Position24>
<Position25>
<Filename Value="unit1.pas"/>
- <Caret Line="203" Column="26" TopLine="195"/>
+ <Caret Line="100" Column="31" TopLine="88"/>
</Position25>
<Position26>
<Filename Value="unit1.pas"/>
- <Caret Line="204" Column="26" TopLine="196"/>
+ <Caret Line="109" Column="35" TopLine="94"/>
</Position26>
<Position27>
<Filename Value="unit1.pas"/>
- <Caret Line="34" Column="15" TopLine="73"/>
+ <Caret Line="113" Column="34" TopLine="100"/>
</Position27>
<Position28>
<Filename Value="unit1.pas"/>
- <Caret Line="56" Column="3" TopLine="35"/>
+ <Caret Line="115" Column="41" TopLine="100"/>
</Position28>
<Position29>
<Filename Value="unit1.pas"/>
- <Caret Line="143" Column="59" TopLine="126"/>
+ <Caret Line="307" Column="79" TopLine="297"/>
</Position29>
<Position30>
<Filename Value="unit1.pas"/>
- <Caret Line="137" Column="42" TopLine="125"/>
+ <Caret Line="316" Column="59" TopLine="296"/>
</Position30>
</JumpHistory>
</ProjectSession>
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
generated by cgit v1.2.3 (git 2.25.1) at 2024-12-27 07:22:50 +0000