Smart actions

Author: lmbelo

source/containers/Container.Menu.Actions.dfm

@@ -1,12 +1,12 @@
 object MenuActionsContainer: TMenuActionsContainer
-  Height = 305
-  Width = 656
-  PixelsPerInch = 144
+  Height = 407
+  Width = 875
+  PixelsPerInch = 192
   object actlMenu: TActionList
     Images = ImageContainer.images
     OnUpdate = actlMenuUpdate
-    Left = 78
-    Top = 12
+    Left = 104
+    Top = 16
     object actUpdateEnvironment: TAction
       Tag = 1
       Category = 'Entities'
@@ -212,53 +212,98 @@ object MenuActionsContainer: TMenuActionsContainer
       OnExecute = actNewProjectExecute
       ImageIndex = 35
     end
+    object actSmartDeployProject: TAction
+      Tag = 2
+      Category = 'Build'
+      Text = 'Smart Deploy Project'
+      Hint = 'Smart Deploy Project'
+      ImageIndex = 12
+      OnExecute = actSmartDeployProjectExecute
+      ImageIndex = 12
+    end
+    object actSmartRunCurrentProject: TAction
+      Tag = 2
+      Category = 'Build'
+      Text = 'Smart Run Project'
+      Hint = 'Smart Run Project'
+      ImageIndex = 13
+      OnExecute = actSmartRunCurrentProjectExecute
+      ImageIndex = 13
+    end
+    object actSmartDeployCurrentProjectAsync: TAction
+      Tag = 2
+      Category = 'BuildAsync'
+      Text = 'Smart Deploy Project'
+      Hint = 'Smart Deploy Project'
+      ImageIndex = 12
+      OnExecute = actSmartDeployCurrentProjectAsyncExecute
+      ImageIndex = 12
+    end
+    object actSmartRunCurrentProjectAsync: TAction
+      Tag = 2
+      Category = 'BuildAsync'
+      Text = 'Smart Run Project'
+      Hint = 'Smart Run Project'
+      ImageIndex = 13
+      OnExecute = actSmartRunCurrentProjectAsyncExecute
+      ImageIndex = 13
+    end
+    object actSmartDebugCurrentProjectAsync: TAction
+      Tag = 9
+      Category = 'Debug'
+      Text = 'Smart Debug Project'
+      Hint = 'Smart Debug Project'
+      ImageIndex = 14
+      OnExecute = actSmartDebugCurrentProjectAsyncExecute
+      ImageIndex = 14
+    end
   end
   object sdProject: TSaveDialog
     DefaultExt = '.pyfmxproj'
     Filter = 'Python FMX Project|*.pyfmxproj'
     Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
-    Left = 78
-    Top = 114
+    Left = 104
+    Top = 152
   end
   object sdModule: TSaveDialog
     DefaultExt = '.py'
     Filter = 'Python Module|*.py'
     Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
-    Left = 186
-    Top = 114
+    Left = 248
+    Top = 152
   end
   object odProject: TOpenDialog
     DefaultExt = '.pyfmxproj'
     Filter = 'Python FMX Project|*.pyfmxproj'
     Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
-    Left = 78
-    Top = 198
+    Left = 104
+    Top = 264
   end
   object odModule: TOpenDialog
     DefaultExt = '.py'
     Filter = 'Python Module|*.py'
     Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
-    Left = 186
-    Top = 198
+    Left = 248
+    Top = 264
   end
   object odPackage: TOpenDialog
     DefaultExt = '.whl'
     Filter = 'Zip imports|*.zip|PIP wheel|*.whl'
     Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
-    Left = 438
-    Top = 198
+    Left = 584
+    Top = 264
   end
   object odOther: TOpenDialog
     Filter = '*.*'
     Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
-    Left = 540
-    Top = 198
+    Left = 720
+    Top = 264
   end
   object odFMXModule: TOpenDialog
     DefaultExt = '.py'
     Filter = 'Python Module|*.py|Delphi FMX File|*.pyfmx'
     Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
-    Left = 312
-    Top = 198
+    Left = 416
+    Top = 264
   end
 end

source/containers/Container.Menu.Actions.pas

@@ -55,6 +55,11 @@   TMenuActionsContainer = class(TDataModule)
     odFMXModule: TOpenDialog;
     actNewBlankProject: TAction;
     actNewProject: TAction;
+    actSmartDeployProject: TAction;
+    actSmartRunCurrentProject: TAction;
+    actSmartDeployCurrentProjectAsync: TAction;
+    actSmartRunCurrentProjectAsync: TAction;
+    actSmartDebugCurrentProjectAsync: TAction;
     procedure actUpdateEnvironmentExecute(Sender: TObject);
     procedure actUpdateCurrentProjectExecute(Sender: TObject);
     procedure actBuildCurrentProjectExecute(Sender: TObject);
@@ -77,6 +82,11 @@   TMenuActionsContainer = class(TDataModule)
     procedure actSaveAllStateExecute(Sender: TObject);
     procedure actNewBlankProjectExecute(Sender: TObject);
     procedure actNewProjectExecute(Sender: TObject);
+    procedure actSmartDeployProjectExecute(Sender: TObject);
+    procedure actSmartRunCurrentProjectExecute(Sender: TObject);
+    procedure actSmartDeployCurrentProjectAsyncExecute(Sender: TObject);
+    procedure actSmartRunCurrentProjectAsyncExecute(Sender: TObject);
+    procedure actSmartDebugCurrentProjectAsyncExecute(Sender: TObject);
   private
     //Async control
     FLoadingProject: integer;
@@ -317,6 +327,63 @@ procedure TMenuActionsContainer.actSaveStateExecute(Sender: TObject);
     TSaveStateEvent.Create(TSaveState.Save));
 end;
 
+procedure TMenuActionsContainer.actSmartDebugCurrentProjectAsyncExecute(
+  Sender: TObject);
+begin
+  TMessagery.BroadcastEventAsync(TMessageEvent.Create(true));
+  FBuilderServices.RunAsync(procedure(AProxy: IBuilderTasks) begin
+    FProjectServices.GetActiveProject().Debugger := TDebugger.DebugPy;
+    AProxy.SmartBuildActiveProject();
+    AProxy.SmartDeployActiveProject();
+    AProxy.DebugActiveProject(FDebuggerServices);
+  end);
+end;
+
+procedure TMenuActionsContainer.actSmartDeployCurrentProjectAsyncExecute(
+  Sender: TObject);
+begin
+  TMessagery.BroadcastEventAsync(TMessageEvent.Create(true));
+  FBuilderServices.RunAsync(procedure(AProxy: IBuilderTasks) begin
+    FProjectServices.GetActiveProject().Debugger := TDebugger.None;
+    AProxy.SmartBuildActiveProject();
+    AProxy.SmartDeployActiveProject();
+  end);
+end;
+
+procedure TMenuActionsContainer.actSmartDeployProjectExecute(Sender: TObject);
+begin
+  TMessagery.BroadcastEventAsync(TMessageEvent.Create(true));
+  FBuilderServices.Run(procedure(AProxy: IBuilderTasks) begin
+    FProjectServices.GetActiveProject().Debugger := TDebugger.None;
+    AProxy.SmartBuildActiveProject();
+    AProxy.SmartDeployActiveProject();
+  end);
+end;
+
+procedure TMenuActionsContainer.actSmartRunCurrentProjectAsyncExecute(
+  Sender: TObject);
+begin
+  TMessagery.BroadcastEventAsync(TMessageEvent.Create(true));
+  FBuilderServices.RunAsync(procedure(AProxy: IBuilderTasks) begin
+    FProjectServices.GetActiveProject().Debugger := TDebugger.DebugPy;
+    AProxy.SmartBuildActiveProject();
+    AProxy.SmartDeployActiveProject();
+    AProxy.RunActiveProject();
+  end);
+end;
+
+procedure TMenuActionsContainer.actSmartRunCurrentProjectExecute(
+  Sender: TObject);
+begin
+  TMessagery.BroadcastEventAsync(TMessageEvent.Create(true));
+  FBuilderServices.Run(procedure(AProxy: IBuilderTasks) begin
+    FProjectServices.GetActiveProject().Debugger := TDebugger.None;
+    AProxy.SmartBuildActiveProject();
+    AProxy.SmartDeployActiveProject();
+    AProxy.RunActiveProject();
+  end);
+end;
+
 procedure TMenuActionsContainer.actStepInExecute(Sender: TObject);
 begin
   FDebuggerServices.StepIn();