diff options
Diffstat (limited to 'tools/langpackmgr/Unit1.pas')
| -rw-r--r-- | tools/langpackmgr/Unit1.pas | 558 |
1 files changed, 337 insertions, 221 deletions
diff --git a/tools/langpackmgr/Unit1.pas b/tools/langpackmgr/Unit1.pas index eea9890b32..a0083263d2 100644 --- a/tools/langpackmgr/Unit1.pas +++ b/tools/langpackmgr/Unit1.pas @@ -3,40 +3,50 @@ unit Unit1; interface
uses
- Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
- Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtDlgs, Vcl.StdCtrls, Vcl.Buttons, ShellApi;
+ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
+ System.Classes, Vcl.Graphics,
+ Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, Vcl.ExtDlgs, Vcl.StdCtrls,
+ Vcl.CheckLst, Vcl.ComCtrls, Vcl.Buttons, ShellApi;
type
TForm1 = class(TForm)
- Label1: TLabel;
- Label2: TLabel;
- Label3: TLabel;
- Edit1: TEdit;
+
+ SaveTextFileDialog1: TSaveTextFileDialog;
+
+ MainMenu1: TMainMenu;
+ File1: TMenuItem;
+ Open1: TMenuItem;
+
+ ListBox1: TListBox;
+ ListBox2: TListBox;
+
Button1: TButton;
Button2: TButton;
- ListBox1: TListBox;
- OpenDialog1: TOpenDialog;
- X: TBitBtn;
- C: TBitBtn;
- G: TBitBtn;
+
+ BitBtn1: TBitBtn;
+ BitBtn2: TBitBtn;
+ BitBtn3: TBitBtn;
+ Edit1: TEdit;
+ Label1: TLabel;
Memo1: TMemo;
Memo2: TMemo;
- T: TBitBtn;
+
+ procedure Open1Click(Sender: TObject); // процедура выбора файла =head=
procedure FormCreate(Sender: TObject);
+ procedure Button2Click(Sender: TObject); // переключатель
+ procedure ListBox1Click(Sender: TObject);// выбор обрабатываемого файла
+ procedure listfiles;// получение списка файлов в listbox
+ procedure progress; // парсинг текущего файла перевода
+ procedure parsing;// общий прогресс проверки перевода
+ procedure ListBox2Click(Sender: TObject);
+ procedure viewline;
+ procedure BitBtn1Click(Sender: TObject);
+ procedure BitBtn2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure ListBox1Click(Sender: TObject);
- procedure CClick(Sender: TObject);
- procedure XClick(Sender: TObject);
- procedure refresh;
- procedure read;
- procedure enter(Sender: TObject; var Key: Word; Shift: TShiftState);
- procedure GClick(Sender: TObject);
- procedure TClick(Sender: TObject);
-
-
+ procedure BitBtn3Click(Sender: TObject);
private
{ Private declarations }
+
public
{ Public declarations }
end;
@@ -44,249 +54,355 @@ type var
Form1: TForm1;
openDialog : TOpenDialog;
- full,ustring,tstring,fline: array [1..9999] of string;
- notranslate: array [1..9999] of integer;
- translate: textfile;
- bom, line:string;
- ii,i,it,ie:integer;
-implementation
+ openfile:textfile;
-{$R *.dfm}
-// Открытие файла
+ stmp: string; // название текущего файла перевода
+ lang: string; // выбранный перевод
+ sfull: array [0..6000] of string; // считывается выбранный перевод
+ ifull: integer; // строк в выбранном переводе
+ se: array [0..200,0..6000] of string; // английский файл перевода
+ st: array [0..200,0..6000] of string; // строки перевода
+ sfilter:array [1..30] of string; // названия файлов основного перевода
+ ifilter: integer; // количество файлов основного перевода
+ bfilter: boolean; // флаг файла основного перевода
+ n,t:integer; // всего строк/переведено строк
+ il,ii,iindex:integer; // счетчики
+ newlines:boolean;
+ adres: array [0..6000]of integer;
+ ilines: array [0..200] of integer; // строк в файле
+ nlines: array [0..200] of integer; // всего строк для перевода
+ tlines: array [0..200] of integer; // строк переведено
+ lineindex: array [0..2000] of integer;
+implementation
-procedure TForm1.Button1Click(Sender: TObject);
- begin
- chdir(ExtractFilePath(Application.ExeName));
- chdir('..');
- openDialog := TOpenDialog.Create(self);
- openDialog.Filter := 'Text files only|*.txt';
- openDialog.InitialDir :=GetCurrentDir ;
- openDialog.Options := [ofFileMustExist];
- if (openDialog.Execute)
- and(extractfilename(openDialog.filename)<>'=HEAD=.txt')
- and(extractfilename(openDialog.filename)<>'=DUPES=.txt')
-then
- begin
- edit1.Text:=copy(openDialog.filename,
- length(ExtractFilePath(Application.ExeName))-4,
- length(openDialog.filename)-length(ExtractFilePath(Application.ExeName))+5);
- read;
- refresh;
- end;
-end;
+{$R *.dfm}
-// Процедура сохранения обработанного файла
-procedure TForm1.Button2Click(Sender: TObject);
+procedure TForm1.FormCreate(Sender: TObject);
begin
-refresh;
-memo2.Lines.Clear;
-assignfile(translate,opendialog.filename,CP_UTF8);
-rewrite(translate);
-writeLn(translate, bom);
- for i := 1 to ie do
- begin
- if copy(ustring[i],1,1)=';' then writeln(translate,ustring[i]);
- if (copy(ustring[i],1,1)='[') and (tstring[i]<>'')
- then begin
- writeln(translate,ustring[i]);
- writeln(translate,tstring[i]);
- end;
- end;
-closefile(translate);
-//
- read;
+ assignfile(openfile,ExtractFilePath(Application.ExeName)+
+ '\corebasic.txt',CP_UTF8);
+ reset(openfile);
+ readln(openfile);
+ ifilter:=0;
+ while not eof(openfile) do
+ begin
+ ifilter:=ifilter+1;
+ readln(openfile,sfilter[ifilter]);
+ end;
+ listfiles;
end;
-
-procedure TForm1.CClick(Sender: TObject);
+///////////////////////////////////////////////////////////////////////////////
+procedure TForm1.ListBox1Click(Sender: TObject);
begin
-memo2.Lines:=memo1.Lines;
+ iindex:=ListBox1.ItemIndex;
+ listbox2.Items.Clear;
+ memo1.Lines.Clear;
+ memo1.Lines.add('Plugin:'+listbox1.Items[iindex]);
+ memo1.Lines.add('Lines:'+inttostr(tlines[iindex])
+ +'/'+inttostr(nlines[iindex]));
+ memo1.Lines.add('Completed:'
+ +copy(floattostr(100*tlines[iindex]/nlines[iindex]),1,4)+'%');
+ il:=-1;
+ for ii:=0 to ilines[iindex] do
+ begin
+ if (copy(se[iindex,ii],1,1)='[') and (st[iindex,ii]='') then
+ begin
+ listbox2.Items.add(se[iindex,ii]);
+ adres[listbox2.items.Count-1]:=ii;
+ il:=il+1;
+ lineindex[il]:=ii;
+ end;
+ end;
end;
-
-procedure TForm1.XClick(Sender: TObject);
+///////////////////////////////////////////////////////////////////////////////
+procedure TForm1.ListBox2Click(Sender: TObject);
+var il,index:integer;
begin
+ index:=strtoint(label1.Caption)-1;
+ if index<>-1 then
+ begin
+ // запись строки
+ if memo2.Lines.Count=memo1.Lines.Count then
+ st[iindex,adres[index]]:='';
+ il:=0;
+ while il<memo2.Lines.Count do
+ begin
+ st[iindex,adres[index]]:=
+ st[iindex,adres[index]]+memo2.lines[il];
+ if il<>memo2.Lines.Count-1 then
+ st[iindex,adres[index]]:=
+ st[iindex,adres[index]]+'\n';
+ il:=il+1;
+ end;
+ end;
+ label1.Caption:=inttostr(listbox2.ItemIndex+1);
+ memo1.Lines.Clear;
memo2.Lines.Clear;
- tstring[notranslate[strtoint(label2.caption)]]:='';
- refresh;
+ viewline;
end;
-
-procedure TForm1.enter(Sender: TObject; var Key: Word;
- Shift: TShiftState);
+///////////////////////////////////////////////////////////////////////////////
+procedure TForm1.Open1Click(Sender: TObject);
begin
-case key of
- vk_down: if listbox1.ItemIndex<listbox1.Items.Count then
- begin listbox1.ItemIndex:=listbox1.ItemIndex+1; refresh; end;
- vk_up: if listbox1.ItemIndex>0 then
- begin listbox1.ItemIndex:=listbox1.ItemIndex-1; refresh; end;
+ chdir(ExtractFilePath(Application.ExeName));
+ opendialog:=TOpenDialog.Create(self);
+ opendialog.filter:='Langpack Head File|=HEAD=.txt';
+ opendialog.initialDir:=GetCurrentDir;
+ opendialog.options:=[ofFileMustExist];
+ if (opendialog.execute) then
+ begin
+ lang:=copy(openDialog.filename,
+ length(ExtractFilePath(Application.ExeName))+1,
+ length(openDialog.filename)-
+ length(ExtractFilePath(Application.ExeName))-11);
+ chdir(ExtractFilePath(openDialog.filename));
+ form1.Caption:='LangPackMgr: '+lang;
+ ListBox1.enabled:=true;
+ parsing;
+ end;
end;
+///////////////////////////////////////////////////////////////////////////////
+procedure tform1.parsing;
+begin
+ memo1.lines.clear;
+ listbox2.Items.clear;
+ n:=0;t:=0;
+ for iindex:=0 to listbox1.items.Count-1 do
+ progress;
+ if button2.Caption='Custom Plugins'
+ then memo1.Lines.Add('Language:'+lang+' (Standart Bulid)')
+ else memo1.Lines.Add('Language:'+lang+' (Custom Plugins)');
+ memo1.Lines.Add('Translated:'+copy(floattostr(100*t/n),1,4)+'%');
end;
-
-procedure TForm1.ListBox1Click(Sender: TObject);
+///////////////////////////////////////////////////////////////////////////////
+procedure tform1.progress;
begin
- refresh;
+ if copy(listbox1.Items[iindex],1,2)='=C' then
+ stmp:='=CORE=' else
+ if copy(listbox1.Items[iindex],1,2)='p|' then
+ stmp:='\plugins\'+copy(listbox1.Items[iindex],3,
+ length(listbox1.Items[iindex])-2) else
+ if copy(listbox1.Items[iindex],1,2)='w|' then
+ stmp:='\weather\'+copy(listbox1.Items[iindex],3,
+ length(listbox1.Items[iindex])-2);
+//
+ for ifull := 0 to 4000 do sfull[ifull]:='';
+ if fileexists(ExtractFilePath(Application.ExeName)
+ +'\'+lang+'\'+stmp+'.txt') then
+ begin
+ assignfile(openfile,ExtractFilePath(Application.ExeName)
+ +'\'+lang+'\'+stmp+'.txt',CP_UTF8);
+ reset(openfile);
+ ifull:=0;
+ while not Eof(openfile) do
+ begin
+ ifull:=ifull+1;
+ ReadLn(openfile,sfull[ifull]);
+ end;
+ closefile(openfile);
+ end;
+ for ii := 0 to 6000 do st[iindex,ii]:='';
+ assignfile(openfile,ExtractFilePath(Application.ExeName)
+ +'\english\'+stmp+'.txt',CP_UTF8);
+ reset(openfile);
+ ilines[iindex]:=-1;
+ nlines[iindex]:=0;
+ tlines[iindex]:=0;
+ while not Eof(openfile) do
+ begin
+ ilines[iindex]:=ilines[iindex]+1;
+ ReadLn(openfile,se[iindex,ilines[iindex]]);
+ if (copy(se[iindex,ilines[iindex]],1,1)='[') then
+ begin
+ nlines[iindex]:= nlines[iindex]+1;
+ for ii:=0 to ifull-1 do
+ if se[iindex,ilines[iindex]]=sfull[ii] then
+ if (copy(sfull[ii+1],1,1)<>';')
+ and(copy(sfull[ii+1],1,1)<>'[')
+ and(copy(sfull[ii+1],1,1)<>'')
+ then
+ begin
+ st[iindex,ilines[iindex]]:=sfull[ii+1];
+ tlines[iindex]:=tlines[iindex]+1;
+ end;
+ end;
+ end;
+ closefile(openfile);
+ n:=n+nlines[iindex];
+ t:=t+tlines[iindex];
end;
-
-procedure TForm1.FormCreate(Sender: TObject);
+///////////////////////////////////////////////////////////////////////////////
+procedure tform1.listfiles;
+Var
+ SR:TSearchRec;
+ Res:Integer;
+ i:integer;
begin
- KeyPreview := True;
+ n:=0;t:=0;
+ ListBox1.Items.Clear;
+ if button2.Caption='Custom Plugins' then
+ begin
+ Form1.ListBox1.Items.Add('=CORE=');
+ for i := 1 to ifilter do
+ Form1.ListBox1.Items.Add('p|'+sfilter[i]);
+ end else
+ begin
+ // plugins
+ Res:=FindFirst(ExtractFilePath(Application.ExeName)
+ +'\english\plugins\*.txt', faAnyFile, SR);
+ while Res = 0 do
+ begin
+ bfilter:=false;
+ for i:=1 to ifilter do
+ if sfilter[i]=copy(extractfilename(SR.Name),
+ 1,length(extractfilename(SR.Name))-4) then bfilter:=true;
+ if bfilter=false then
+ Form1.ListBox1.Items.Add('p|'+copy(extractfilename(SR.Name),
+ 1,length(extractfilename(SR.Name))-4));
+ Res:=FindNext(SR);
+ end;
+ FindClose(SR);
+ // weather
+ Res:=FindFirst(ExtractFilePath(Application.ExeName)
+ +'\english\weather\*.txt', faAnyFile, SR);
+ while Res = 0 do
+ begin
+ Form1.ListBox1.Items.Add('w|'+copy(extractfilename(SR.Name),
+ 1,length(extractfilename(SR.Name))-4));
+ Res:=FindNext(SR);
+ end;
+ end;
end;
-
-procedure TForm1.GClick(Sender: TObject);
-var str:string;
+// копирование шаблона/////////////////////////////////////////////////////////
+procedure TForm1.BitBtn1Click(Sender: TObject);
+begin
+memo2.Lines:=memo1.Lines;
+end;
+// гугл //////////////////////////////////////////////////////////
+procedure TForm1.BitBtn2Click(Sender: TObject);
+var str:string; i:integer;
begin
- str:='http://translate.google.com/?hl=&ie=&langpair=en&text=';
-for I := 0 to memo1.Lines.Count-1 do
+ str:='http://translate.google.com/?hl=&ie=&langpair=en#en/'+edit1.Text+'/';
+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.refresh;
-var m,n:integer;
-begin
-n:=strtoint(label2.caption);
-//
-if memo2.Lines.Count=memo1.Lines.Count then
-begin
-tstring[notranslate[n]]:='';
-for I := 0 to memo2.Lines.Count-1 do
+procedure TForm1.BitBtn3Click(Sender: TObject);
begin
-tstring[notranslate[n]]:=tstring[notranslate[n]]+memo2.Lines[i];
-if i<memo2.Lines.Count-1 then
-tstring[notranslate[n]]:=tstring[notranslate[n]]+'\n';
-end;
-end;
-memo1.Lines.Clear;
-////////////////////////////////////////////////////////////
-label2.Caption:=inttostr(ListBox1.ItemIndex+1);
-n:=strtoint(label2.caption);
-memo2.Lines.Clear;
-if tstring[notranslate[n]]<>'' then
-begin
-m:=1;
-for i := 1 to length(tstring[notranslate[n]])-1 do
-begin
- if copy(tstring[notranslate[n]],i,2)='\n' then
- begin
- memo2.Lines.Add(copy(tstring[notranslate[n]],m,i-m));
- m:=i+2;
- end;
-end;
- if m=1
- then memo2.Lines.Add(tstring[notranslate[n]])
- else memo2.Lines.Add(copy(tstring[notranslate[n]],
- m,length(tstring[notranslate[n]])-m+2));
-end;
-////////////////////////////////////////////////////////////
-m:=1;
-for i := 1 to length(copy(ustring[notranslate[n]],2,length(ustring[notranslate[n]])-2))-1 do
-begin
- if copy(copy(ustring[notranslate[n]],2,length(ustring[notranslate[n]])-2),i,2)='\n' then
- begin
- memo1.Lines.Add(copy(copy(ustring[notranslate[n]],2,length(ustring[notranslate[n]])-2),m,i-m));
- m:=i+2;
- end;
-end;
- if m=1 then memo1.Lines.Add(copy(ustring[notranslate[n]],2,length(ustring[notranslate[n]])-2))
- else memo1.Lines.Add(copy(copy(ustring[notranslate[n]],2,length(ustring[notranslate[n]])-2),
- m,length(copy(ustring[notranslate[n]],2,length(ustring[notranslate[n]])-2))-m+1));
-memo2.SetFocus;
+ memo1.Lines.Clear;
+ memo2.Lines.Clear;
+ st[iindex,adres[listbox2.ItemIndex]]:='';
+ viewline;
end;
+// флаг переключения //////////////////////////////////////////////////////////
-procedure TForm1.TClick(Sender: TObject);
+procedure TForm1.Button2Click(Sender: TObject);
begin
-if form1.formstyle=fsnormal
-then
- begin
-t.Hint:='Disable On Top';
-form1.formstyle:=fsstayontop;
- end
-else
- begin
-t.Hint:='Enable On Top';
-form1.formstyle:=fsnormal;
- end;
+ if button2.Caption='Custom Plugins'
+ then button2.Caption:='Core and basic'
+ else button2.Caption:='Custom Plugins';
+ listfiles;
+ if ListBox1.enabled=true then
+ parsing;
end;
-procedure tform1.read;
+procedure tform1.viewline;
+var im,m:integer;
+sse:string;
begin
- listbox1.Items.Clear;
- line:='';
- for i:= 1 to 9999 do
- begin
- full[i]:='';
- notranslate[i]:=0;
- ustring[i]:='';
- tstring[i]:='';
+ m:=1; sse:=copy(se[iindex,lineindex[listbox2.itemindex]],2,
+ length(se[iindex,lineindex[listbox2.itemindex]])-2);
+ 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;
+ if m=1 then memo1.Lines.Add(sse)
+ else memo1.Lines.Add(copy(sse,m,length(sse)-m+2));
+
+ if st[iindex,adres[listbox2.ItemIndex]]<>'' then
+ begin
+ m:=1;
+ for im := 1 to length(st[iindex,adres[listbox2.ItemIndex]])-1 do
+ begin
+ if copy(st[iindex,adres[listbox2.ItemIndex]],im,2)='\n' then
+ begin
+ memo2.Lines.Add(copy(st[iindex,adres[listbox2.ItemIndex]],m,im-m));
+ m:=im+2;
+ end;
+ end;
+ if m=1 then memo2.Lines.Add(st[iindex,adres[listbox2.ItemIndex]])
+ else memo2.Lines.Add(copy(st[iindex,adres[listbox2.ItemIndex]],m,
+ length(st[iindex,adres[listbox2.ItemIndex]])-m+2));
+ end;
+ memo2.SetFocus;
+end;
+///////////////////////////////////////////////////////////////////////////////
+///
+
+// Процедура сохранения обработанного файла
+procedure TForm1.Button1Click(Sender: TObject);
+var il,index:integer;
+begin
+ index:=strtoint(label1.Caption)-1;
+ if index<>-1 then
+ begin
+ // запись строки
+ if memo2.Lines.Count=memo1.Lines.Count then
+ st[iindex,adres[index]]:='';
+ il:=0;
+ while il<memo2.Lines.Count do
+ begin
+ st[iindex,adres[index]]:=
+ st[iindex,adres[index]]+memo2.lines[il];
+ if il<>memo2.Lines.Count-1 then
+ st[iindex,adres[index]]:=
+ st[iindex,adres[index]]+'\n';
+ il:=il+1;
+ end;
end;
-// Считывание выбранного файла в full[it]
- assignfile(translate,opendialog.filename,CP_UTF8);
- reset(translate);
- it:=0;
- while not Eof(translate) do
+memo1.Lines.Clear;
+memo2.Lines.Clear;
+ if copy(listbox1.Items[iindex],1,2)='=C' then
+ stmp:='=CORE=' else
+ if copy(listbox1.Items[iindex],1,2)='p|' then
+ stmp:='\plugins\'+copy(listbox1.Items[iindex],3,
+ length(listbox1.Items[iindex])-2) else
+ if copy(listbox1.Items[iindex],1,2)='w|' then
+ stmp:='\weather\'+copy(listbox1.Items[iindex],3,
+ length(listbox1.Items[iindex])-2);
+assignfile(openfile,ExtractFilePath(Application.ExeName)
+ +'\'+lang+'\'+stmp+'.txt',CP_UTF8);
+rewrite(openfile);
+writeLn(openfile,se[iindex,0]);
+ for ii := 1 to ilines[iindex] do
begin
- ReadLn(translate, line);
- if (copy(line,1,1)='[') and (not Eof(translate)) then
+ if copy(se[iindex,ii],1,1)=';' then writeln(openfile,se[iindex,ii]);
+ if (copy(se[iindex,ii],1,1)='[') and (st[iindex,ii]<>'')
+ then
begin
- it:=it+1;
- full[it]:=line;
- ReadLn(translate, line);
- if (copy(line,1,1)<>'')
- and(copy(line,1,1)<>';')
- and(copy(line,1,1)<>'[')
- then begin
- it:=it+1;
- full[it]:=line;
- end
- else it:=it-1;
+ writeln(openfile,se[iindex,ii]);
+ writeln(openfile,st[iindex,ii]);
end;
end;
-closefile(translate);
-
-if extractfilename(opendialog.filename)='=CORE=.txt' then
-assignfile(translate,ExtractFilePath(Application.ExeName)+
-'\..\english\'+extractfilename(opendialog.filename),CP_UTF8)
-else
- if fileexists(ExtractFilePath(Application.ExeName)+
-'\..\english\plugins\'+extractfilename(opendialog.filename)) then
-assignfile(translate,ExtractFilePath(Application.ExeName)+
-'\..\english\plugins\'+extractfilename(opendialog.filename),CP_UTF8)
-else
- if fileexists(ExtractFilePath(Application.ExeName)+
-'\..\english\weather\'+extractfilename(opendialog.filename)) then
-assignfile(translate,ExtractFilePath(Application.ExeName)+
-'\..\english\weather\'+extractfilename(opendialog.filename),CP_UTF8);
- reset(translate);
- ReadLn(translate, bom);
- ie:=0;
-while not Eof(translate) do
- begin
- ReadLn(translate, line);
- ie:=ie+1;
- ustring[ie]:=line;
- end;
- closefile(translate);
-for i := 1 to ie do
- for ii:= 1 to it-1 do
- if ustring[i]=full[ii]
- then tstring[i]:=full[ii+1];
-for i := 1 to ie do
-if (copy(ustring[i],1,1)='[') and (tstring[i]='') then
-begin
-listbox1.Items.Add(ustring[i]);
-notranslate[listbox1.Items.Count]:=i;
-end;
-label3.caption:=' of '+inttostr(listbox1.Items.Count)+' untranslate lines.';
-refresh;
+closefile(openfile);
+//
+ parsing;
end;
end.
|