From 4a9e79eccd96de89b703e7658d40d27aecbff815 Mon Sep 17 00:00:00 2001 From: Vadim Dashevskiy Date: Thu, 8 Aug 2013 06:26:40 +0000 Subject: - LangPackMgr.exe update (from Jebifor) git-svn-id: http://svn.miranda-ng.org/main/trunk@5622 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c --- tools/langpackmgr/Unit1.dfm | 194 ++++++------- tools/langpackmgr/Unit1.pas | 558 ++++++++++++++++++++++-------------- tools/langpackmgr/langpackmgr.dpr | 2 +- tools/langpackmgr/langpackmgr.dproj | 54 ++-- 4 files changed, 450 insertions(+), 358 deletions(-) (limited to 'tools') diff --git a/tools/langpackmgr/Unit1.dfm b/tools/langpackmgr/Unit1.dfm index a854b4bd2d..81f4a341d7 100644 --- a/tools/langpackmgr/Unit1.dfm +++ b/tools/langpackmgr/Unit1.dfm @@ -1,144 +1,134 @@ object Form1: TForm1 Left = 0 Top = 0 - BiDiMode = bdLeftToRight - BorderIcons = [biSystemMenu, biMinimize] - Caption = 'Miranda NG Langpack Manager' - ClientHeight = 323 - ClientWidth = 679 + Caption = 'LangPackMgr' + ClientHeight = 342 + ClientWidth = 785 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] + Menu = MainMenu1 OldCreateOrder = False - ParentBiDiMode = False OnCreate = FormCreate - OnKeyDown = enter PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel - Left = 8 - Top = 19 - Width = 20 - Height = 13 - Caption = 'File:' - end - object Label2: TLabel - Left = 328 - Top = 19 + Left = 514 + Top = 320 Width = 6 Height = 13 - Caption = '1' + Caption = '0' end - object Label3: TLabel - Left = 356 - Top = 19 - Width = 3 - Height = 13 - end - object ListBox1: TListBox - Left = 478 - Top = 38 - Width = 193 - Height = 277 - ItemHeight = 13 + object Button1: TButton + Left = 631 + Top = 308 + Width = 146 + Height = 25 + Caption = 'Save and refresh' TabOrder = 0 - OnClick = ListBox1Click + TabStop = False + OnClick = Button1Click end - object Edit1: TEdit - Left = 37 - Top = 11 - Width = 204 - Height = 21 - Enabled = False + object Button2: TButton + Left = 8 + Top = 308 + Width = 146 + Height = 25 + Caption = 'Custom Plugins' TabOrder = 1 + TabStop = False + OnClick = Button2Click end - object Button1: TButton - Left = 247 - Top = 7 - Width = 75 + object BitBtn1: TBitBtn + Left = 160 + Top = 308 + Width = 41 Height = 25 - Caption = 'OPEN' + Caption = 'Copy' TabOrder = 2 - OnClick = Button1Click + TabStop = False + OnClick = BitBtn1Click end - object Button2: TButton - Left = 480 - Top = 7 - Width = 193 + object BitBtn2: TBitBtn + Left = 207 + Top = 308 + Width = 42 Height = 25 - Caption = 'SAVE AND REFRESH' + Caption = 'Google:' TabOrder = 3 - OnClick = Button2Click + TabStop = False + OnClick = BitBtn2Click end - object C: TBitBtn - Left = 8 - Top = 290 - Width = 27 + object BitBtn3: TBitBtn + Left = 279 + Top = 308 + Width = 50 Height = 25 - Hint = 'Copy Original' - Caption = 'C' - ParentShowHint = False - ShowHint = True + Caption = 'Clear' TabOrder = 4 - OnClick = CClick + TabStop = False + OnClick = BitBtn3Click end - object X: TBitBtn - Left = 74 - Top = 290 - Width = 27 - Height = 25 - Hint = 'Clear Translate' - Caption = 'X' - ParentShowHint = False - ShowHint = True + object ListBox1: TListBox + Left = 8 + Top = 8 + Width = 146 + Height = 294 + TabStop = False + Enabled = False + ItemHeight = 13 TabOrder = 5 - OnClick = XClick + OnClick = ListBox1Click end - object G: TBitBtn - Left = 41 - Top = 290 - Width = 27 - Height = 25 - Hint = 'Google Translator' - Caption = 'G' - ParentShowHint = False - ShowHint = True + object ListBox2: TListBox + Left = 631 + Top = 8 + Width = 146 + Height = 294 + ItemHeight = 13 TabOrder = 6 - OnClick = GClick + OnClick = ListBox2Click end - object Memo1: TMemo - Left = 8 - Top = 38 - Width = 466 - Height = 120 - ScrollBars = ssBoth + object Edit1: TEdit + Left = 255 + Top = 312 + Width = 18 + Height = 21 TabOrder = 7 + Text = 'be' end - object Memo2: TMemo - Left = 8 - Top = 156 - Width = 466 - Height = 120 - ScrollBars = ssBoth + object Memo1: TMemo + Left = 160 + Top = 8 + Width = 465 + Height = 144 + ScrollBars = ssHorizontal TabOrder = 8 end - object T: TBitBtn - Left = 447 - Top = 290 - Width = 27 - Height = 25 - Hint = 'Enable On Top' - Caption = 'T' - ParentShowHint = False - ShowHint = True + object Memo2: TMemo + Left = 160 + Top = 158 + Width = 465 + Height = 144 + ScrollBars = ssHorizontal TabOrder = 9 - OnClick = TClick end - object OpenDialog1: TOpenDialog - Left = 448 - Top = 7 + object MainMenu1: TMainMenu + Left = 512 + Top = 309 + object File1: TMenuItem + Caption = 'File' + object Open1: TMenuItem + Caption = 'Open' + OnClick = Open1Click + end + end + end + object SaveTextFileDialog1: TSaveTextFileDialog + Left = 480 + Top = 309 end end 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 ilmemo2.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.ItemIndex0 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'' 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 ilmemo2.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. diff --git a/tools/langpackmgr/langpackmgr.dpr b/tools/langpackmgr/langpackmgr.dpr index 69d75469eb..e112488cdd 100644 --- a/tools/langpackmgr/langpackmgr.dpr +++ b/tools/langpackmgr/langpackmgr.dpr @@ -1,4 +1,4 @@ -program langpackmgr; +program LangPackMgr; uses Vcl.Forms, diff --git a/tools/langpackmgr/langpackmgr.dproj b/tools/langpackmgr/langpackmgr.dproj index ae6d778f09..db9e5ea4d5 100644 --- a/tools/langpackmgr/langpackmgr.dproj +++ b/tools/langpackmgr/langpackmgr.dproj @@ -1,9 +1,9 @@ п»ї - {09EFF320-8309-4D4B-A78A-3B3997206B39} + {0EBDA2CA-166A-4A20-9D10-AC4E99A83991} 14.6 VCL - langpackmgr.dpr + LangPackMgr.dpr True Release Win32 @@ -18,11 +18,6 @@ Base true - - true - Base - true - true Base @@ -46,8 +41,14 @@ true - langpackmgr.ico + 2 + 2057 + true + None + CompanyName=;FileDescription=;FileVersion=2.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=2.0.0.0;Comments= + true System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace) + $(BDS)\bin\delphi_PROJECTICON.ico .\$(Platform)\$(Config) .\$(Platform)\$(Config) false @@ -57,20 +58,12 @@ false - true + bindcompfmx;DBXSqliteDriver;vcldbx;fmx;rtl;dbrtl;DbxClientDriver;IndySystem;TeeDB;bindcomp;inetdb;vclib;inetdbbde;DBXInterBaseDriver;DataSnapClient;DataSnapCommon;DBXOdbcDriver;DataSnapServer;Tee;DataSnapProviderClient;xmlrtl;svnui;ibxpress;DbxCommonDriver;DBXSybaseASEDriver;vclimg;IndyProtocols;dbxcds;DBXMySQLDriver;DatasnapConnectorsFreePascal;MetropolisUILiveTile;vclactnband;bindengine;vcldb;soaprtl;bindcompdbx;vcldsnap;bindcompvcl;FMXTee;TeeUI;vclie;vcltouch;DBXDb2Driver;websnap;DBXOracleDriver;CustomIPTransport;vclribbon;VclSmp;dsnap;IndyIPServer;DBXInformixDriver;Intraweb;IndyCore;vcl;DataSnapConnectors;IndyIPCommon;CloudService;DBXMSSQLDriver;dsnapcon;DBXFirebirdDriver;FmxTeeUI;inet;vclx;inetdbxpress;webdsnap;svn;DBXSybaseASADriver;bdertl;dbexpress;adortl;DataSnapIndy10ServerTransport;IndyIPClient;$(DCC_UsePackage) $(BDS)\bin\default_app.manifest Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) - 1033 CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= - bindcompfmx;vcldbx;rtl;dbrtl;IndySystem;bindcomp;DataSnapClient;DataSnapCommon;DBXOdbcDriver;DataSnapServer;DataSnapProviderClient;xmlrtl;svnui;DBXSybaseASEDriver;DbxCommonDriver;vclimg;IndyProtocols;dbxcds;MetropolisUILiveTile;bindcompdbx;vclactnband;bindengine;vcldb;soaprtl;vcldsnap;bindcompvcl;vclie;vcltouch;VclSmp;dsnap;IndyIPServer;IndyCore;vcl;dsnapcon;vclx;inetdbxpress;webdsnap;svn;bdertl;adortl - - - true - $(BDS)\bin\default_app.manifest - Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace) 1033 - CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= - bindcompfmx;DBXSqliteDriver;rtl;dbrtl;DbxClientDriver;IndySystem;bindcomp;inetdb;DBXInterBaseDriver;DataSnapClient;DataSnapCommon;DBXOdbcDriver;DataSnapServer;DataSnapProviderClient;xmlrtl;DBXSybaseASEDriver;DbxCommonDriver;vclimg;IndyProtocols;dbxcds;DBXMySQLDriver;DatasnapConnectorsFreePascal;MetropolisUILiveTile;bindcompdbx;vclactnband;bindengine;vcldb;soaprtl;vcldsnap;bindcompvcl;vclie;vcltouch;DBXDb2Driver;DBXOracleDriver;CustomIPTransport;VclSmp;dsnap;IndyIPServer;DBXInformixDriver;IndyCore;vcl;DataSnapConnectors;IndyIPCommon;CloudService;DBXMSSQLDriver;dsnapcon;DBXFirebirdDriver;inet;vclx;inetdbxpress;webdsnap;DBXSybaseASADriver;dbexpress;adortl;DataSnapIndy10ServerTransport;IndyIPClient;$(DCC_UsePackage) + true DEBUG;$(DCC_Define) @@ -81,9 +74,6 @@ true - D:\Delphi\langpacks\tool\ - true - 1033 false @@ -93,14 +83,16 @@ false - 1 - CompanyName=;FileDescription=;FileVersion=1.1.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= + 2 true - None - .\ + CompanyName=;FileDescription=;FileVersion=2.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=2.0.0.0;Comments= + .\..\..\langpacks\ + .\..\..\langpacks\ true + langpackmgr.ico 1033 - ..\..\langpacks\tool\ + false + false @@ -108,6 +100,7 @@
Form1
+ dfm Cfg_2 @@ -154,21 +147,15 @@ - - - - - - - langpackmgr.dpr + LangPackMgr.dpr Microsoft Office 2000 Sample Automation Server Wrapper Components @@ -178,7 +165,6 @@ True - False 12 -- cgit v1.2.3