path: root/tools/langpackmgr/Unit1.pas

unit unit1;

interface

uses
  classes, sysutils, fileutil, forms, controls, graphics, dialogs, stdctrls,
  extctrls, Windows;

type

  { 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 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 }
  public
    { public declarations }
  end;

var
  form1: tform1;
  locale: string;
  z,j,i,l:integer;
  sr:tsearchrec;
  res:integer;
  s:array[0..1,1..6000] of string;
  u:array[0..6000] of integer;
  first:string;
  filename:string;
  im,m:integer;
  sse:string;
implementation

{$r *.lfm}

{ tform1 }




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
 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;

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;
    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
        else
        if (copy(s[0,i],1,1)='[')and
        (fileexists(extractfilePath(application.exename)+'clearstring.ini'))then
          begin
          sList.add(s[0,i]);
          sList.add('');
          end;
      end;
  sList.SavetoFile(extractfilePath(application.exename)
  +'/'+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.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);
begin
   if (form1.caption<>'Miranda NG Langpack Tools: Editor')
   then
      begin
        savestring;
        memo1.lines.clear;
        memo2.lines.clear;
{}
        stringview;
      end;
end;

procedure tform1.listbox2click(sender: tobject);
  var
  sr:tsearchrec;
  res:integer;
begin
  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;

  combobox1.itemindex:=0;
  stringlist;
  if (fileexists(extractfilePath(application.exename)+'/'+locale+'/'
  +'Langpack_'+locale+'.txt'))  then button2.Enabled:=true;

end;

end.