source/astro/fdForm.pas - master - dimferon/AstrobloQ

source/astro/fdForm.pas
99 строк2 KB
glscene
updated sources
25 дек 2024, 22:44
25 дек 2024, 22:4455f2d3b
//-------------------------------------
// This unit is part of AstroLibrary
//-------------------------------------

unit fdForm;

(* The fdForm unit for TFormI class as parent for all child forms *)

interface

uses
  Winapi.Windows,
  System.SysUtils,
  System.IniFiles,
  Vcl.Forms,
  Vcl.Graphics,
  Vcl.Menus,
  Vcl.ExtDlgs,

  gnuGettext;

type
  TFormI = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
  public
    LangID: Word;
    procedure ReadIniFile; virtual;
    procedure SetLanguage;
  end;

var
  FormI: TFormI;

implementation

{$R *.dfm}

//
procedure TFormI.FormCreate(Sender: TObject);
begin
  ReadInifile;
  SetLanguage;
end;

//----------------------------------------------------------
procedure TFormI.SetLanguage;
var
  LocalePath : TFileName;
begin
  LocalePath := ExtractFileDir(ParamStr(0));
  LocalePath := LocalePath + PathDelim + 'locale' + PathDelim;

  if (LangID <> LANG_ENGLISH) then
  begin
    Textdomain('astroviewer');
    BindTextDomain ('astroviewer', LocalePath);
    case LangID of
      LANG_RUSSIAN:
      begin
        UseLanguage('ru');
      end
      else
      begin
        UseLanguage('en');
      end;
    end;
  end
  else
  begin
    UseLanguage('en');
    // not implemented help
    Application.HelpFile := UpperCase(LocalePath + 'en'+ PathDelim+'AstroViewer.chm');
  end;

  //TP_GlobalIgnoreClass(TTable);
  //TP_GlobalIgnoreClass(TFields);
  //TP_GlobalIgnoreClass(TGLMaterialLibrary);

  TranslateComponent(Self);
end;


//========================================================================
procedure TFormI.ReadIniFile;
var
  IniFile: TIniFile;
begin
  IniFile := TIniFile.Create(ChangeFileExt(ParamStr(0), '.ini'));
  with IniFile do
    try
      // ��������� ������������� ����� ����������
      LangID := ReadInteger('frmSettings', 'rgLanguage', 0);
    finally
      IniFile.Free;
    end;
end;

end.