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