--- sbbs/sbbs3/ctrl/nodeformunit.dfm 2018/04/24 16:39:34 1.1.1.1 +++ sbbs/sbbs3/ctrl/nodeformunit.dfm 2018/04/24 16:41:11 1.1.1.2 @@ -1,6 +1,6 @@ object NodeForm: TNodeForm Left = 579 - Top = 396 + Top = 322 Width = 277 Height = 214 Caption = 'Nodes' @@ -10,15 +10,14 @@ 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 @@ -31,18 +30,8 @@ object NodeForm: TNodeForm ParentShowHint = False ShowHint = True TabOrder = 0 - object StartButton: TToolButton - Left = 0 - Top = 0 - Action = MainForm.NodeListStart - end - object StopButton: TToolButton - Left = 23 - Top = 0 - Action = MainForm.NodeListStop - end object LockNodeButton: TToolButton - Left = 46 + Left = 0 Top = 0 Hint = 'Lock Node(s)' Caption = 'LockNodeButton' @@ -50,7 +39,7 @@ object NodeForm: TNodeForm OnClick = LockNodeButtonClick end object DownButton: TToolButton - Left = 69 + Left = 23 Top = 0 Hint = 'Down Node(s)' Caption = 'DownButton' @@ -58,7 +47,7 @@ object NodeForm: TNodeForm OnClick = DownButtonClick end object InterruptNodeButton: TToolButton - Left = 92 + Left = 46 Top = 0 Hint = 'Interrupt Node(s)' Caption = 'InterruptNodeButton' @@ -66,7 +55,7 @@ object NodeForm: TNodeForm OnClick = InterruptNodeButtonClick end object RerunToolButton: TToolButton - Left = 115 + Left = 69 Top = 0 Hint = 'Rerun Node(s)' Caption = 'RerunToolButton' @@ -74,7 +63,7 @@ object NodeForm: TNodeForm OnClick = RerunNodeButtonClick end object ClearErrorButton: TToolButton - Left = 138 + Left = 92 Top = 0 Hint = 'Clear Errors on Node(s)' Caption = 'ClearErrorButton' @@ -82,7 +71,7 @@ object NodeForm: TNodeForm OnClick = ClearErrorButtonClick end object SpyButton: TToolButton - Left = 161 + Left = 115 Top = 0 Hint = 'Spy on Node(s)' Caption = 'SpyButton' @@ -90,7 +79,7 @@ object NodeForm: TNodeForm OnClick = SpyButtonClick end object ChatButton: TToolButton - Left = 184 + Left = 138 Top = 0 Hint = 'Chat with User' Caption = 'ChatButton' @@ -98,7 +87,7 @@ object NodeForm: TNodeForm OnClick = ChatButtonClick end object UserMsgButton: TToolButton - Left = 207 + Left = 161 Top = 0 Hint = 'Send Message to User' Caption = 'UserMsgButton' @@ -106,7 +95,7 @@ object NodeForm: TNodeForm OnClick = UserMsgButtonClick end object UserEditButton: TToolButton - Left = 230 + Left = 184 Top = 0 Hint = 'Edit User' Caption = 'UserEditButton' @@ -118,13 +107,12 @@ object NodeForm: TNodeForm Left = 0 Top = 25 Width = 269 - Height = 162 + Height = 156 Align = alClient - ItemHeight = 13 + ItemHeight = 16 MultiSelect = True PopupMenu = PopupMenu TabOrder = 1 - OnKeyPress = ListBoxKeyPress end object Timer: TTimer OnTimer = TimerTick @@ -137,53 +125,68 @@ object NodeForm: TNodeForm object LockMenuItem: TMenuItem Caption = 'Lock Node' ImageIndex = 19 + ShortCut = 16460 OnClick = LockNodeButtonClick end object DownMenuItem: TMenuItem Caption = 'Down Node' ImageIndex = 21 + ShortCut = 16452 OnClick = DownButtonClick end object RerunMenuItem: TMenuItem Caption = 'Rerun Node' ImageIndex = 55 + ShortCut = 16466 OnClick = RerunNodeButtonClick end object InterruptMenuItem: TMenuItem Caption = 'Interrupt Node' ImageIndex = 17 + ShortCut = 16457 OnClick = InterruptNodeButtonClick end object ClearErrorsMenuItem: TMenuItem Caption = 'Clear Errors' ImageIndex = 33 + ShortCut = 46 OnClick = ClearErrorButtonClick end object ChatMenuItem: TMenuItem Caption = 'Chat w/User' ImageIndex = 39 + ShortCut = 121 OnClick = ChatButtonClick end object SendMsgMenuItem: TMenuItem Caption = 'Send User Msg' + ShortCut = 122 OnClick = UserMsgButtonClick end object SpyMenuItem: TMenuItem Caption = 'Spy on Node' ImageIndex = 41 + ShortCut = 123 OnClick = SpyButtonClick end object EditUser1: TMenuItem Caption = 'Edit User' Hint = 'EditUserMenuItem' ImageIndex = 27 + ShortCut = 113 OnClick = UserEditButtonClick end object N1: TMenuItem Caption = '-' end + object RefreshMenuItem: TMenuItem + Caption = 'Refresh' + ShortCut = 116 + OnClick = RefreshMenuItemClick + end object SelectAllMenuItem: TMenuItem Caption = 'Select &All' + ShortCut = 16449 OnClick = SelectAllMenuItemClick end end