source: trunk/UFormMain.pas

unit UFormMain;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
  FMX.Layouts, FMX.Objects, FMX.Controls.Presentation, FMX.MultiView, IniFiles,
  System.IOUtils, UOdorikApi;

type
  TFormMain = class(TForm)
    MultiView1: TMultiView;
    Layout1: TLayout;
    ToolBar1: TToolBar;
    SpeedButtonMenu: TSpeedButton;
    Rectangle1: TRectangle;
    VertScrollBox1: TVertScrollBox;
    RectangleSettings: TRectangle;
    LabelSettings: TLabel;
    VertScrollBox2: TVertScrollBox;
    LabelCredit: TLabel;
    Timer1: TTimer;
    RectangleCalls: TRectangle;
    Label1: TLabel;
    procedure RectangleSettingsClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormSaveState(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure RectangleCallsClick(Sender: TObject);
  private
    { Private declarations }
  public
    OdorikApi: TOdorikApi;
    Credit: Double;
    ConfigFileName: string;
    ReloadPending: Boolean;
    procedure LoadConfig;
    procedure SaveConfig;
  end;

var
  FormMain: TFormMain;


implementation

{$R *.fmx}

uses
  UFormSettings, UFormCalls;

procedure TFormMain.FormCreate(Sender: TObject);
begin
  OdorikApi := TOdorikApi.Create(nil);
  ConfigFileName := TPath.Combine(TPath.GetHomePath, 'OdorikApi.ini');
  LoadConfig;
end;

procedure TFormMain.FormSaveState(Sender: TObject);
begin
  SaveConfig;
end;

procedure TFormMain.FormShow(Sender: TObject);
begin
  TThread.CreateAnonymousThread(
    procedure
    begin
      Credit := OdorikApi.GetCredit;
    end).Start;
end;

procedure TFormMain.LoadConfig;
var
  IniFile: TIniFile;
begin
  IniFile := TIniFile.Create(ConfigFileName);
  with IniFile do
  try
    OdorikApi.UserName := ReadString('General', 'UserName', '');
    OdorikApi.Password := ReadString('General', 'Password', '');
    OdorikApi.ServerUrl := ReadString('General', 'ServerUrl', 'https://www.odorik.cz/api/v1');
  finally
    IniFile.Free;
  end;
end;

procedure TFormMain.RectangleCallsClick(Sender: TObject);
begin
  MultiView1.HideMaster;
  FormCalls.Show;
end;

procedure TFormMain.RectangleSettingsClick(Sender: TObject);
begin
  MultiView1.HideMaster;
  FormSettings.Show;
end;

procedure TFormMain.SaveConfig;
var
  IniFile: TIniFile;
begin
  IniFile := TIniFile.Create(ConfigFileName);
  with IniFile do
  try
    WriteString('General', 'UserName', OdorikApi.UserName);
    WriteString('General', 'Password', OdorikApi.Password);
    WriteString('General', 'ServerUrl', OdorikApi.ServerUrl);
  finally
    IniFile.Free;
  end;
end;


procedure TFormMain.Timer1Timer(Sender: TObject);
begin
  if ReloadPending then begin
    ReloadPending := False;
    Credit := OdorikApi.GetCredit;
  end;
  LabelCredit.Text := 'Credit: ' + FloatToStr(Credit) + ' Kè';
end;

end.