source: trunk/UFormSettings.pas

unit UFormSettings;

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.Controls.Presentation, FMX.Layouts, FMX.Objects, FMX.DialogService;

type
  TFormSettings = class(TForm)
    ToolBar1: TToolBar;
    SpeedButtonBack: TSpeedButton;
    Label1: TLabel;
    VertScrollBox1: TVertScrollBox;
    RectangleUserName: TRectangle;
    Label2: TLabel;
    Label3: TLabel;
    RectanglePassword: TRectangle;
    Label4: TLabel;
    Label5: TLabel;
    RectangleServerUrl: TRectangle;
    Label6: TLabel;
    Label7: TLabel;
    Rectangle1: TRectangle;
    procedure SpeedButtonBackClick(Sender: TObject);
    procedure RectangleServerUrlClick(Sender: TObject);
    procedure RectanglePasswordClick(Sender: TObject);
    procedure RectangleUserNameClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    procedure ServerUrlQuery(const AResult: TModalResult; const AValues: array of string);
    procedure PasswordQuery(const AResult: TModalResult; const AValues: array of string);
    procedure UserNameQuery(const AResult: TModalResult; const AValues: array of string);
  public
    { Public declarations }
  end;

var
  FormSettings: TFormSettings;

implementation

{$R *.fmx}

uses
  UFormMain;

procedure TFormSettings.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FormMain.SaveConfig;
  FormMain.ReloadPending := True;
end;

procedure TFormSettings.PasswordQuery(const AResult: TModalResult;
  const AValues: array of string);
begin
  if AResult = mrOk then
    FormMain.OdorikApi.Password := AValues[0];
end;

procedure TFormSettings.RectanglePasswordClick(Sender: TObject);
begin
  TDialogService.InputQuery('Password', ['Password'], [FormMain.OdorikApi.Password], PasswordQuery);
end;

procedure TFormSettings.RectangleServerUrlClick(Sender: TObject);
begin
  TDialogService.InputQuery('Server URL', ['Server URL'], [FormMain.OdorikApi.ServerUrl], ServerUrlQuery);
end;

procedure TFormSettings.RectangleUserNameClick(Sender: TObject);
begin
  TDialogService.InputQuery('User name', ['User name'], [FormMain.OdorikApi.UserName], UserNameQuery);
end;

procedure TFormSettings.ServerUrlQuery(const AResult: TModalResult;
  const AValues: array of string);
begin
  if AResult = mrOk then
    FormMain.OdorikApi.ServerUrl := AValues[0];
end;

procedure TFormSettings.SpeedButtonBackClick(Sender: TObject);
begin
  Close;
end;

procedure TFormSettings.UserNameQuery(const AResult: TModalResult;
  const AValues: array of string);
begin
  if AResult = mrOk then
    FormMain.OdorikApi.UserName := AValues[0];
end;

end.