Created UserList and NodeRerun tool buttons and popup menu items.

src/sbbs3/ctrl/NodeFormUnit.cpp

@@ -390,6 +390,21 @@ void __fastcall TNodeForm::LockNodeButtonClick(TObject *Sender)
 }
 //---------------------------------------------------------------------------
 
+void __fastcall TNodeForm::RerunNodeButtonClick(TObject *Sender)
+{
+	int i;
+    node_t node;
+
+    for(i=0;i<ListBox->Items->Count;i++)
+    	if(ListBox->Selected[i]==true) {
+        	getnodedat(&MainForm->cfg,i+1,&node,1);
+            node.misc^=NODE_RRUN;
+            putnodedat(&MainForm->cfg,i+1,&node);
+        }
+}
+
+//---------------------------------------------------------------------------
+
 void __fastcall TNodeForm::ListBoxKeyPress(TObject *Sender, char &Key)
 {
 	if(Key==1) // ctrl-a
@@ -481,3 +496,23 @@ void __fastcall TNodeForm::SpyButtonClick(TObject *Sender)
 }
 //---------------------------------------------------------------------------
 
+void __fastcall TNodeForm::UserEditButtonClick(TObject *Sender)
+{
+    int     i;
+    char    str[128];
+    node_t  node;
+
+    for(i=0;i<ListBox->Items->Count;i++)
+    	if(ListBox->Selected[i]==true) {
+        	getnodedat(&MainForm->cfg,i+1,&node,0);
+            if(node.useron==0)
+                continue;
+            sprintf(str,"%sUSEREDIT %s %d"
+                ,MainForm->cfg.exec_dir
+                ,MainForm->cfg.data_dir
+                ,node.useron);
+            WinExec(str,SW_SHOWNORMAL);
+        }
+}
+//---------------------------------------------------------------------------
+

src/sbbs3/ctrl/NodeFormUnit.dfm

@@ -10,15 +10,15 @@ object NodeForm: TNodeForm
   DragMode = dmAutomatic
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
-  Font.Height = -11
+  Font.Height = -14
   Font.Name = 'MS Sans Serif'
   Font.Style = []
   OldCreateOrder = False
   Position = poDefault
   OnHide = FormHide
   OnShow = FormShow
-  PixelsPerInch = 96
-  TextHeight = 13
+  PixelsPerInch = 120
+  TextHeight = 16
   object Toolbar: TToolBar
     Left = 0
     Top = 0
@@ -65,38 +65,54 @@ object NodeForm: TNodeForm
       ImageIndex = 17
       OnClick = InterruptNodeButtonClick
     end
-    object ClearErrorButton: TToolButton
+    object RerunToolButton: TToolButton
       Left = 115
       Top = 0
+      Hint = 'Rerun Node(s)'
+      Caption = 'RerunToolButton'
+      ImageIndex = 55
+      OnClick = RerunNodeButtonClick
+    end
+    object ClearErrorButton: TToolButton
+      Left = 138
+      Top = 0
       Hint = 'Clear Errors on Node(s)'
       Caption = 'ClearErrorButton'
-      ImageIndex = 33
+      ImageIndex = 31
       OnClick = ClearErrorButtonClick
     end
+    object SpyButton: TToolButton
+      Left = 161
+      Top = 0
+      Hint = 'Spy on Node(s)'
+      Caption = 'SpyButton'
+      ImageIndex = 39
+      OnClick = SpyButtonClick
+    end
     object ChatButton: TToolButton
-      Left = 138
+      Left = 184
       Top = 0
       Hint = 'Chat with User'
       Caption = 'ChatButton'
-      ImageIndex = 39
+      ImageIndex = 37
       OnClick = ChatButtonClick
     end
-    object SpyButton: TToolButton
-      Left = 161
+    object UserEditButton: TToolButton
+      Left = 207
       Top = 0
-      Hint = 'Spy on Node(s)'
-      Caption = 'SpyButton'
-      ImageIndex = 41
-      OnClick = SpyButtonClick
+      Hint = 'Edit User'
+      Caption = 'UserEditButton'
+      ImageIndex = 27
+      OnClick = UserEditButtonClick
     end
   end
   object ListBox: TListBox
     Left = 0
     Top = 25
     Width = 269
-    Height = 162
+    Height = 157
     Align = alClient
-    ItemHeight = 13
+    ItemHeight = 16
     MultiSelect = True
     PopupMenu = PopupMenu
     TabOrder = 1
@@ -111,17 +127,22 @@ object NodeForm: TNodeForm
     Left = 128
     Top = 72
     object LockMenuItem: TMenuItem
-      Caption = 'Lock'
+      Caption = 'Lock Node'
       ImageIndex = 19
       OnClick = LockNodeButtonClick
     end
     object DownMenuItem: TMenuItem
-      Caption = 'Down'
+      Caption = 'Down Node'
       ImageIndex = 21
       OnClick = DownButtonClick
     end
+    object RerunMenuItem: TMenuItem
+      Caption = 'Rerun Node'
+      ImageIndex = 55
+      OnClick = RerunNodeButtonClick
+    end
     object InterruptMenuItem: TMenuItem
-      Caption = 'Interrupt'
+      Caption = 'Interrupt Node'
       ImageIndex = 17
       OnClick = InterruptNodeButtonClick
     end
@@ -131,7 +152,7 @@ object NodeForm: TNodeForm
       OnClick = ClearErrorButtonClick
     end
     object ChatMenuItem: TMenuItem
-      Caption = 'Chat with User'
+      Caption = 'Chat w/User'
       ImageIndex = 39
       OnClick = ChatButtonClick
     end
@@ -140,6 +161,12 @@ object NodeForm: TNodeForm
       ImageIndex = 41
       OnClick = SpyButtonClick
     end
+    object EditUser1: TMenuItem
+      Caption = 'Edit User'
+      Hint = 'EditUserMenuItem'
+      ImageIndex = 27
+      OnClick = UserEditButtonClick
+    end
     object N1: TMenuItem
       Caption = '-'
     end

src/sbbs3/ctrl/NodeFormUnit.h

@@ -72,6 +72,10 @@ __published:	// IDE-managed Components
     TMenuItem *ChatMenuItem;
     TToolButton *SpyButton;
     TMenuItem *SpyMenuItem;
+    TToolButton *RerunToolButton;
+    TMenuItem *RerunMenuItem;
+    TToolButton *UserEditButton;
+    TMenuItem *EditUser1;
 	void __fastcall FormShow(TObject *Sender);
 	void __fastcall TimerTick(TObject *Sender);
     void __fastcall FormHide(TObject *Sender);
@@ -83,6 +87,8 @@ __published:	// IDE-managed Components
     void __fastcall ClearErrorButtonClick(TObject *Sender);
     void __fastcall ChatButtonClick(TObject *Sender);
     void __fastcall SpyButtonClick(TObject *Sender);
+    void __fastcall RerunNodeButtonClick(TObject *Sender);
+    void __fastcall UserEditButtonClick(TObject *Sender);
 private:	// User declarations
 public:		// User declarations
      __fastcall TNodeForm(TComponent* Owner);