|
|
1.1 root 1: object NodeForm: TNodeForm
2: Left = 579
3: Top = 396
4: Width = 277
5: Height = 214
6: Caption = 'Nodes'
7: Color = clBtnFace
8: UseDockManager = True
9: DragKind = dkDock
10: DragMode = dmAutomatic
11: Font.Charset = DEFAULT_CHARSET
12: Font.Color = clWindowText
13: Font.Height = -11
14: Font.Name = 'MS Sans Serif'
15: Font.Style = []
16: OldCreateOrder = False
17: Position = poDefault
18: OnHide = FormHide
19: OnShow = FormShow
20: PixelsPerInch = 96
21: TextHeight = 13
22: object Toolbar: TToolBar
23: Left = 0
24: Top = 0
25: Width = 269
26: Height = 25
27: Caption = 'Toolbar'
28: EdgeBorders = []
29: Flat = True
30: Images = MainForm.ImageList
31: ParentShowHint = False
32: ShowHint = True
33: TabOrder = 0
34: object StartButton: TToolButton
35: Left = 0
36: Top = 0
37: Action = MainForm.NodeListStart
38: end
39: object StopButton: TToolButton
40: Left = 23
41: Top = 0
42: Action = MainForm.NodeListStop
43: end
44: object LockNodeButton: TToolButton
45: Left = 46
46: Top = 0
47: Hint = 'Lock Node(s)'
48: Caption = 'LockNodeButton'
49: ImageIndex = 19
50: OnClick = LockNodeButtonClick
51: end
52: object DownButton: TToolButton
53: Left = 69
54: Top = 0
55: Hint = 'Down Node(s)'
56: Caption = 'DownButton'
57: ImageIndex = 21
58: OnClick = DownButtonClick
59: end
60: object InterruptNodeButton: TToolButton
61: Left = 92
62: Top = 0
63: Hint = 'Interrupt Node(s)'
64: Caption = 'InterruptNodeButton'
65: ImageIndex = 17
66: OnClick = InterruptNodeButtonClick
67: end
68: object RerunToolButton: TToolButton
69: Left = 115
70: Top = 0
71: Hint = 'Rerun Node(s)'
72: Caption = 'RerunToolButton'
73: ImageIndex = 55
74: OnClick = RerunNodeButtonClick
75: end
76: object ClearErrorButton: TToolButton
77: Left = 138
78: Top = 0
79: Hint = 'Clear Errors on Node(s)'
80: Caption = 'ClearErrorButton'
81: ImageIndex = 31
82: OnClick = ClearErrorButtonClick
83: end
84: object SpyButton: TToolButton
85: Left = 161
86: Top = 0
87: Hint = 'Spy on Node(s)'
88: Caption = 'SpyButton'
89: ImageIndex = 39
90: OnClick = SpyButtonClick
91: end
92: object ChatButton: TToolButton
93: Left = 184
94: Top = 0
95: Hint = 'Chat with User'
96: Caption = 'ChatButton'
97: ImageIndex = 37
98: OnClick = ChatButtonClick
99: end
100: object UserMsgButton: TToolButton
101: Left = 207
102: Top = 0
103: Hint = 'Send Message to User'
104: Caption = 'UserMsgButton'
105: ImageIndex = 57
106: OnClick = UserMsgButtonClick
107: end
108: object UserEditButton: TToolButton
109: Left = 230
110: Top = 0
111: Hint = 'Edit User'
112: Caption = 'UserEditButton'
113: ImageIndex = 27
114: OnClick = UserEditButtonClick
115: end
116: end
117: object ListBox: TListBox
118: Left = 0
119: Top = 25
120: Width = 269
121: Height = 162
122: Align = alClient
123: ItemHeight = 13
124: MultiSelect = True
125: PopupMenu = PopupMenu
126: TabOrder = 1
127: OnKeyPress = ListBoxKeyPress
128: end
129: object Timer: TTimer
130: OnTimer = TimerTick
131: Left = 72
132: Top = 120
133: end
134: object PopupMenu: TPopupMenu
135: Left = 128
136: Top = 72
137: object LockMenuItem: TMenuItem
138: Caption = 'Lock Node'
139: ImageIndex = 19
140: OnClick = LockNodeButtonClick
141: end
142: object DownMenuItem: TMenuItem
143: Caption = 'Down Node'
144: ImageIndex = 21
145: OnClick = DownButtonClick
146: end
147: object RerunMenuItem: TMenuItem
148: Caption = 'Rerun Node'
149: ImageIndex = 55
150: OnClick = RerunNodeButtonClick
151: end
152: object InterruptMenuItem: TMenuItem
153: Caption = 'Interrupt Node'
154: ImageIndex = 17
155: OnClick = InterruptNodeButtonClick
156: end
157: object ClearErrorsMenuItem: TMenuItem
158: Caption = 'Clear Errors'
159: ImageIndex = 33
160: OnClick = ClearErrorButtonClick
161: end
162: object ChatMenuItem: TMenuItem
163: Caption = 'Chat w/User'
164: ImageIndex = 39
165: OnClick = ChatButtonClick
166: end
167: object SendMsgMenuItem: TMenuItem
168: Caption = 'Send User Msg'
169: OnClick = UserMsgButtonClick
170: end
171: object SpyMenuItem: TMenuItem
172: Caption = 'Spy on Node'
173: ImageIndex = 41
174: OnClick = SpyButtonClick
175: end
176: object EditUser1: TMenuItem
177: Caption = 'Edit User'
178: Hint = 'EditUserMenuItem'
179: ImageIndex = 27
180: OnClick = UserEditButtonClick
181: end
182: object N1: TMenuItem
183: Caption = '-'
184: end
185: object SelectAllMenuItem: TMenuItem
186: Caption = 'Select &All'
187: OnClick = SelectAllMenuItemClick
188: end
189: end
190: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.