Listening to the settings update event

Author: lmbelo

source/views/frame/Frame.BuildButtons.fmx

@@ -22,11 +22,12 @@ object BuildButtonsFrame: TBuildButtonsFrame
     Images = ImageContainer.images
     ImageIndex = 12
     Margins.Left = 5.000000000000000000
+    PopupMenu = pmDeployDropDown
     Position.X = 40.000000000000000000
     Size.Width = 30.000000000000000000
     Size.Height = 30.000000000000000000
     Size.PlatformDefault = False
-    StyleLookup = 'actiontoolbutton'
+    StyleLookup = 'actiontoolbuttondropdown'
   end
   object sbRunCurrentProject: TSpeedButton
     Action = MenuActionsContainer.actRunCurrentProjectAsync
@@ -41,4 +42,13 @@ object BuildButtonsFrame: TBuildButtonsFrame
     Size.PlatformDefault = False
     StyleLookup = 'actiontoolbutton'
   end
+  object pmDeployDropDown: TPopupMenu
+    Left = 32
+    Top = 16
+    object miSmartDeploy: TMenuItem
+      AutoCheck = True
+      Text = 'Smart Deploy'
+      OnClick = miSmartDeployClick
+    end
+  end
 end

source/views/frame/Frame.BuildButtons.pas

@@ -1,21 +1,66 @@
-unit Frame.BuildButtons;
-
-interface
-
-uses
-  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, 
-  FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
-  FMX.Controls.Presentation;
-
-type
-  TBuildButtonsFrame = class(TFrame)
-    sbBuildCurrentProject: TSpeedButton;
-    spDeployCurrentProject: TSpeedButton;
-    sbRunCurrentProject: TSpeedButton;
-  end;
-
-implementation
-
-{$R *.fmx}
-
-end.
+unit Frame.BuildButtons;
+interface
+uses
+  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, 
+  FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
+  FMX.Controls.Presentation, Builder.Messagery, Builder.SpeedButton, FMX.Menus;
+
+type
+  TBuildButtonsFrame = class(TFrame)
+    sbBuildCurrentProject: TSpeedButton;
+    spDeployCurrentProject: TSpeedButton;
+    sbRunCurrentProject: TSpeedButton;
+    pmDeployDropDown: TPopupMenu;
+    miSmartDeploy: TMenuItem;
+    procedure miSmartDeployClick(Sender: TObject);
+  private
+    FUpdateSettings: IDisconnectable;
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy(); override;
+  end;
+
+implementation
+
+uses
+  Container.Menu.Actions;
+
+{$R *.fmx}
+
+{ TBuildButtonsFrame }
+
+constructor TBuildButtonsFrame.Create(AOwner: TComponent);
+begin
+  inherited;
+  FUpdateSettings := TMessagery.SubscribeToEvent<TUpdateSettingsEvent>(
+    procedure(const AEventNotification: TUpdateSettingsEvent)
+    begin
+      var LSmartDeploy := AEventNotification.Body.SmartDeploy;
+      TThread.Queue(TThread.Current,
+        procedure()
+        begin
+          miSmartDeploy.IsChecked := LSmartDeploy;
+          if LSmartDeploy then begin
+            spDeployCurrentProject.Action := MenuActionsContainer.actSmartDeployCurrentProjectAsync;
+            sbRunCurrentProject.Action := MenuActionsContainer.actSmartRunCurrentProjectAsync;
+          end else begin
+            spDeployCurrentProject.Action := MenuActionsContainer.actDeployCurrentProjectAsync;
+            sbRunCurrentProject.Action := MenuActionsContainer.actRunCurrentProjectAsync;
+          end;
+        end);
+    end);
+end;
+
+destructor TBuildButtonsFrame.Destroy;
+begin
+  FUpdateSettings.Disconnect();
+  inherited;
+end;
+
+procedure TBuildButtonsFrame.miSmartDeployClick(Sender: TObject);
+begin
+  TMessagery.BroadcastEventAsync(
+    TUpdateSettingsEvent.Create(TMenuItem(Sender).IsChecked));
+end;
+
+end.

source/views/frame/Frame.DebugButtons.pas

@@ -5,7 +5,7 @@ interface
 uses
   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, 
   FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
-  FMX.Controls.Presentation;
+  FMX.Controls.Presentation, Builder.Messagery;
 
 type
   TDebugButtonsFrame = class(TFrame)
@@ -16,6 +16,11 @@   TDebugButtonsFrame = class(TFrame)
     btnStop: TSpeedButton;
     btnPause: TSpeedButton;
     sbContinue: TSpeedButton;
+  private
+    FUpdateSettings: IDisconnectable;
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy(); override;
   end;
 
 implementation
@@ -26,4 +31,31 @@ implementation
 
 {$R *.fmx}
 
+{ TDebugButtonsFrame }
+
+constructor TDebugButtonsFrame.Create(AOwner: TComponent);
+begin
+  inherited;
+  FUpdateSettings := TMessagery.SubscribeToEvent<TUpdateSettingsEvent>(
+    procedure(const AEventNotification: TUpdateSettingsEvent)
+    begin
+      var LSmartDeploy := AEventNotification.Body.SmartDeploy;
+      TThread.Queue(TThread.Current,
+        procedure()
+        begin
+          if LSmartDeploy then begin
+            sbDebugCurrentProject.Action := MenuActionsContainer.actSmartDebugCurrentProjectAsync;
+          end else begin
+            sbDebugCurrentProject.Action := MenuActionsContainer.actDebugCurrentProjectAsync;
+          end;
+        end);
+    end);
+end;
+
+destructor TDebugButtonsFrame.Destroy;
+begin
+  FUpdateSettings.Disconnect();
+  inherited;
+end;
+
 end.