unit7.pas

unit Unit7;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
  ExtCtrls, StdCtrls, IniPropStorage,LCLTranslator,unConstants,LocalizedForms;

type

  TuiJazyky = (czech,english);
  { TFormNastaveni }

  TFormNastaveni = class(TLocalizedForm)         // Options form
    logyAplikaceNastaveni: TCheckGroup;
    IniPropStorage1: TIniPropStorage;
    Okbutton: TButton;
    CancelButton: TButton;
    PageControl1: TPageControl;
    FilmScrapers: TRadioGroup;
    LanguageScrapers: TRadioGroup;
    jazykAplikace: TRadioGroup;
    mysKoleckoOznaceni: TRadioGroup;
    SerialScrapers: TRadioGroup;
    Scrapers: TTabSheet;
    narodniNastaveni: TTabSheet;
    ostatni: TTabSheet;
    procedure FormCreate(Sender: TObject);
    procedure IniPropStorage1RestoreProperties(Sender: TObject);
    procedure IniPropStorage1SavingProperties(Sender: TObject);
    procedure jazykAplikaceSelectionChanged(Sender: TObject);
    procedure OkbuttonClick(Sender: TObject);
    procedure nastavStatusBar;
    procedure spustReinicializaci(Data: PtrInt); // pomocná pro  QueueAsyncCall
  private
    { private declarations }
  public
    { public declarations }
  protected
    procedure UpdateTranslation(ALang: String); override;
  end;

var
  FormNastaveni: TFormNastaveni;
  uiJazyk:array[TuiJazyky] of String[2] = ('cs','en');


implementation
uses unit1,       // resource string
     unit8;       // formScraper

{$R *.frm}

{ TFormNastaveni }

procedure TFormNastaveni.OkbuttonClick(Sender: TObject);

begin
  FormNastaveni.Close;
  { nastavení aktuálního scraperu při změně konfigurace v ini souboru}
  aktualniScraperFilm:=ScraperyFilm[TScraperFilm(FormNastaveni.FilmScrapers.ItemIndex)];
  aktualniScraperSerial:=ScraperySerial[TScraperSerial(FormNastaveni.SerialScrapers.ItemIndex)];
  aktualniScraperEpisody:=scraperyEpizody[TScraperSerial(FormNastaveni.SerialScrapers.ItemIndex)];
  aktualniJazyk:=jazyky[Tjazyky(FormNastaveni.LanguageScrapers.ItemIndex)];
  // reinicializace genresMovieDB during scraper language change
  //         - je deklarován v Unit8,line 16-22
  // QueAsyncCall for keeping responsive ui :-)
  Application.QueueAsyncCall(@spustReinicializaci,1);
  nastavStatusBar;
end;

procedure TFormNastaveni.jazykAplikaceSelectionChanged(Sender: TObject);
var
  pom:String;
begin
   pom:=uiJazyk[TUiJazyky(jazykAplikace.ItemIndex)];
   SetDefaultLang(pom);
   Form1.UpdateTranslation(pom);
end;

procedure TFormNastaveni.FormCreate(Sender: TObject);
begin
 mysKoleckoOznaceni.Items.Strings[0]:= rsHighlightIni;
 mysKoleckoOznaceni.Items.Strings[1]:= rsDoNotHighlig;
 // disabling imdb.com sraper due to omdbapi.com became paid
 FilmScrapers.Controls[1].Enabled:=False;
  if FormNastaveni.logyAplikaceNastaveni.Checked[0] then
       begin
         form1.frmeventLog.FileName:='eventLogMain.log';
         Form1.frmeventLog.Active:=True;
       end
    else
       begin
         Form1.frmeventLog.FileName:='';
         Form1.frmeventLog.Active:=False;
       end;
end;

procedure TFormNastaveni.IniPropStorage1RestoreProperties(Sender: TObject);
begin
  logyAplikaceNastaveni.Checked[0]:=StrToBool(
                                    IniPropStorage1.StoredValue['mainApplicationLog']);
  logyAplikaceNastaveni.Checked[1]:=StrToBool(
                                    IniPropStorage1.StoredValue['scrappingLog']);
end;

procedure TFormNastaveni.IniPropStorage1SavingProperties(Sender: TObject);
begin
  IniPropStorage1.StoredValue['mainApplicationLog']:=BoolToStr(
                                                     logyAplikaceNastaveni.Checked[0]);
  IniPropStorage1.StoredValue['scrappingLog']:=BoolToStr(
                                               logyAplikaceNastaveni.Checked[1]);
end;

procedure TFormNastaveni.nastavStatusBar;
var
  PomS: String;
  PomF: String;
begin
  PomS:= FormNastaveni.SerialScrapers.Items[FormNastaveni.SerialScrapers.ItemIndex];
  PomF:= FormNastaveni.FilmScrapers.Items[FormNastaveni.FilmScrapers.ItemIndex];
  if (PomS='themoviedb.org') or (pomS='thetvdb.com') then PomS:=PomS+'('+aktualniJazyk+')';
  if PomF='themoviedb.org' then PomF:=PomF+'('+aktualniJazyk+')';
  Form1.StatusBar1.Panels[1].Text:=Format(rsSeriesFilms, [PomS, PomF]);
end;

procedure TFormNastaveni.spustReinicializaci(Data: PtrInt);
begin
  //initGenres(genresMovieDB,
  //           'https://api.themoviedb.org/3/genre/movie/list?api_key='+theMovidedbAPI+
  //           '&language='+aktualniJazyk,'$json("genres")() ! [.("id"), .("name")]');
  InitGenresLanguageFilm[TScraperFilm(FormNastaveni.FilmScrapers.ItemIndex)](aktualniJazyk);
  InitGenresLanguageSerial[TScraperSerial(FormNastaveni.SerialScrapers.ItemIndex)](aktualniJazyk);
end;

procedure TFormNastaveni.UpdateTranslation(ALang: String);
begin
  inherited UpdateTranslation(ALang);
  mysKoleckoOznaceni.Items.Strings[0]:= rsHighlightIni;
  mysKoleckoOznaceni.Items.Strings[1]:= rsDoNotHighlig;
  //nastavStatusBar;  // způsobovalo podivnou chybu, po přidání lines 146,147,
  // asi chyba fpc nebo lazarusu v TIniPropStorage;
  logyAplikaceNastaveni.Items.Strings[0]:= rsMainApplicat;
  logyAplikaceNastaveni.Items.Strings[1]:= rsScrappingLog;
end;

end.