ADD: Folder tab pop up menu

fmain.lfm

@@ -23,6 +23,7 @@ object frmMain: TfrmMain
   OnShow = frmMainShow
   OnUTF8KeyPress = FormUTF8KeyPress
   OnWindowStateChange = FormWindowStateChange
+  ParentFont = False
   Position = poDesktopCenter
   ShowHint = True
   ShowInTaskBar = stAlways
@@ -121,6 +122,7 @@ object frmMain: TfrmMain
         Width = 170
         Align = alClient
         OnCloseTabClicked = NoteBookCloseTabClicked
+        OnMouseUp = nbPageMouseUp
         OnPageChanged = nbPageChanged
         Options = [nboShowCloseButtons]
         TabOrder = 0
@@ -208,6 +210,7 @@ object frmMain: TfrmMain
         Width = 813
         Align = alClient
         OnCloseTabClicked = NoteBookCloseTabClicked
+        OnMouseUp = nbPageMouseUp
         OnPageChanged = nbPageChanged
         Options = [nboShowCloseButtons]
         TabOrder = 0
@@ -311,9 +314,7 @@ object frmMain: TfrmMain
         Width = 920
         TabStop = False
         Anchors = [akTop, akLeft, akRight]
-        AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
         ItemHeight = 13
-        MaxLength = 0
         ParentCtl3D = False
         TabOrder = 0
       end
@@ -435,8 +436,8 @@ object frmMain: TfrmMain
     Font.Name = 'courier'
     Font.Pitch = fpFixed
     ParentColor = False
+    ParentFont = False
     TabOrder = 4
-    BookMarkOptions.OnChange = nil
     Keystrokes = <    
       item
         Command = 3
@@ -761,7 +762,6 @@ object frmMain: TfrmMain
     ReadOnly = True
     RightEdge = 0
     ScrollBars = ssVertical
-    SelectedColor.OnChange = nil
     OnSpecialLineColors = seLogWindowSpecialLineColors
   end
   object LogSplitter: TSplitter
@@ -795,6 +795,7 @@ object frmMain: TfrmMain
       end
       object miEditComment: TMenuItem
         Action = actEditComment
+        OnClick = actExecute
       end
       object mnuFilesSpace: TMenuItem
         Action = actCalculateSpace
@@ -1633,4 +1634,19 @@ object frmMain: TfrmMain
     left = 220
     top = 168
   end
+  object pmTabMenu: TPopupMenu
+    left = 374
+    top = 136
+    object miNewTab: TMenuItem
+      Action = actNewTab
+      OnClick = actExecute
+    end
+    object miLine14: TMenuItem
+      Caption = '-'
+    end
+    object miRemoveTab: TMenuItem
+      Action = actRemoveTab
+      OnClick = actExecute
+    end
+  end
 end

fmain.lrt

@@ -106,3 +106,4 @@ TFRMMAIN.MIHARDLINK.CAPTION=Create link...
 TFRMMAIN.MISYMLINK.CAPTION=Create symlink...
 TFRMMAIN.MILINE12.CAPTION=-
 TFRMMAIN.MICANCEL.CAPTION=Cancel
+TFRMMAIN.MILINE14.CAPTION=-

fmain.pas

@@ -94,6 +94,9 @@ type
     dskRight: TKAStoolBar;
     edtCommand: TComboBox;
     MenuItem2: TMenuItem;
+    miRemoveTab: TMenuItem;
+    miLine14: TMenuItem;
+    miNewTab: TMenuItem;
     miEditComment: TMenuItem;
     mnuMarkCurrentExtension: TMenuItem;
     mnuUnmarkCurrentExtension: TMenuItem;
@@ -144,6 +147,7 @@ type
     LogSplitter: TSplitter;
     pmColumnsMenu: TPopupMenu;
     pmDropMenu: TPopupMenu;
+    pmTabMenu: TPopupMenu;
     seLogWindow: TSynEdit;
     tbDelete: TMenuItem;
     tbEdit: TMenuItem;
@@ -279,6 +283,8 @@ type
     procedure mnuSplitterPercentClick(Sender: TObject);
     procedure mnuHelpClick(Sender: TObject);
     procedure nbPageChanged(Sender: TObject);
+    procedure nbPageMouseUp(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
     procedure NotebookCloseTabClicked(Sender: TObject);
     function pmButtonMenuLoadButtonGlyph(sIconFileName: String;
       iIconSize: Integer; clBackColor: TColor): TBitmap;
@@ -952,6 +958,18 @@ begin
   end;
 end;
 
+procedure TfrmMain.nbPageMouseUp(Sender: TObject; Button: TMouseButton;
+  Shift: TShiftState; X, Y: Integer);
+var
+  PopUpPoint: TPoint;
+begin
+  if Button = mbRight then
+    begin
+      PopUpPoint:= (Sender as TNoteBook).ClientToScreen(Point(X, Y));
+      pmTabMenu.PopUp(PopUpPoint.x, PopUpPoint.y);
+    end;
+end;
+
 procedure TfrmMain.NoteBookCloseTabClicked(Sender: TObject);
 begin
   With (Sender As TPage) do