Merge remote-tracking branch 'remotes/origin/switch-MDI-to-TDI'

Zero3K · Jun 3, 2022 · 86e42d9 · 86e42d9
2 parents ca71769 + cfd6c96
commit 86e42d9
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/Forms/frmMain.pas b/Forms/frmMain.pas
@@ -135,6 +135,14 @@ procedure TTPMainForm.ApplicationEvents1Minimize(Sender: TObject);
 end;
 
 procedure TTPMainForm.FormCreate(Sender: TObject);
+  procedure AddTdiPopupMenuItem(action: TAction);
+  var
+    menuItem: TMenuItem;
+  begin
+    menuItem := TMenuItem.Create(FTDI.PageControl.PopupMenu);
+    FTDI.PageControl.PopupMenu.Items.Add(menuItem);
+    menuItem.Action := action;
+  end;
 begin
   TLogBasicConfigurator.Configure(TLogNullAppender.Create('nulllogger'));
   TLogLogger.GetRootLogger.Level := Off;
@@ -148,6 +156,11 @@ procedure TTPMainForm.FormCreate(Sender: TObject);
   FTDI := TTDI.CreateWithFactory(Self, StreamFormFactory);
 
   FTDI.ShowMenuPopup := True;
+  FTDI.PageControl.PopupMenu.Items.Clear;
+  AddTdiPopupMenuItem(actNewStream);
+  AddTdiPopupMenuItem(actCloseActiveStream);
+  AddTdiPopupMenuItem(actCloseAllStreams);
+
 {$IFDEF RELEASE}
   miRunMultipleStreams.Visible := False;
 {$ENDIF}