main.pas

unit main;

interface

uses
{$IFDEF MSWINDOWS}
  System.Win.Registry,
{$ENDIF}
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.WebBrowser,
  FMX.StdCtrls, FMX.Controls.Presentation, System.Threading, System.IOUtils;

type
  Tfmmain = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    Timer2: TTimer;
    ToolBar1: TToolBar;
    btndatachg: TButton;
    btnoriginal: TButton;
    WebBrowser1: TWebBrowser;
    procedure btndatachgClick(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btnoriginalClick(Sender: TObject);
  private
    { Private declarations }
{$IFDEF MSWINDOWS}
    procedure SetPermissions;
{$ENDIF}
    procedure webbrowserstart;
    procedure webbrowsernewjs;
    procedure GetdoughnutDetail(var clabels, cbackgroundcolor, cdata: string);
    procedure GetmixedchartDetail(var mlabels, mdata1, mdata2, mabackgroundcolor, madata,
      mbbackgroundcolor2, mbdata: string);
    function getDir:String;
  public
    { Public declarations }

  end;

var
  fmmain: Tfmmain;

implementation

{$R *.fmx}

procedure Tfmmain.btndatachgClick(Sender: TObject);
begin

  WebBrowser1.URL := 'file://' + getDir + '/index.html';
  WebBrowser1.Reload;
  Timer2.Enabled := true;
end;

procedure Tfmmain.btnoriginalClick(Sender: TObject);
begin
  WebBrowser1.URL := 'file://' + getDir + '/index.html';
  WebBrowser1.Reload;
  Timer1.Enabled := true;
end;

procedure Tfmmain.FormCreate(Sender: TObject);
begin
{$IFDEF MSWINDOWS}
  SetPermissions;
{$ENDIF}
  WebBrowser1.URL := 'file://' + getDir + '/index.html';
end;

procedure Tfmmain.FormShow(Sender: TObject);
begin
  Timer1.Enabled := true;
end;

function Tfmmain.getDir: String;
begin
{$IFDEF MSWINDOWS}
  result := GetCurrentDir;
{$ELSE}
  result :=   TPath.GetDocumentsPath;
{$ENDIF}

end;

procedure Tfmmain.GetdoughnutDetail(var clabels, cbackgroundcolor, cdata: string);
begin
  clabels := '["Upstairs", "Outside", "Bedroom3", "Garage", "Dining Room"],';
  cbackgroundcolor := '["#3e95cd", "#8e5ea2","#3cba9f","#e8c3b9","#c45850"], ';
  cdata := '[89,300,5,10,100]';

end;

procedure Tfmmain.GetmixedchartDetail(var mlabels, mdata1, mdata2, mabackgroundcolor, madata,
  mbbackgroundcolor2, mbdata: string);
begin
  mlabels := ' ["Bedroom", "Bathroom", "Study","Lounge"], ';
  mdata1 := '[250,140,270,100],';
  mdata2 := '[830,520,620,380],';
  mabackgroundcolor := '';
  madata := '';
  mbbackgroundcolor2 := '';
  mbdata := '';

end;

{$IFDEF MSWINDOWS}

procedure Tfmmain.SetPermissions;
const
  cHomePath = 'SOFTWARE';
  cFeatureBrowserEmulation =
    'Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION\';
  cIE11 = 11001;
var
  Reg: TRegIniFile;
  sKey: string;
begin
  sKey := ExtractFileName(ParamStr(0));
  Reg := TRegIniFile.Create(cHomePath);
  try
    if Reg.OpenKey(cFeatureBrowserEmulation, true) and
      not(TRegistry(Reg).KeyExists(sKey) and (TRegistry(Reg).ReadInteger(sKey) = cIE11)) then
      TRegistry(Reg).WriteInteger(sKey, cIE11);
  finally
    Reg.Free;
  end;
end;
{$ENDIF}

procedure Tfmmain.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := false;
  webbrowserstart;
end;

procedure Tfmmain.Timer2Timer(Sender: TObject);
begin
  Timer2.Enabled := false;
  webbrowsernewjs;
end;

procedure Tfmmain.webbrowsernewjs;
var
clabels,cbackgroundcolor,cdata:string;
mlabels, mdata1, mdata2,mabackgroundcolor, madata,
mbbackgroundcolor2, mbdata:string;
updategraph:string;
begin
 GetdoughnutDetail(clabels,cbackgroundcolor,cdata);
 GetmixedchartDetail(mlabels, mdata1, mdata2,
  mabackgroundcolor, madata, mbbackgroundcolor2, mbdata);
updategraph :=
'new Chart(document.getElementById("doughnut-chart"), {'
+'    type: "doughnut",'
+'    data: {'
+'      labels: '+clabels
+'      datasets: ['
+'        { '
 +'         label: "Rooms",'
 +'         backgroundColor:' +cbackgroundcolor
 +'         data: ' +cdata
 +'       } '
+'      ]  '
 +'   },  '
 +'   options: {   '
 +'     legend: { display: false },  '
 +'     title: {   '
 +'       display: "True",  '
 +'       text: "Total Assets Value"   '
 +'     }  '
 +'   }  '
+'});'

+'new Chart(document.getElementById("mixed-chart"), {  '
 +'   type: "bar",              '
 +'  data: {                    '
 +'     labels: '+ mlabels
+'      datasets: [{            '
+'          label: "Purchased",   '
+'          type: "line",        '
+'          borderColor: "#8e5ea2",   '
+'          data: '+mdata1
+'          fill: false   '
+'        }, {       '
+'          label: "Disposed",    '
+'          type: "line",        '
+'          borderColor: "#3e95cd",    '
+'          data:' +mdata2
+'         fill: false   '
+'        }, {         '
+'          label: "Purchased",  '
+'          type: "bar",        '
 +'         backgroundColor: "rgba(0,120,5,0.2)", '
 +'         data: '+mdata1
+'        }, {                       '
+'          label: "Disposed",       '
+'          type: "bar",         '
+'          backgroundColor: "rgba(0,30,220,0.2)", '
+'          backgroundColorHover: "#3e95cd",    '
+'         data: '+ mdata2
+'        }           '
+'      ]           '
+'    },            '
+'    options: {     '
 +'     title: {     '
+'        display: true, '
+'        text: "Purchased & Disposed Assets"  '
+'      },       '
+'      legend: { display: false }  '
+'    }     '
+'});   '
  ;
    WebBrowser1.EvaluateJavaScript(updategraph);
end;

procedure Tfmmain.webbrowserstart;
var
clabels,cbackgroundcolor,cdata,mlabels, mdata1, mdata2,mdata3,mdata4 :string;
updategraph:string;
begin
 clabels:= '["Upstairs", "Outside", "Bedroom3", "Garage", "Dining Room"],';
 cbackgroundColor:= '["#3e95cd", "#8e5ea2","#3cba9f","#e8c3b9","#c45850"], ';
 cdata:='[890,200,500,100,1000]';
 mlabels:= ' ["Dining Room", "Bedroom", "Garage","Stoep"], ';
 mdata1:=  '[200,140,70,1000],';
 mdata2:=  '[800,720,1220,3800],';

updategraph :=
'new Chart(document.getElementById("doughnut-chart"), {'
+'    type: "doughnut",'
+'    data: {'
+'      labels: '+clabels
+'      datasets: ['
+'        { '
 +'         label: "Rooms",'
 +'         backgroundColor:' +cbackgroundcolor
 +'         data: ' +cdata
 +'       } '
+'      ]  '
 +'   },  '
 +'   options: {   '
 +'     legend: { display: false },  '
 +'     title: {   '
 +'       display: "True",  '
 +'       text: "Total Assets Value"   '
 +'     }  '
 +'   }  '
+'});'

+'new Chart(document.getElementById("mixed-chart"), {  '
 +'   type: "bar",              '
 +'  data: {                    '
 +'     labels: '+ mlabels
+'      datasets: [{            '
+'          label: "Purchased",   '
+'          type: "line",        '
+'          borderColor: "#8e5ea2",   '
+'          data: '+mdata1
+'          fill: false   '
+'        }, {       '
+'          label: "Disposed",    '
+'          type: "line",        '
+'          borderColor: "#3e95cd",    '
+'          data:' +mdata2
+'         fill: false   '
+'        }, {         '
+'          label: "Purchased",  '
+'          type: "bar",        '
 +'         backgroundColor: "rgba(0,120,5,0.2)", '
 +'         data: '+mdata1
+'        }, {                       '
+'          label: "Disposed",       '
+'          type: "bar",         '
+'          backgroundColor: "rgba(0,30,220,0.2)", '
+'          backgroundColorHover: "#3e95cd",    '
+'         data: '+ mdata2
+'        }           '
+'      ]           '
+'    },            '
+'    options: {     '
 +'     title: {     '
+'        display: true, '
+'        text: "Purchased & Disposed Assets"  '
+'      },       '
+'      legend: { display: false }  '
+'    }     '
+'});   '
  ;
  WebBrowser1.EvaluateJavaScript(updategraph);
end;

end.