Open all user courses in LMS

Author: ildemartinez

LMS.Form.User.dfm

@@ -2,8 +2,8 @@ object LMSUserForm: TLMSUserForm
   Left = 0
   Top = 0
   Caption = 'LMSUserForm'
-  ClientHeight = 255
-  ClientWidth = 535
+  ClientHeight = 399
+  ClientWidth = 671
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -16,4 +16,42 @@ object LMSUserForm: TLMSUserForm
   OnClose = FormClose
   PixelsPerInch = 96
   TextHeight = 13
+  object ActionToolBar1: TActionToolBar
+    Left = 0
+    Top = 0
+    Width = 671
+    Height = 23
+    ActionManager = ActionManager1
+    Caption = 'ActionToolBar1'
+    Color = clMenuBar
+    ColorMap.DisabledFontColor = 7171437
+    ColorMap.HighlightColor = clWhite
+    ColorMap.BtnSelectedFont = clBlack
+    ColorMap.UnusedColor = clWhite
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clBlack
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    Spacing = 0
+  end
+  object ActionManager1: TActionManager
+    ActionBars = <
+      item
+        Items = <
+          item
+            Action = Action1
+            Caption = '&Open courses'
+          end>
+        ActionBar = ActionToolBar1
+      end>
+    Left = 520
+    Top = 80
+    StyleName = 'Platform Default'
+    object Action1: TAction
+      Caption = 'Open courses'
+      OnExecute = Action1Execute
+    end
+  end
 end

LMS.Form.User.pas

@@ -9,11 +9,16 @@ interface
   Vcl.StdCtrls,
 
   LMS._interface.LMS,
-  LMS.TreeView.UserCourses;
+  LMS.TreeView.UserCourses, Vcl.ToolWin, Vcl.ActnMan, Vcl.ActnCtrls,
+  Vcl.PlatformDefaultStyleActnCtrls, System.Actions, Vcl.ActnList;
 
 type
   TLMSUserForm = class(TForm)
+    ActionManager1: TActionManager;
+    ActionToolBar1: TActionToolBar;
+    Action1: TAction;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure Action1Execute(Sender: TObject);
   private
     fLMSUser: IUser;
     UserCoursesTreeView: TLMSUserCoursesTreeView;
@@ -26,8 +31,20 @@   TLMSUserForm = class(TForm)
 
 implementation
 
+uses
+  LMS.Helper.Browser;
+
 {$R *.dfm}
 
+procedure TLMSUserForm.Action1Execute(Sender: TObject);
+begin
+  for var aCourse in User.OtherEnrolledCourses do
+  begin
+
+    OpenInBrowser(aCourse);
+  end;
+end;
+
 constructor TLMSUserForm.Create(Owner: TComponent);
 begin
   inherited;
@@ -48,7 +65,8 @@ procedure TLMSUserForm.SetLMSUser(const Value: IUser);
 
   caption := fLMSUser.Full_Name;
 
-  UserCoursesTreeView.User := value; // . Courses := fLMSUser.OtherEnrolledCourses;
+  UserCoursesTreeView.User := Value;
+  // . Courses := fLMSUser.OtherEnrolledCourses;
 end;
 
 end.