unit Unit1;

{$I cef.inc}

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ceflib, uCEFWinControl, uCEFChromiumWindow, uCEFChromiumCore,  uCEFTypes,
  uCEFChromium, StdCtrls, uCEFWindowParent, ExtCtrls, uCEFSentinel, sLabel,
  sPanel, sSkinProvider, sSkinManager, DB, ADODB, ComCtrls, sPageControl,
  acPNG, acImage, sButton, sEdit, Mask, sMaskEdit, sGroupBox, sCheckBox;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ChromiumWindow1: TChromiumWindow;
    Timer1: TTimer;
    Label1: TLabel;
    sSkinManager1: TsSkinManager;
    sSkinProvider1: TsSkinProvider;
    sPanel1: TsPanel;
    sLabel1: TsLabel;
    Button2: TButton;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    Button3: TButton;
    sPageControl1: TsPageControl;
    sPanelMenu: TsPanel;
    TabWhatsapp: TsTabSheet;
    TabTelegram: TsTabSheet;
    sImage5: TsImage;
    sImage6: TsImage;
    sLabel7: TsLabel;
    ChromiumWindow2: TChromiumWindow;
    TabSkype: TsTabSheet;
    TabMail: TsTabSheet;
    ChromiumWindow3: TChromiumWindow;
    mPanelMail: TsPanel;
    sLabel2: TsLabel;
    mIcoMail: TsImage;
    mPanelWhatsapp: TsPanel;
    mIcoWhatsapp: TsImage;
    sLabel3: TsLabel;
    mPanelTelegram: TsPanel;
    mIcoTelegram: TsImage;
    sLabel4: TsLabel;
    mPanelSkype: TsPanel;
    mIcoSkype: TsImage;
    sLabel5: TsLabel;
    MenuTimer: TTimer;
    sImage7: TsImage;
    sImage8: TsImage;
    TabSignup: TsTabSheet;
    sImage9: TsImage;
    sLabel8: TsLabel;
    PageLogin: TsPageControl;
    TabLogin: TsTabSheet;
    TabAuth: TsTabSheet;
    loginName: TsEdit;
    loginPass: TsEdit;
    LoginSubmit: TsButton;
    sLabel9: TsLabel;
    sLabel10: TsLabel;
    sLabel11: TsLabel;
    sLabel12: TsLabel;
    regName: TsEdit;
    sLabel13: TsLabel;
    regPass: TsEdit;
    regSubmit: TsButton;
    sLabel15: TsLabel;
    regEmail: TsEdit;
    sLabel16: TsLabel;
    sLabel18: TsLabel;
    sLabel19: TsLabel;
    sImage10: TsImage;
    sLabel20: TsLabel;
    DataSource1: TDataSource;
    TabAccount: TsTabSheet;
    sGroupBox1: TsGroupBox;
    submitAccChange: TsButton;
    sLabel14: TsLabel;
    labelAccUsername: TsLabel;
    sCheckBox1: TsCheckBox;
    cbShowPass1: TsCheckBox;
    Button4: TButton;





    procedure MinimizeClickEvent(const AEvent: ICefDomEvent);
    procedure Button4Click(Sender: TObject; const browser: ICefBrowser;
  const frame: ICefFrame; httpStatusCode: Integer; out Result: Boolean);
    procedure OnExploreDOM(const ADocument: ICefDomDocument);

  private
    selectPanel: boolean;
    movedMenu : boolean;


  public

    regusername, regpassword, regusermail, currentuser, signupname, signuppass : string;
    userLogined : boolean;

  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}


procedure TForm1.Button4Click(Sender: TObject; const browser: ICefBrowser;
  const frame: ICefFrame; httpStatusCode: Integer; out Result: Boolean );

begin
  if Assigned(frame) then
    frame.VisitDomProc(OnExploreDOM);
end;

procedure MinimizeClickEvent(const AEvent: ICefDomEvent);
begin
  ShowMessage('Here the application can be minimized.');
end;

procedure OnExploreDOM(const ADocument: ICefDomDocument);
var
  DOMNode: ICefDomNode;
begin
  // here we attempt to find our "minimize" element
  DOMNode := ADocument.GetElementByClassName('_2UaNq _3mMX1');
  // and if we find it, we attach to its click event our MinimizeClickEvent
  // procedure so whenever the element will be clicked, that procedure will
  // execute
  if Assigned(DOMNode) then
    DOMNode.AddEventListenerProc('click', True, MinimizeClickEvent);
end;