diff options
Diffstat (limited to 'tools/langpackmgr/Unit1.pas')
| -rw-r--r-- | tools/langpackmgr/Unit1.pas | 534 |
1 files changed, 256 insertions, 278 deletions
diff --git a/tools/langpackmgr/Unit1.pas b/tools/langpackmgr/Unit1.pas index 978102cfe6..3b3e810edc 100644 --- a/tools/langpackmgr/Unit1.pas +++ b/tools/langpackmgr/Unit1.pas @@ -1,94 +1,204 @@ -unit Unit1;
+unit unit1;
interface
uses
- Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
- Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, ShellApi;
+ classes, sysutils, fileutil, forms, controls, graphics, dialogs, stdctrls,
+ extctrls, Windows;
type
- TForm1 = class(TForm)
- ListBox1: TListBox;
- Memo1: TMemo;
- Memo2: TMemo;
- Button1: TButton;
- Button2: TButton;
- Button3: TButton;
- ComboBox1: TComboBox;
- Button4: TButton;
- procedure ListBox12Click(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- procedure ListBox1Click(Sender: TObject);
- procedure langlist;
- procedure fileslist;
- procedure stringview;
- procedure savestring;
+
+ { tform1 }
+
+ tform1 = class(tform)
+ button1: tbutton;
+ button2: tbutton;
+ button3: tbutton;
+ button4: tbutton;
+ CheckBox1: TCheckBox;
+ memo1: tmemo;
+ memo2: tmemo;
+ listbox: tlistbox;
+ combobox1: tcombobox;
+ combobox2: tcombobox;
+ radiogroup1: tradiogroup;
+ procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
- procedure Button1Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
+ procedure combobox1change(sender: tobject);
+ procedure ComboBox2Change(Sender: TObject);
+ procedure formcreate(sender: tobject);
+ procedure listbox1click(sender: tobject);
+ procedure listbox2click(sender: tobject);
+ procedure stringview;
+ procedure savestring;
+ procedure stringlist;
private
- { Private declarations }
+ { private declarations }
public
- { Public declarations }
+ { public declarations }
end;
var
- Form1: TForm1;
- locale:string;
- z,j,i,qq,l:integer;
+ form1: tform1;
+ locale: string;
+ z,j,i,l:integer;
sr:tsearchrec;
res:integer;
s:array[0..1,1..6000] of string;
- u:array[1..6000] of integer;
+ u:array[0..6000] of integer;
first:string;
filename:string;
+ im,m:integer;
+ sse:string;
implementation
-{$R *.dfm}
+{$r *.lfm}
+
+{ tform1 }
+
+
-procedure TForm1.Button1Click(Sender: TObject);
+
+procedure tform1.stringlist;
+ var llist:TStringList;
+ begin
+ for i := 1 to 6000 do
+ begin s[0,i]:='';s[1,i]:='';end;
+ j:=0;
+ lList:=TstringList.Create;
+ lList.LoadFromFile(extractfilePath(application.exename)+'/english/'
+ +combobox1.items[combobox1.itemindex]+'.txt');
+ first:=lList[0];
+ for i := 1 to lList.Count-1 do
+ begin
+ j:=j+1;
+ s[0,j]:=lList[i];
+ end;
+ lList.LoadFromFile(extractfilePath(application.exename)+'/'
+ +locale+'/'+combobox1.items[combobox1.itemindex]+'.txt');
+ for z:= 1 to j do
+ for i := 1 to lList.count-2 do
+ if (copy(s[0,z],1,1)='[')and(s[0,z]=lList[i])
+ and (copy(lList[i+1],1,1)<>'[')then
+ s[1,z]:=lList[i+1];
+ lList.free;
+ form1.Caption:='Miranda NG Langpack Tools: Editor -'
+ +locale+'\'+combobox1.items[combobox1.itemindex];
+ filename:=combobox1.items[combobox1.itemindex];
+ listbox.items.Clear;
+ z:=0;
+ for i := 1 to j do
+ if ((copy(s[0,i],1,1)='[')and(s[1,i]='') and (radiogroup1.ItemIndex=0))
+ or ((copy(s[0,i],1,1)='[')and (radiogroup1.ItemIndex=1))
+ then
+ begin
+ u[z]:=i;
+ z:=z+1;
+ listbox.items.add(copy(s[0,i],2,length(s[0,i])-2));
+ end;
+ end;
+
+procedure tform1.stringview;
+ begin
+ sse:=copy(s[0,u[listbox.itemindex]],2,
+ length(s[0,u[listbox.itemindex]])-2);
+ m:=1;
+ for im := 1 to length(sse)-1 do
+ begin
+ if copy(sse,im,2)='\n' then
+ begin
+ memo1.Lines.Add(copy(sse,m,im-m));
+ m:=im+2;
+ end;
+ end;
+ memo2.Lines.Clear;
+ l:=listbox.itemindex;
+ if m=1 then memo1.Lines.Add(sse)
+ else memo1.Lines.Add(copy(sse,m,length(sse)-m+2));
+ if s[1,u[listbox.itemindex]]<>'' then
+ begin
+ m:=1;
+ for im := 1 to length(s[1,u[listbox.itemindex]])-1 do
+ begin
+ if copy(s[1,u[listbox.itemindex]],im,2)='\n' then
+ begin
+ memo2.Lines.Add(copy(s[1,u[listbox.itemindex]],m,im-m));
+ m:=im+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;
+
+procedure tform1.savestring;
+var sa:integer;
begin
-memo2.lines:=memo1.lines;
+ 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.Button2Click(Sender: TObject);
-var str:string; i:integer;
- begin
- str:='http://translate.google.com/?hl=&ie=yhgg#auto/';
- if locale='belarusian' then str:=str+'be/';
- if locale='bulgarian' then str:=str+'bg/';
- if locale='chinese' then str:=str+'zh-CN/';
- if locale='czech' then str:=str+'cs/';
- if locale='dutch' then str:=str+'da/';
- if locale='estonian' then str:=str+'et/';
- if locale='french' then str:=str+'fr/';
- if locale='german' then str:=str+'de/';
- if locale='hebrew' then str:=str+'iw/';
- if locale='hungarian' then str:=str+'hu/';
- if locale='italian' then str:=str+'it/';
- if locale='japanese' then str:=str+'ja/';
- if locale='korean' then str:=str+'ko/';
- if locale='norwegian' then str:=str+'no/';
- if locale='polish' then str:=str+'pl/';
- if locale='portuguese_br' then str:=str+'pt/';
- if locale='russian' then str:=str+'ru/';
- if locale='slovak' then str:=str+'sk/';
- 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
+procedure tform1.formcreate(sender: tobject);
+ var
+ sr:tsearchrec;
+ res:integer;
+begin
+ if (paramstr(1)='-r') then
begin
- 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);
+ 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;
-procedure TForm1.Button3Click(Sender: TObject);
-var sList:TStringList;
+procedure tform1.combobox1change(sender: tobject);
+ var
+ f:textfile;
+begin
+ if not FileExists(extractfilePath(application.exename)
+ +'/'+locale+'/'+combobox1.items[combobox1.itemindex]+'.txt')
+ then
+ begin
+ assignfile(f,extractfilePath(application.exename)
+ +'/'+locale+'/'+combobox1.items[combobox1.itemindex]+'.txt');
+ rewrite(f);
+ closefile(f);
+ end;
+ stringlist;
+ memo1.lines.clear;
+ memo2.lines.clear;
+end;
+
+procedure tform1.ComboBox2Change(Sender: TObject);
+begin
+
+end;
+
+procedure tform1.Button1Click(Sender: TObject);
+ var sList:TStringList;
begin
savestring;
sList:=TstringList.Create;
@@ -111,18 +221,53 @@ var sList:TStringList; end;
end;
sList.SavetoFile(extractfilePath(application.exename)
- +'/'+locale+'/'+filename+'.txt',TEncoding.UTF8);
+ +'/'+locale+'/'+filename+'.txt');
sList.free;
+ stringview;
+end;
+
+procedure tform1.Button4Click(Sender: TObject);
+ var str:utf8string; i:integer;
+ begin
+ str:='http://translate.google.com/?hl=&ie=yhgg#auto/';
+ if locale='belarusian' then str:=str+'be/';
+ if locale='bulgarian' then str:=str+'bg/';
+ if locale='chinese' then str:=str+'zh-CN/';
+ if locale='czech' then str:=str+'cs/';
+ if locale='dutch' then str:=str+'da/';
+ if locale='estonian' then str:=str+'et/';
+ if locale='french' then str:=str+'fr/';
+ if locale='german' then str:=str+'de/';
+ if locale='hebrew' then str:=str+'iw/';
+ if locale='hungarian' then str:=str+'hu/';
+ if locale='italian' then str:=str+'it/';
+ if locale='japanese' then str:=str+'ja/';
+ if locale='korean' then str:=str+'ko/';
+ if locale='norwegian' then str:=str+'no/';
+ if locale='polish' then str:=str+'pl/';
+ if locale='portuguese_br' then str:=str+'pt/';
+ if locale='russian' then str:=str+'ru/';
+ if locale='slovak' then str:=str+'sk/';
+ 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;
+ ShellExecute(0, 'open',PChar(str), nil, nil, SW_SHOW);
end;
-procedure TForm1.Button4Click(Sender: TObject);
-var search:TStringList;
+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 := 1 to listbox1.items.Count-1 do
+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
@@ -132,229 +277,62 @@ for i := 1 to search.count-1 do search.free;
end;
-procedure tform1.fileslist;
+procedure tform1.Button3Click(Sender: TObject);
begin
- ListBox1.Items.Add('=CORE=');
- Res:=FindFirst(ExtractFilePath(Application.ExeName)
- +'\english\plugins\*.txt', faAnyFile, SR);
- while Res = 0 do
- begin
- listBox1.Items.Add('plugins\'+copy(extractfilename(SR.Name),1,
- length(extractfilename(SR.Name))-4));
- Res:=FindNext(SR);
- end;
- FindClose(SR);
- Res:=FindFirst(ExtractFilePath(Application.ExeName)
- +'\english\weather\*.txt', faAnyFile, SR);
- while Res = 0 do
- begin
- listBox1.Items.Add('weather\'+copy(extractfilename(SR.Name),1,
- length(extractfilename(SR.Name))-4));
- Res:=FindNext(SR);
- end;
- FindClose(SR);
+memo2.lines:=memo1.lines;
end;
-procedure tform1.langlist;
- 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
- ListBox1.Items.Add(SR.name);
- Res:=FindNext(SR);
- end;
- FindClose(SR);
- end;
-
-procedure tform1.savestring;
-var sa:integer;
+procedure tform1.ListBox1Click(sender: tobject);
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.stringview;
-var
-im,m:integer;
-sse:string;
- begin
- sse:=copy(s[0,u[listbox1.itemindex]],2,
- length(s[0,u[listbox1.itemindex]])-2);
- m:=1;
- for im := 1 to length(sse)-1 do
- begin
- if copy(sse,im,2)='\n' then
- begin
- memo1.Lines.Add(copy(sse,m,im-m));
- m:=im+2;
- end;
- end;
- memo2.Lines.Clear;
- l:=listbox1.itemindex;
- if m=1 then memo1.Lines.Add(sse)
- else memo1.Lines.Add(copy(sse,m,length(sse)-m+2));
- if s[1,u[listbox1.itemindex]]<>'' then
- begin
- m:=1;
- for im := 1 to length(s[1,u[listbox1.itemindex]])-1 do
- begin
- if copy(s[1,u[listbox1.itemindex]],im,2)='\n' then
- begin
- memo2.Lines.Add(copy(s[1,u[listbox1.itemindex]],m,im-m));
- m:=im+2;
- end;
- end;
- if m=1 then memo2.Lines.Add(s[1,u[listbox1.itemindex]])
- else memo2.Lines.Add(copy(s[1,u[listbox1.itemindex]],m,
- length(s[1,u[listbox1.itemindex]])-m+2));
- end;
- end;
-
-procedure TForm1.FormCreate(Sender: TObject);
- begin
- langlist;
- qq:=0;
-
- end;
-
-procedure TForm1.ListBox1Click(Sender: TObject);
- begin
- if qq=0 then
- begin
- if listbox1.itemindex<>-1 then
- begin
- memo1.Lines.Clear;
- memo1.Lines.LoadFromFile(extractfilePath(application.exename)
- +'/'+listbox1.items[listbox1.itemindex]+'/=HEAD=.txt');
- end;
- end;
- if (qq=2) and (listbox1.itemindex>0)then
+ if (form1.caption<>'Miranda NG Langpack Tools: Editor')
+ then
begin
savestring;
- memo1.Lines.clear;
- memo2.Lines.clear;
+ memo1.lines.clear;
+ memo2.lines.clear;
+{}
stringview;
end;
- end;
+end;
-procedure TForm1.ListBox12Click(Sender: TObject);
-var llist:TStringList;
-f:textfile;
+procedure tform1.listbox2click(sender: tobject);
+ var
+ sr:tsearchrec;
+ res:integer;
begin
-case qq of
-
- 0:begin
- ListBox1.height:=300;
- Combobox1.Visible:=true;
- Memo1.Lines.Clear;
- locale:=listbox1.items[listbox1.itemindex];
- listbox1.items.clear;
- form1.Caption:='Miranda NG Langpack Manager: '+locale;
- listbox1.items.add('..');
- fileslist;
- qq:=1;
- end;
-
- 1:begin
- if listbox1.items[listbox1.itemindex]='..' then
- begin
- ListBox1.height:=343;
- Combobox1.Visible:=false;
- ListBox1.Items.clear;
- Memo1.Lines.Clear;
- langlist;
- listbox1.itemindex:=0;
- form1.Caption:='Miranda NG Langpack Manager';
- qq:=0;
- end
- else
- begin
- for i := 1 to 6000 do
- begin s[0,i]:='';s[1,i]:='';end;
- j:=0;
- Memo1.Height:=150;
- Memo2.Visible:=true;
- Button1.Visible:=true;
- Button2.Visible:=true;
- Button3.Visible:=true;
- lList:=TstringList.Create;
- lList.LoadFromFile(extractfilePath(application.exename)+'/english/'
- +listbox1.items[listbox1.itemindex]+'.txt',TEncoding.UTF8);
- first:=lList[0];
- for i := 1 to lList.Count-1 do
- begin
- j:=j+1;
- s[0,j]:=lList[i];
- end;
- //
- if not FileExists(extractfilePath(application.exename)
- +'/'+locale+'/'+listbox1.items[listbox1.itemindex]+'.txt')
- then
- begin
- assignfile(f,extractfilePath(application.exename)
- +'/'+locale+'/'+listbox1.items[listbox1.itemindex]+'.txt');
- rewrite(f);
- closefile(f);
- end;
-//
- lList.LoadFromFile(extractfilePath(application.exename)+'/'+locale+'/'
- +listbox1.items[listbox1.itemindex]+'.txt',TEncoding.UTF8);
- for z:= 1 to j do
- for i := 1 to lList.count-2 do
- if (copy(s[0,z],1,1)='[')and(s[0,z]=lList[i])
- and (copy(lList[i+1],1,1)<>'[')then
- s[1,z]:=lList[i+1];
- lList.free;
- form1.Caption:='Miranda NG Langpack Manager: '
- +locale+'\'+listbox1.items[listbox1.itemindex];
- filename:=listbox1.items[listbox1.itemindex];
- listbox1.items.Clear;
- listbox1.items.add('..');
- z:=0;
- for i := 1 to j do
- if (copy(s[0,i],1,1)='[')and(s[1,i]='') then
- begin
- z:=z+1;
- u[z]:=i;
- listbox1.items.add(copy(s[0,i],2,length(s[0,i])-2));
- end;
- if (fileexists(extractfilePath(application.exename)+'/'+locale+'/'
- +'Langpack_'+locale+'.txt')) and (listbox1.items.Count>1) then
- button4.Visible:=true;
+ if form1.caption='Miranda NG Langpack Tools: Editor'
+ then
+ begin
+ locale:=ListBox.items[listBox.itemindex];
+ form1.caption:=form1.caption+': '+locale;
+ 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);
+ end;
- qq:=2;
- end;
- end;
+ combobox1.itemindex:=0;
+ stringlist;
+ if (fileexists(extractfilePath(application.exename)+'/'+locale+'/'
+ +'Langpack_'+locale+'.txt')) then button2.Enabled:=true;
- 2:begin
- if listbox1.items[listbox1.itemindex]='..' then
- begin
- Memo1.Height:=343;
- Memo2.Visible:=false;
- Button1.Visible:=false;
- Button2.Visible:=false;
- Button3.Visible:=false;
- button4.Visible:=false;
- listbox1.Items.Clear;
- listbox1.Items.Add('..');
- fileslist;
- memo1.Lines.Clear;
- memo2.Lines.Clear;
- form1.Caption:='Miranda NG Langpack Manager - '+locale;
- qq:=1;
- end;
- end;
-end;
end;
+
end.
+
|