source: trunk/UFormCalls.pas

unit UFormCalls;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.ListView.Types, FMX.ListView.Appearances, FMX.ListView.Adapters.Base,
  FMX.ListView, FMX.TabControl, FMX.StdCtrls, FMX.Controls.Presentation,
  System.DateUtils, System.TimeSpan, System.JSON, Generics.Collections,
  UOdorikApi, FMX.Layouts, FMX.ListBox;

type
  TFormCalls = class(TForm)
    ToolBar1: TToolBar;
    SpeedButtonBack: TSpeedButton;
    Label1: TLabel;
    TabControl1: TTabControl;
    TabItemHistory: TTabItem;
    TabItemActive: TTabItem;
    TabItemStatistics: TTabItem;
    ListBox1: TListBox;
    procedure SpeedButtonBackClick(Sender: TObject);
    procedure TabControl1Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormCalls: TFormCalls;


implementation

{$R *.fmx}

uses
  UFormMain;

procedure TFormCalls.FormShow(Sender: TObject);
begin
  TabControl1Change(nil);
end;

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

procedure TFormCalls.TabControl1Change(Sender: TObject);
var
  IntervalFrom: TDateTime;
  IntervalTo: TDateTime;
  ListViewItem: TListViewItem;
  Call: TCall;
  CallHistory: TList<TCall>;
begin
  ListView1.Items.Clear;
  IntervalTo := Now;
  IntervalFrom := IntervalTo - OneHour * 24;
  CallHistory := FormMain.OdorikApi.GetCallHistory(IntervalFrom, IntervalTo);
  for Call in CallHistory do begin
    ListViewItem := ListView1.Items.Add;
    ListViewItem.Text := Call.SourceNumber;
  end;
end;

end.