Pages.Main001 Delphi

unit View.Pages.Main001;

interface

uses
  Winapi.Windows,
  Winapi.Messages,
  System.SysUtils,
  System.Variants,
  System.Classes,
  Vcl.Graphics,
  Vcl.Controls,
  Vcl.Forms,
  Vcl.Dialogs,
  Vcl.ExtCtrls,
  Vcl.WinXCtrls,
  Vcl.Imaging.jpeg,
  View.Components.Helpers,
  View.Styles.Colors,
  View.Pages.Menu.Principal001,
  Router4D.Interfaces;

type
  TPageMain001 = class(TForm, iRouter4DComponent)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    SplitView1: TSplitView;
    Panel5: TPanel;
    Panel9: TPanel;
    Image1: TImage;
    Panel10: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure Panel3Click(Sender: TObject);
    procedure Panel10Click(Sender: TObject);
  private
    { Private declarations }
    procedure SplitViewShow;
    procedure SplitViewHide;
  public
    { Public declarations }
    function Render : TForm;
    procedure UnRender;
  end;

var
  PageMain001: TPageMain001;

implementation

{$R *.dfm}

procedure TPageMain001.FormCreate(Sender: TObject);
begin
 Panel2.Color:=WHITE;
 Panel3.Color:=LIGHT2;
 Panel4.Color:=PRIMARY;
 Panel6.Color:=HEADER;
 SplitView1.Color:=SECONDARY;

 WindowState:=wsMaximized;
 BorderStyle:=bsNone;

   Panel5.Components
   .Buttons.Button004(Self)
   .Attributes
      .BackGround(LIGHT2)
      .FontColor(LIGHT)
      .Image('ico_menu')
      .Align(alTop)
      .TitleAlignment(taCenter)
      .Onclick(
        procedure (Sender : TObject)
        begin
          Panel4.Visible:= not Panel4.Visible;
          SplitViewHide;
        end
      )
   .&End
   .Component;


  Panel8.Components
  .Cards.Card001(Self)
    .Attributes
       .Title('Financial System - Version Betha - VCL Application')
       .FontColor(LIGHT2)
       .SubTitle('Delphi Design Experience - Brazil - (Code Academy)')
       .FontColorSubTitle(LIGHT2)
       .Align(alLeft)
    .&End
  .Component;


 Panel7.Components
  .Clocks.Clock001(Self)
    .Attributes
       .FontColor(LIGHT2)
       .Align(alRight)
    .&End
  .Component;


     TPageMenuPrincipal001
      .Create(Self)
      .OnMenuShow(SplitViewShow)
      .OnMenuHide(SplitViewHide)
      .PanelMenu(Panel4)
      .PanelSubMenu(Panel9)
      .Component;

end;

procedure TPageMain001.Panel10Click(Sender: TObject);
begin
  SplitView1.Close;
end;

procedure TPageMain001.Panel3Click(Sender: TObject);
begin
  SplitView1.Close;
end;

function TPageMain001.Render: TForm;
begin
  Result := Self;
end;

procedure TPageMain001.SplitViewHide;
begin
  SplitView1.Visible:=False;
  SplitView1.Close;
end;

procedure TPageMain001.SplitViewShow;
begin
  SplitView1.Visible:=True;
  SplitView1.Open;
end;

procedure TPageMain001.UnRender;
begin
//
end;

end.