LogViewer.Factories.Toolbars.pas

{
  Copyright (C) 2013-2025 Tim Sinaeve tim.sinaeve@gmail.com

  Licensed under the Apache License, Version 2.0 (the "License");
  you may not use this file except in compliance with the License.
  You may obtain a copy of the License at

      http://www.apache.org/licenses/LICENSE-2.0

  Unless required by applicable law or agreed to in writing, software
  distributed under the License is distributed on an "AS IS" BASIS,
  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  See the License for the specific language governing permissions and
  limitations under the License.
}

unit LogViewer.Factories.Toolbars;

{ Application toolbar factories. }

interface

uses
  System.Classes, System.SysUtils,
  Vcl.Controls, Vcl.Menus, Vcl.ActnList, Vcl.ComCtrls, Vcl.Toolwin,

  LogViewer.Interfaces;

const
  DEFAULT_EDGE_BORDERS = [ebLeft, ebTop, ebRight, ebBottom];
  DEFAULT_EDGE_INNER   = esNone;
  DEFAULT_EDGE_OUTER   = esNone;
  DEFAULT_TRANSPARANT  = True;

type
  TLogViewerToolbarsFactory = class(TInterfacedObject, ILogViewerToolbarsFactory)
  private
    FActions : ILogViewerActions;
    FMenus   : ILogViewerMenus;

    FEdgeBorders : TEdgeBorders;
    FEdgeInner   : TEdgeStyle;
    FEdgeOuter   : TEdgeStyle;
    FTransparant : Boolean;

    procedure ApplyDefaultProperties(AToolbar: TToolbar);

    function CreateToolButton(
      AParent    : TToolBar;
      AAction    : TBasicAction = nil;
      AStyle     : TToolButtonStyle = tbsButton;
      APopupMenu : TPopupMenu = nil
    ): TToolButton; overload;

    function CreateToolButton(
      AParent           : TToolBar;
      const AActionName : string;
      AStyle            : TToolButtonStyle = tbsButton;
      APopupMenu        : TPopupMenu = nil
    ): TToolButton; overload;

    class procedure OnDropdownMenuButtonClick(Sender: TObject);

  public
    procedure AfterConstruction; override;
    constructor Create(
      AActions : ILogViewerActions;
      AMenus   : ILogViewerMenus
    );

    function CreateMainToolbar(
      AOwner  : TComponent;
      AParent : TWinControl
    ): TToolbar;

    function CreateRightTopToolbar(
      AOwner  : TComponent;
      AParent : TWinControl
    ): TToolbar;

    property EdgeBorders: TEdgeBorders
      read FEdgeBorders write FEdgeBorders default DEFAULT_EDGE_BORDERS;

    property EdgeInner: TEdgeStyle
      read FEdgeInner write FEdgeInner default DEFAULT_EDGE_INNER;

    property EdgeOuter: TEdgeStyle
      read FEdgeOuter write FEdgeOuter default DEFAULT_EDGE_OUTER;

    property Transparant: Boolean
      read FTransparant write FTransparant default DEFAULT_TRANSPARANT;

  end;

implementation

uses
  Spring;

{$REGION 'construction and destruction'}
procedure TLogViewerToolbarsFactory.AfterConstruction;
begin
  inherited AfterConstruction;
  FEdgeBorders := DEFAULT_EDGE_BORDERS;
  FEdgeInner   := DEFAULT_EDGE_INNER;
  FEdgeOuter   := DEFAULT_EDGE_OUTER;
  FTransparant := DEFAULT_TRANSPARANT;
end;

constructor TLogViewerToolbarsFactory.Create(AActions: ILogViewerActions;
  AMenus: ILogViewerMenus);
begin
  inherited Create;
  Guard.CheckNotNull(AActions, 'AActions');
  Guard.CheckNotNull(AMenus, 'AMenus');
  FActions := AActions;
  FMenus   := AMenus;
end;
{$ENDREGION}

{$REGION 'private methods'}
procedure TLogViewerToolbarsFactory.ApplyDefaultProperties(AToolbar: TToolbar);
begin
  Guard.CheckNotNull(AToolbar, 'AToolbar');
  AToolbar.EdgeBorders := EdgeBorders;
  AToolbar.EdgeInner   := EdgeInner;
  AToolbar.EdgeOuter   := EdgeOuter;
  AToolbar.Transparent := Transparant;
  AToolbar.ParentColor := True;
  AToolbar.AutoSize    := True;
  AToolbar.ShowHint    := True;
end;

function TLogViewerToolbarsFactory.CreateToolButton(AParent: TToolBar;
  const AActionName: string; AStyle: TToolButtonStyle; APopupMenu: TPopupMenu)
  : TToolButton;
begin
  if AActionName = '' then
    Result := CreateToolButton(AParent)
  else
    Result :=
      CreateToolButton(AParent, FActions[AActionName], AStyle, APopupMenu);
end;

class procedure TLogViewerToolbarsFactory.OnDropdownMenuButtonClick(Sender: TObject);
begin
  (Sender as TToolButton).CheckMenuDropdown;
end;

function TLogViewerToolbarsFactory.CreateToolButton(AParent: TToolBar;
  AAction: TBasicAction; AStyle: TToolButtonStyle; APopupMenu: TPopupMenu)
  : TToolButton;
var
  TB : TToolButton;
  N  : Integer;
begin
  TB := TToolButton.Create(AParent);
  N := AParent.ButtonCount - 1;
  if N > -1 then
    TB.Left := AParent.Buttons[N].Left + AParent.Buttons[N].Width
  else
    TB.Left := 0;
  TB.Parent := AParent;
  if not Assigned(AAction) then
  begin
    TB.Style := tbsSeparator;
    TB.Width := 4;
  end
  else
  begin
    TB.Style := AStyle;
    if Assigned(APopupMenu) then
    begin
      TB.Style        := tbsDropDown;
      TB.DropdownMenu := APopupMenu;
      TB.OnClick      := OnDropdownMenuButtonClick;
    end;
    TB.Action := AAction;
  end;
  AParent.Realign;
  Result := TB;
end;
{$ENDREGION}

{$REGION 'public methods'}
function TLogViewerToolbarsFactory.CreateMainToolbar(AOwner: TComponent;
  AParent: TWinControl): TToolbar;
var
  TB : TToolbar;
begin
  Guard.CheckNotNull(AOwner, 'AOwner');
  Guard.CheckNotNull(AParent, 'AParent');
  TB := TToolBar.Create(AOwner);
  ApplyDefaultProperties(TB);
  TB.Parent           := AParent;
  TB.AllowTextButtons := True;
  CreateToolButton(TB, 'actDashboard', tbsTextButton);
  CreateToolButton(TB);
  CreateToolButton(TB, 'actStart', tbsTextButton);
  CreateToolButton(TB, 'actStop', tbsTextButton);
  CreateToolButton(TB);
  CreateToolButton(TB, 'actSettings', tbsTextButton);
  CreateToolButton(TB);
  CreateToolButton(TB, 'actShowFilterView', tbsTextButton);
  CreateToolButton(TB, 'actClearMessages', tbsTextButton);
  CreateToolButton(TB);
  CreateToolButton(TB, 'actCloseTerminatedProcesses', tbsTextButton);
  CreateToolButton(TB);
  CreateToolButton(TB, 'actCollapseAll', tbsTextButton);
  CreateToolButton(TB, 'actExpandAll', tbsTextButton);
  CreateToolButton(TB, 'actAutoScrollMessages', tbsTextButton);
  CreateToolButton(TB, 'actToggleLeftPanelVisible', tbsTextButton);
  CreateToolButton(TB, 'actToggleRightPanelVisible', tbsTextButton);
  Result := TB;
end;

function TLogViewerToolbarsFactory.CreateRightTopToolbar(AOwner: TComponent;
  AParent: TWinControl): TToolbar;
var
  TB : TToolbar;
begin
  Guard.CheckNotNull(AOwner, 'AOwner');
  Guard.CheckNotNull(AParent, 'AParent');
  TB := TToolBar.Create(AOwner);
  ApplyDefaultProperties(TB);
  TB.Parent           := AParent;
  TB.AllowTextButtons := True;
  CreateToolButton(TB, 'actAbout');
  CreateToolButton(TB);
  CreateToolButton(TB, 'actToggleAlwaysOnTop');
  Result := TB;
end;
{$ENDREGION}

end.