From 7acd60188e06cde1d82fa2c4774eba8e5dc7b000 Mon Sep 17 00:00:00 2001
From: Vadim Dashevskiy <watcherhd@gmail.com>
Date: Fri, 20 Dec 2013 10:45:02 +0000
Subject: LangPackMgr update (from Jebifor)
git-svn-id: http://svn.miranda-ng.org/main/trunk@7295 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
tools/langpackmgr/Unit1.pas | 284 +++++++++++++++++++++-----------------
tools/langpackmgr/langpackmgr.lpr | 4 +-
tools/langpackmgr/langpackmgr.lps | 96 +++++++------
tools/langpackmgr/unit1.lfm | 16 +--
4 files changed, 224 insertions(+), 176 deletions(-)
(limited to 'tools')
diff --git a/tools/langpackmgr/Unit1.pas b/tools/langpackmgr/Unit1.pas
index 6de5df25fc..86a7dae5ed 100644
--- a/tools/langpackmgr/Unit1.pas
+++ b/tools/langpackmgr/Unit1.pas
@@ -15,7 +15,7 @@ type
button2: tbutton;
button3: tbutton;
button4: tbutton;
- CheckBox1: TCheckBox;
+ Label1: TLabel;
memo1: tmemo;
memo2: tmemo;
listbox: tlistbox;
@@ -43,7 +43,9 @@ type
var
form1: tform1;
- locale: string;
+
+ view,locale: string;
+ trlang,trline: TStringList;
z,j,i,l:integer;
sr:tsearchrec;
res:integer;
@@ -51,7 +53,7 @@ var
u:array[0..6000] of integer;
first:string;
filename:string;
- im,m:integer;
+ m:integer;
sse:string;
implementation
@@ -59,8 +61,37 @@ implementation
{ tform1 }
+procedure tform1.formcreate(sender: tobject);
+ var sr:tsearchrec; res:integer;
+begin
+view:='english';
+trlang:=TstringList.Create;
+trline:=TstringList.Create;
+ if (paramstr(1)='-r') then
+ begin
+ form1.caption:='Miranda NG Langpack Tools: Replacer';
+ end
+ else
+ begin
+ res:=findfirst(extractfilepath(application.exename)+'*',faanyfile,sr);
+ while res = 0 do
+ begin
+ if ((sr.attr and fadirectory)=fadirectory)
+ and ((sr.name='.')or(sr.name='..')) then
+ begin res:=findnext(sr); continue; end;
+ if ((sr.attr and fadirectory)=fadirectory)
+ and (fileexists(extractfilepath(application.exename)+
+ '/'+sr.name+'/=head=.txt')) and (sr.name<>'english') then
+ begin
+ ListBox.items.add(sr.name);
+ trlang.add(sr.name);
+ end;
+ res:=findnext(sr);
+ end;
+ SysUtils.FindClose(sr);
-
+ end;
+end;
procedure tform1.stringlist;
var llist:TStringList;
@@ -103,15 +134,17 @@ procedure tform1.stringlist;
procedure tform1.stringview;
begin
- sse:=copy(s[0,u[listbox.itemindex]],2,
- length(s[0,u[listbox.itemindex]])-2);
+ for i:=0 to combobox2.items.count-1 do
+ if view=combobox2.Items[i] then
+ combobox2.itemindex:=i;
+ sse:=trline[combobox2.ItemIndex];
m:=1;
- for im := 1 to length(sse)-1 do
+ for i := 1 to length(sse)-1 do
begin
- if copy(sse,im,2)='\n' then
+ if copy(sse,i,2)='\n' then
begin
- memo1.Lines.Add(copy(sse,m,im-m));
- m:=im+2;
+ memo1.Lines.Add(copy(sse,m,i-m));
+ m:=i+2;
end;
end;
memo2.Lines.Clear;
@@ -121,94 +154,73 @@ procedure tform1.stringview;
if s[1,u[listbox.itemindex]]<>'' then
begin
m:=1;
- for im := 1 to length(s[1,u[listbox.itemindex]])-1 do
+ for i := 1 to length(s[1,u[listbox.itemindex]])-1 do
begin
- if copy(s[1,u[listbox.itemindex]],im,2)='\n' then
+ if copy(s[1,u[listbox.itemindex]],i,2)='\n' then
begin
- memo2.Lines.Add(copy(s[1,u[listbox.itemindex]],m,im-m));
- m:=im+2;
+ memo2.Lines.Add(copy(s[1,u[listbox.itemindex]],m,i-m));
+ m:=i+2;
end;
end;
if m=1 then memo2.Lines.Add(s[1,u[listbox.itemindex]])
else memo2.Lines.Add(copy(s[1,u[listbox.itemindex]],m,
length(s[1,u[listbox.itemindex]])-m+2));
end;
- end;
+ end;
procedure tform1.savestring;
var sa:integer;
-begin
- s[1,u[l]]:='';
- for sa:=0 to memo2.Lines.Count-1 do
- begin
- s[1,u[l]]:=s[1,u[l]]+memo2.Lines[sa];
- if sa<>memo2.Lines.Count-1 then s[1,u[l]]:=s[1,u[l]]+'\n';
- end;
-end;
-
-procedure tform1.formcreate(sender: tobject);
- var
- sr:tsearchrec;
- res:integer;
-begin
- if (paramstr(1)='-r') then
- begin
- form1.caption:='Miranda NG Langpack Tools: Replacer';
-
- end else
begin
- res:=findfirst(extractfilepath(application.exename)+'*',faanyfile,sr);
- while res = 0 do
- begin
- if ((sr.attr and fadirectory)=fadirectory)
- and ((sr.name='.')or(sr.name='..')) then
- begin res:=findnext(sr); continue; end;
- if ((sr.attr and fadirectory)=fadirectory)
- and (fileexists(extractfilepath(application.exename)+
- '/'+sr.name+'/=head=.txt')) and (sr.name<>'english') then
- ListBox.items.add(sr.name);
- res:=findnext(sr);
- end;
- SysUtils.FindClose(sr);
-end;
-
-end;
+ s[1,u[l]]:='';
+ for sa:=0 to memo2.Lines.Count-1 do
+ begin
+ s[1,u[l]]:=s[1,u[l]]+memo2.Lines[sa];
+ if sa<>memo2.Lines.Count-1 then s[1,u[l]]:=s[1,u[l]]+'\n';
+ end;
+ end;
procedure tform1.combobox1change(sender: tobject);
- var
- f:textfile;
+ var f:textfile;
begin
if not FileExists(extractfilePath(application.exename)
+'/'+locale+'/'+combobox1.items[combobox1.itemindex]+'.txt')
- then
+ then
begin
- assignfile(f,extractfilePath(application.exename)
- +'/'+locale+'/'+combobox1.items[combobox1.itemindex]+'.txt');
- rewrite(f);
- closefile(f);
+ assignfile(f,extractfilePath(application.exename)
+ +'/'+locale+'/'+combobox1.items[combobox1.itemindex]+'.txt');
+ rewrite(f);
+ closefile(f);
end;
- stringlist;
- memo1.lines.clear;
- memo2.lines.clear;
+ stringlist;
+ memo1.lines.clear;
+ memo2.lines.clear;
end;
procedure tform1.ComboBox2Change(Sender: TObject);
begin
-
+ view:=combobox2.Text;
+ if (listbox.items.count>0) and (combobox1.items.count>0) then
+ begin
+ savestring;
+ memo1.lines.Clear;
+ memo2.lines.Clear;
+ stringview;
+ end;
end;
procedure tform1.Button1Click(Sender: TObject);
var sList:TStringList;
- begin
- savestring;
- sList:=TstringList.Create;
- sList.add(first);
- for i := 0 to j do
- begin
- if copy(s[0,i],1,1)=';' then
- sList.add(s[0,i]);
- if s[1,i]<>'' then
- begin
+begin
+ savestring;
+ memo1.lines.Clear;
+ memo2.lines.Clear;
+ sList:=TstringList.Create;
+ sList.add(first);
+ for i := 0 to j do
+ begin
+ if copy(s[0,i],1,1)=';' then sList.add(s[0,i]);
+ if s[1,i]<>'' then
+ begin
sList.add(s[0,i]);
sList.add(s[1,i]);
end
@@ -223,11 +235,32 @@ procedure tform1.Button1Click(Sender: TObject);
sList.SavetoFile(extractfilePath(application.exename)
+'/'+locale+'/'+filename+'.txt');
sList.free;
- stringview;
+ stringlist;
+end;
+
+procedure tform1.Button2Click(Sender: TObject);
+ var search:TStringList; q:integer;
+begin
+ search:=TstringList.Create;
+ search.LoadFromFile(extractfilePath(application.exename)+
+ '/'+locale+'/'+'Langpack_'+locale+'.txt');
+ for q := 0 to listbox.items.Count-1 do
+ for i := 1 to search.count-1 do
+ if (s[0,u[q]]=search[i])and(copy(search[i+1],1,1)<>'[')then
+ begin
+ s[1,u[q]]:=search[i+1];
+ break;
+ end;
+ search.free;
+end;
+
+procedure tform1.Button3Click(Sender: TObject);
+begin
+ memo2.lines:=memo1.lines;
end;
procedure tform1.Button4Click(Sender: TObject);
- var str:utf8string; i:integer;
+ var str:widestring; i:integer;
begin
str:='http://translate.google.com/?hl=&ie=yhgg#auto/';
if locale='belarusian' then str:=str+'be/';
@@ -253,52 +286,56 @@ procedure tform1.Button4Click(Sender: TObject);
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+';
+ str:=str+memo1.Lines[i];
+ if i<memo1.Lines.Count-1 then
+ str:=str+'+%0A+';
end;
ShellExecute(0, 'open',PChar(str), nil, nil, SW_SHOW);
end;
-procedure tform1.Button2Click(Sender: TObject);
- var search:TStringList;
-q:integer;
-begin
-search:=TstringList.Create;
-search.LoadFromFile(extractfilePath(application.exename)+
-'/'+locale+'/'+'Langpack_'+locale+'.txt');
-for q := 0 to listbox.items.Count-1 do
-for i := 1 to search.count-1 do
- if (s[0,u[q]]=search[i])and(copy(search[i+1],1,1)<>'[')then
- begin
- s[1,u[q]]:=search[i+1];
- break;
- end;
-search.free;
-end;
-
-procedure tform1.Button3Click(Sender: TObject);
-begin
-memo2.lines:=memo1.lines;
-end;
-
procedure tform1.ListBox1Click(sender: tobject);
+var search:TStringList; r:integer;
begin
if (form1.caption<>'Miranda NG Langpack Tools: Editor')
then
begin
savestring;
+ search:=tstringlist.Create;
+ combobox2.items.clear;
+ trline.Clear;
+ combobox2.items.add('english');
+ trline.add(copy(s[0,u[listbox.itemindex]],2,
+ length(s[0,u[listbox.itemindex]])-2));
+ for i:=0 to trlang.count-1 do
+ begin
+ if (fileexists(extractfilepath(application.exename)+
+ '/'+trlang[i]+'/'+filename+'.txt'))
+ and(trlang[i]<>locale) then
+ begin
+ search.LoadFromFile(extractfilepath(application.exename)+
+ '/'+trlang[i]+'/'+filename+'.txt');
+ for r:=1 to search.Count-2 do
+ if (search[r]=s[0,u[listbox.itemindex]])
+ and (search[r+1]<>'')
+ and (search[r+1]<>'[')
+ and (search[r+1]<>';')
+ then begin
+ combobox2.items.add(trlang[i]);
+ trline.add(search[r+1]);
+ break;
+ end;
+ end;
+ end;
+ search.free;
+ combobox2.itemindex:=0;
memo1.lines.clear;
memo2.lines.clear;
-{}
stringview;
end;
end;
procedure tform1.listbox2click(sender: tobject);
- var
- sr:tsearchrec;
- res:integer;
+ var sr:tsearchrec; res:integer;
begin
if form1.caption='Miranda NG Langpack Tools: Editor'
then
@@ -308,30 +345,29 @@ begin
ListBox.items.clear;
combobox1.items.add('=CORE=');
res:=findfirst(extractfilepath(application.exename)
- +'\english\plugins\*.txt', faanyfile, sr);
- while res = 0 do
- begin
- combobox1.items.add('plugins\'+copy(extractfilename(sr.name),1,
- length(extractfilename(sr.name))-4));
- res:=findnext(sr);
- end;
- SysUtils.FindClose(sr);
- res:=findfirst(extractfilepath(application.exename)
- +'\english\weather\*.txt', faanyfile, sr);
- while res = 0 do
- begin
- combobox1.items.add('weather\'+copy(extractfilename(sr.name),1,
- length(extractfilename(sr.name))-4));
- res:=findnext(sr);
- end;
- SysUtils.FindClose(sr);
+ +'\english\plugins\*.txt', faanyfile, sr);
+ while res = 0 do
+ begin
+ combobox1.items.add('plugins\'+copy(extractfilename(sr.name),1,
+ length(extractfilename(sr.name))-4));
+ res:=findnext(sr);
+ end;
+ SysUtils.FindClose(sr);
+ res:=findfirst(extractfilepath(application.exename)
+ +'\english\weather\*.txt', faanyfile, sr);
+ while res = 0 do
+ begin
+ combobox1.items.add('weather\'+copy(extractfilename(sr.name),1,
+ length(extractfilename(sr.name))-4));
+ res:=findnext(sr);
+ end;
+ SysUtils.FindClose(sr);
+ combobox1.itemindex:=0;
+ stringlist;
+ if (fileexists(extractfilePath(application.exename)+'/'+locale+'/'
+ +'Langpack_'+locale+'.txt')) then button2.Enabled:=true;
end;
- combobox1.itemindex:=0;
- stringlist;
- if (fileexists(extractfilePath(application.exename)+'/'+locale+'/'
- +'Langpack_'+locale+'.txt')) then button2.Enabled:=true;
-
end;
end.
diff --git a/tools/langpackmgr/langpackmgr.lpr b/tools/langpackmgr/langpackmgr.lpr
index 2de2b5decd..3e8e7cf2ea 100644
--- a/tools/langpackmgr/langpackmgr.lpr
+++ b/tools/langpackmgr/langpackmgr.lpr
@@ -7,8 +7,8 @@ uses
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
- Forms, unit1
- { you can add units after this };
+ Forms, unit1;
+
{$R *.res}
diff --git a/tools/langpackmgr/langpackmgr.lps b/tools/langpackmgr/langpackmgr.lps
index e6fe26509f..e478dbdbb6 100644
--- a/tools/langpackmgr/langpackmgr.lps
+++ b/tools/langpackmgr/langpackmgr.lps
@@ -4,17 +4,16 @@
<PathDelim Value="\"/>
<Version Value="9"/>
<BuildModes Active="Default"/>
- <Units Count="4">
+ <Units Count="5">
<Unit0>
<Filename Value="langpackmgr.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="langpackmgr"/>
- <IsVisibleTab Value="True"/>
<EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
- <CursorPos X="1" Y="1"/>
- <UsageCount Value="29"/>
+ <CursorPos X="28" Y="18"/>
+ <UsageCount Value="33"/>
<Loaded Value="True"/>
</Unit0>
<Unit1>
@@ -24,148 +23,163 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="unit1"/>
+ <IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/>
- <TopLine Value="312"/>
- <CursorPos X="59" Y="333"/>
- <UsageCount Value="29"/>
+ <TopLine Value="150"/>
+ <CursorPos X="17" Y="162"/>
+ <UsageCount Value="33"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
+ <Filename Value="unit2.pas"/>
+ <UnitName Value="Unit2"/>
+ <WindowIndex Value="0"/>
+ <TopLine Value="30"/>
+ <CursorPos X="1" Y="3"/>
+ <UsageCount Value="21"/>
+ </Unit2>
+ <Unit3>
<Filename Value="E:\lazarus\lcl\interfaces\win32\win32int.pp"/>
<UnitName Value="Win32Int"/>
<WindowIndex Value="0"/>
<TopLine Value="85"/>
<CursorPos X="26" Y="27"/>
<UsageCount Value="10"/>
- </Unit2>
- <Unit3>
+ </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"/>
- </Unit3>
+ </Unit4>
</Units>
<General>
<ActiveWindowIndexAtStart Value="0"/>
</General>
- <JumpHistory Count="28" HistoryIndex="27">
+ <JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="unit1.pas"/>
- <Caret Line="239" Column="7" TopLine="225"/>
+ <Caret Line="66" Column="29" TopLine="59"/>
</Position1>
<Position2>
<Filename Value="unit1.pas"/>
- <Caret Line="238" Column="20" TopLine="225"/>
+ <Caret Line="290" Column="2" TopLine="279"/>
</Position2>
<Position3>
<Filename Value="unit1.pas"/>
- <Caret Line="31" Column="25" TopLine="24"/>
+ <Caret Line="67" Column="37" TopLine="56"/>
</Position3>
<Position4>
<Filename Value="unit1.pas"/>
- <Caret Line="57" Column="28" TopLine="45"/>
+ <Caret Line="4" Column="45" TopLine="1"/>
</Position4>
<Position5>
<Filename Value="unit1.pas"/>
- <Caret Line="56" Column="14" TopLine="38"/>
+ <Caret Line="53" Column="8" TopLine="32"/>
</Position5>
<Position6>
<Filename Value="unit1.pas"/>
- <Caret Line="241" Column="12" TopLine="237"/>
+ <Caret Line="74" Column="24" TopLine="53"/>
</Position6>
<Position7>
<Filename Value="unit1.pas"/>
- <Caret Line="233" Column="1" TopLine="232"/>
+ <Caret Line="202" Column="34" TopLine="182"/>
</Position7>
<Position8>
<Filename Value="unit1.pas"/>
- <Caret Line="275" Column="15" TopLine="259"/>
+ <Caret Line="309" Column="57" TopLine="288"/>
</Position8>
<Position9>
<Filename Value="unit1.pas"/>
- <Caret Line="187" Column="4" TopLine="46"/>
+ <Caret Line="303" Column="35" TopLine="291"/>
</Position9>
<Position10>
<Filename Value="unit1.pas"/>
- <Caret Line="217" Column="14" TopLine="193"/>
+ <Caret Line="304" Column="28" TopLine="292"/>
</Position10>
<Position11>
<Filename Value="unit1.pas"/>
- <Caret Line="323" Column="14" TopLine="304"/>
+ <Caret Line="303" Column="56" TopLine="292"/>
</Position11>
<Position12>
<Filename Value="unit1.pas"/>
- <Caret Line="104" Column="16" TopLine="95"/>
+ <Caret Line="306" Column="12" TopLine="303"/>
</Position12>
<Position13>
<Filename Value="unit1.pas"/>
- <Caret Line="323" Column="3" TopLine="304"/>
+ <Caret Line="312" Column="66" TopLine="173"/>
</Position13>
<Position14>
<Filename Value="unit1.pas"/>
- <Caret Line="92" Column="41" TopLine="78"/>
+ <Caret Line="199" Column="17" TopLine="182"/>
</Position14>
<Position15>
<Filename Value="unit1.pas"/>
- <Caret Line="282" Column="4" TopLine="276"/>
+ <Caret Line="196" Column="17" TopLine="184"/>
</Position15>
<Position16>
<Filename Value="unit1.pas"/>
- <Caret Line="283" Column="4" TopLine="277"/>
+ <Caret Line="287" Column="30" TopLine="269"/>
</Position16>
<Position17>
<Filename Value="unit1.pas"/>
- <Caret Line="282" Column="4" TopLine="276"/>
+ <Caret Line="259" Column="30" TopLine="248"/>
</Position17>
<Position18>
<Filename Value="unit1.pas"/>
- <Caret Line="321" Column="35" TopLine="75"/>
+ <Caret Line="260" Column="54" TopLine="248"/>
</Position18>
<Position19>
<Filename Value="unit1.pas"/>
- <Caret Line="64" Column="28" TopLine="48"/>
+ <Caret Line="279" Column="52" TopLine="265"/>
</Position19>
<Position20>
<Filename Value="unit1.pas"/>
- <Caret Line="323" Column="14" TopLine="301"/>
+ <Caret Line="259" Column="57" TopLine="248"/>
</Position20>
<Position21>
<Filename Value="unit1.pas"/>
- <Caret Line="322" Column="14" TopLine="300"/>
+ <Caret Line="285" Column="35" TopLine="271"/>
</Position21>
<Position22>
<Filename Value="unit1.pas"/>
- <Caret Line="329" Column="14" TopLine="307"/>
+ <Caret Line="284" Column="35" TopLine="270"/>
</Position22>
<Position23>
<Filename Value="unit1.pas"/>
- <Caret Line="105" Column="9" TopLine="89"/>
+ <Caret Line="67" Column="8" TopLine="55"/>
</Position23>
<Position24>
<Filename Value="unit1.pas"/>
- <Caret Line="293" Column="2" TopLine="42"/>
+ <Caret Line="328" Column="28" TopLine="296"/>
</Position24>
<Position25>
<Filename Value="unit1.pas"/>
- <Caret Line="31" Column="26" TopLine="19"/>
+ <Caret Line="203" Column="26" TopLine="195"/>
</Position25>
<Position26>
<Filename Value="unit1.pas"/>
- <Caret Line="29" Column="31" TopLine="17"/>
+ <Caret Line="204" Column="26" TopLine="196"/>
</Position26>
<Position27>
<Filename Value="unit1.pas"/>
- <Caret Line="32" Column="29" TopLine="20"/>
+ <Caret Line="34" Column="15" TopLine="73"/>
</Position27>
<Position28>
<Filename Value="unit1.pas"/>
- <Caret Line="33" Column="29" TopLine="21"/>
+ <Caret Line="56" Column="3" TopLine="35"/>
</Position28>
+ <Position29>
+ <Filename Value="unit1.pas"/>
+ <Caret Line="143" Column="59" TopLine="126"/>
+ </Position29>
+ <Position30>
+ <Filename Value="unit1.pas"/>
+ <Caret Line="137" Column="42" TopLine="125"/>
+ </Position30>
</JumpHistory>
</ProjectSession>
</CONFIG>
diff --git a/tools/langpackmgr/unit1.lfm b/tools/langpackmgr/unit1.lfm
index 1f572fc5f7..cf741b9ecd 100644
--- a/tools/langpackmgr/unit1.lfm
+++ b/tools/langpackmgr/unit1.lfm
@@ -57,7 +57,6 @@ object Form1: TForm1
Height = 21
Top = 8
Width = 72
- Enabled = False
ItemHeight = 13
ItemIndex = 0
Items.Strings = (
@@ -130,13 +129,12 @@ object Form1: TForm1
)
TabOrder = 9
end
- object CheckBox1: TCheckBox
- Left = 400
- Height = 17
- Top = 12
- Width = 104
- Caption = 'Other languages:'
- Enabled = False
- TabOrder = 10
+ object Label1: TLabel
+ Left = 448
+ Height = 14
+ Top = 15
+ Width = 61
+ Caption = 'Other langs:'
+ ParentColor = False
end
end
--
cgit v1.2.3