Menu.Principal002 - Delphi

unit View.Pages.Menu.Principal002;

interface

uses
  Winapi.Windows,
  Winapi.Messages,
  System.SysUtils,
  System.Variants,
  System.Classes,
  Vcl.Graphics,
  Vcl.Controls,
  Vcl.Forms,
  Vcl.Dialogs,
  Vcl.ExtCtrls,
  View.Components.Helpers,
  View.Styles.Colors;


type
  TPageMenuPrincipal002 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
  private
    { Private declarations }
    FOnMenuShow : TProc;
    FOnMenuHide : TProc;
    FPanelMenu : TPanel;
    FPanelSubMenu : TPanel;
  public
    { Public declarations }
    function Component : TWinControl;
    function PanelMenu(aValue : TPanel) : TPageMenuPrincipal002;
    function PanelSubMenu(aValue : TPanel) : TPageMenuPrincipal002;
    function OnMenuShow (aValue : TProc) : TPageMenuPrincipal002;
    function OnMenuHide (aValue : TProc) : TPageMenuPrincipal002;
  end;

var
  PageMenuPrincipal002: TPageMenuPrincipal002;

implementation

{$R *.dfm}

{ TPageMenuPrincipal002 }

function TPageMenuPrincipal002.Component: TWinControl;
begin
 Result := Panel1;

 Panel1.Align:=alClient;
 Panel1.Parent:=FPanelMenu;
 Panel1.Visible:=True;

 Panel1.Components
   .Buttons.Button003(Self)
   .Attributes
      .BackGround(PRIMARY)
      .FontColor(LIGHT)
//      .Title('Arquivos')
      .Title('Files')
      .Image('ico_assessment')
      .Align(alTop)
      .TitleAlignment(taCenter)
      .Onclick(
        procedure (Sender : TObject)
        begin
           if Assigned(FOnMenuShow) then
            FOnMenuShow;
           if (FPanelSubMenu.ControlCount>0) then
            FPanelSubMenu.Controls[0].Free;
          end
      )
   .&End
   .Component;

 Panel1.Components
   .Buttons.Button003(Self)
   .Attributes
      .BackGround(PRIMARY)
      .FontColor(LIGHT)
//      .Title('Fianceiro')
      .Title('Tools')
      .Image('ico_assessment')
      .Align(alTop)
      .TitleAlignment(taCenter)
      .Onclick(
        procedure (Sender : TObject)
        begin
           if Assigned(FOnMenuShow) then
            FOnMenuShow;
           if (FPanelSubMenu.ControlCount>0) then
            FPanelSubMenu.Controls[0].Free;
          end
      )
   .&End
   .Component;

 Panel1.Components
   .Buttons.Button003(Self)
   .Attributes
      .BackGround(PRIMARY)
      .FontColor(LIGHT)
//      .Title('Doação')
      .Title('Tasks')
      .Image('ico_assessment')
      .Align(alTop)
      .TitleAlignment(taCenter)
      .Onclick(
        procedure (Sender : TObject)
        begin
           if Assigned(FOnMenuShow) then
            FOnMenuShow;
           if (FPanelSubMenu.ControlCount>0) then
            FPanelSubMenu.Controls[0].Free;
          end
      )
   .&End
   .Component;

 Panel1.Components
   .Buttons.Button003(Self)
   .Attributes
      .BackGround(PRIMARY)
      .FontColor(LIGHT)
//      .Title('Laboratório')
      .Title('Transactions')
      .Image('ico_assessment')
      .Align(alTop)
      .TitleAlignment(taCenter)
      .Onclick(
        procedure (Sender : TObject)
        begin
           if Assigned(FOnMenuShow) then
            FOnMenuShow;
           if (FPanelSubMenu.ControlCount>0) then
            FPanelSubMenu.Controls[0].Free;
          end
      )
   .&End
   .Component;

 Panel1.Components
   .Buttons.Button003(Self)
   .Attributes
      .BackGround(PRIMARY)
      .FontColor(LIGHT)
//      .Title('Conformidade')
      .Title('Connection')
      .Image('ico_assessment')
      .Align(alTop)
      .TitleAlignment(taCenter)
      .Onclick(
        procedure (Sender : TObject)
        begin
           if Assigned(FOnMenuShow) then
            FOnMenuShow;
           if (FPanelSubMenu.ControlCount>0) then
            FPanelSubMenu.Controls[0].Free;
          end
      )
   .&End
   .Component;

 Panel1.Components
   .Buttons.Button003(Self)
   .Attributes
      .BackGround(PRIMARY)
      .FontColor(LIGHT)
//      .Title('Agenda')
      .Title('Driver')
      .Image('ico_assessment')
      .Align(alTop)
      .TitleAlignment(taCenter)
      .Onclick(
        procedure (Sender : TObject)
        begin
           if Assigned(FOnMenuShow) then
            FOnMenuShow;
           if (FPanelSubMenu.ControlCount>0) then
            FPanelSubMenu.Controls[0].Free;
          end
      )
   .&End
   .Component;

 Panel1.Components
   .Buttons.Button003(Self)
   .Attributes
      .BackGround(PRIMARY)
      .FontColor(LIGHT)
//      .Title('PCMSO')
      .Title('Log')
      .Image('ico_assessment')
      .Align(alTop)
      .TitleAlignment(taCenter)
      .Onclick(
        procedure (Sender : TObject)
        begin
           if Assigned(FOnMenuShow) then
            FOnMenuShow;
           if (FPanelSubMenu.ControlCount>0) then
            FPanelSubMenu.Controls[0].Free;
          end
      )
   .&End
   .Component;

 Panel1.Components
   .Buttons.Button003(Self)
   .Attributes
      .BackGround(PRIMARY)
      .FontColor(LIGHT)
//      .Title('Utilitáios')
      .Title('Dashboard')
      .Image('ico_assessment')
      .Align(alTop)
      .TitleAlignment(taCenter)
      .Onclick(
        procedure (Sender : TObject)
        begin
           if Assigned(FOnMenuShow) then
            FOnMenuShow;
           if (FPanelSubMenu.ControlCount>0) then
            FPanelSubMenu.Controls[0].Free;
          end
      )
   .&End
   .Component;

 Panel1.Components
   .Buttons.Button003(Self)
   .Attributes
      .BackGround(PRIMARY)
      .FontColor(LIGHT)
//      .Title('Auditoria')
      .Title('Commit')
      .Image('ico_assessment')
      .Align(alTop)
      .TitleAlignment(taCenter)
      .Onclick(
        procedure (Sender : TObject)
        begin
           if Assigned(FOnMenuShow) then
            FOnMenuShow;
           if (FPanelSubMenu.ControlCount>0) then
            FPanelSubMenu.Controls[0].Free;
          end
      )
   .&End
   .Component;

 Panel1.Components
   .Buttons.Button003(Self)
   .Attributes
      .BackGround(PRIMARY)
      .FontColor(LIGHT)
//      .Title('Ajuda')
      .Title('Help')
      .Image('ico_assessment')
      .Align(alTop)
      .TitleAlignment(taCenter)
      .Onclick(
        procedure (Sender : TObject)
        begin
           if Assigned(FOnMenuShow) then
            FOnMenuShow;
           if (FPanelSubMenu.ControlCount>0) then
            FPanelSubMenu.Controls[0].Free;
          end
      )
   .&End
   .Component;


end;

function TPageMenuPrincipal002.OnMenuHide(aValue: TProc): TPageMenuPrincipal002;
begin
  Result := Self;
  FOnMenuHide := aValue;
end;

function TPageMenuPrincipal002.OnMenuShow(aValue: TProc): TPageMenuPrincipal002;
begin
  Result := Self;
  FOnMenuShow := aValue;
end;

function TPageMenuPrincipal002.PanelMenu(aValue: TPanel): TPageMenuPrincipal002;
begin
 Result := Self;
 FPanelMenu:=aValue;
end;

function TPageMenuPrincipal002.PanelSubMenu(
  aValue: TPanel): TPageMenuPrincipal002;
begin
  Result := Self;
  FPanelSubMenu:=aValue;
end;

end.