RnQ/RnQ/langLib.pas

{
  Copyright (C) 2002-2004  Massimo Melina (www.rejetto.com)

  This file is part of &RQ.

  &RQ is free software; you can redistribute it and/or modify
  it under the terms of the GNU General Public License as published by
  the Free Software Foundation; either version 2 of the License, or
  (at your option) any later version.

  &RQ is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  GNU General Public License for more details.

  You should have received a copy of the GNU General Public License
  along with &RQ; if not, write to the Free Software
  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
}
unit langLib;
{$I RnQConfig.inc}

interface

uses
  RnQLangs, classes, forms;

{$I NoRTTI.inc}
procedure translateWindows;
procedure translateWindow(w: Tform);
procedure translateComponent(c: Tcomponent; window: Tform);

implementation

uses
  utilLib, globalLib, chatDlg, mainDlg, ComCtrls, // CheckLst,
  RnQButtons, RQUtil, RQLog, RDGlobal, Types, VirtualTrees,
  stdctrls, ExtCtrls, menus, controls, sysUtils;

function trans(const s: string): string; inline;
begin
  { if AnsiStartsStr('___',s) then
    result:=getTranslation(copy(s,4,9999))
    else
  }
  // if useLang and Assigned(LangVar) then
  result := getTranslation(s);
end; // trans

(* procedure trans2(var s:string); inline;
  begin
  {if AnsiStartsStr('___',s) then
  result:=getTranslation(copy(s,4,9999))
  else
  }
  s := getTranslation(s);
  end; // trans *)

procedure translateComponent(c: Tcomponent; window: Tform);

  procedure recurMenu(it: Tmenuitem);
  var
    i: integer;
  begin
    it.caption := trans(it.caption);
    it.hint := trans(it.hint);
    with it do
      for i := 0 to count - 1 do
        recurMenu(items[i]);
  end; // recurMenu

{ procedure recurTree(t:Ttreenode); overload;
  var
  i:integer;
  begin
  t.text:=trans(t.text);
  for i:=0 to t.count-1 do
  recurTree(t.item[i]);
  end; // recurTree
}
{ procedure recurTree(t:Ttreenodes); overload;
  var
  i:integer;
  begin
  for i:=0 to t.count-1 do
  recurTree(t.item[i]);
  end; // recurTree
}
  procedure tstrings_trans(s: Tstrings);
  var
    i: integer;
  begin
    for i := 0 to s.count - 1 do
      s[i] := trans(s[i]);
  end; // tstrings_trans

var
  i, k: integer;
begin
  if c is Tcheckbox then
    with c as Tcheckbox do
    begin
      if caption > '' then
      begin
        caption := trans(caption);
        // width:=35+txtSize(window.canvas.handle, caption).cx;
      end
    end
  else if c is Tcustomform then
    with c as Tcustomform do
      caption := trans(caption)
  else if c is Tmenu then
    with c as Tmenu do
      recurMenu(items)
  else if c is Tlabel then
    with c as Tlabel do
      caption := trans(caption)
  else if c is Ttabsheet then
    with c as Ttabsheet do
      caption := trans(caption)
  else if c is Tlabelededit then
    with c as Tlabelededit do
      with editlabel do
        caption := trans(caption)
  else if c is Tgroupbox then
    with c as Tgroupbox do
      caption := trans(caption)
  else if c is Tpanel then
    with c as Tpanel do
      caption := trans(caption)
  else if c is Tbutton then
    with c as Tbutton do
      caption := trans(caption)
  else if c is TRnQspeedbutton then
    with c as TRnQspeedbutton do
      caption := trans(caption)
  else if c is TRnQToolButton then
    with c as TRnQToolButton do
      caption := trans(caption)
  else if c is Tradiobutton then
    with c as Tradiobutton do
    begin
      if caption > '' then
      begin
        caption := trans(caption);
        // width:=25+txtSize(window.canvas.handle, caption).cx;
      end
    end
  else if c is Tradiogroup then
    with c as Tradiogroup do
    begin
      caption := trans(caption);
      tstrings_trans(items);
    end
  else if c is TcomboBox then
    with TcomboBox(c) do
    begin // itemindex is lost during translation
      i := itemIndex;
      k := items.count;
      if k > 0 then
      begin
        tstrings_trans(items);
        itemIndex := i;
      end;
    end
  else if c is TVirtualDrawTree then
  begin
    for i := 0 to TVirtualDrawTree(c).Header.Columns.count - 1 do
      TVirtualDrawTree(c).Header.Columns.items[i].Text := getTranslation(TVirtualDrawTree(c).Header.Columns.items[i].Text)
  end
  {
    else if c is Tchecklistbox then with c as Tchecklistbox do
    tstrings_trans(items)
  }
    ;

  { if c is TColorPickerButton then with c as TColorPickerButton do
    begin
    caption:=trans(caption);
    customText:=trans(customText);
    end; }
  if c is Tcontrol then
    with c as Tcontrol do
      hint := trans(hint);

  for i := c.componentCount - 1 downto 0 do
    translateComponent(c.components[i], window);
end; // translateComponent

procedure translateWindow(w: Tform);
begin
  translateComponent(w, w)
end;

procedure translateWindows;
var
  i: integer;
begin
  i := 0;
  while i < screen.formCount do
  begin
    translateWindow(screen.forms[i]);
    inc(i);
  end;
end; // translateWindows

end.