ViewVC Help

View File | Revision Log | Show Annotations | Revision Graph | Root Listing

root/i-scream/projects/cms/source/host/winhost/nettest.frm

Comparing projects/cms/source/host/winhost/nettest.frm (file contents):
Revision 1.11 by pjm2, Fri Feb 23 11:56:43 2001 UTC vs.
Revision 1.12 by pjm2, Fri Feb 23 12:01:14 2001 UTC

#	Line 7 | Line 7 | Begin VB.Form Form1
7		ClientHeight    =   5655
8		ClientLeft      =   45
9		ClientTop       =   285
10	<	ClientWidth     =   5670
10	>	ClientWidth     =   4710
11		LinkTopic       =   "Form1"
12		MaxButton       =   0   'False
13		ScaleHeight     =   5655
14	<	ScaleWidth      =   5670
14	>	ScaleWidth      =   4710
15		ShowInTaskbar   =   0   'False
16		StartUpPosition =   3  'Windows Default
17		Begin VB.CommandButton Hide
18	<	Caption         =   "Hide"
19	<	Height          =   495
20	<	Left            =   1800
18	>	Caption         =   "Hide Window"
19	>	Height          =   375
20	>	Left            =   3120
21		TabIndex        =   7
22	<	Top             =   2160
23	<	Width           =   1215
22	>	Top             =   840
23	>	Width           =   1455
24		End
25		Begin SysTray.SystemTray SystemTray
26	<	Left            =   3600
27	<	Top             =   1200
26	>	Left            =   2160
27	>	Top             =   1800
28		_ExtentX        =   847
29		_ExtentY        =   847
30		SysTrayText     =   "i-scream Winhost"
31		IconFile        =   0
32		End
33		Begin VB.Timer Timer1
34	<	Left            =   4200
35	<	Top             =   1200
34	>	Left            =   2760
35	>	Top             =   1800
36		End
37		Begin VB.TextBox Text4
38		Height          =   1575
#	Line 42 | Line 42 | Begin VB.Form Form1
42		TabIndex        =   1
43		Text            =   "nettest.frx":0000
44		Top             =   3000
45	<	Width           =   5055
45	>	Width           =   3975
46		End
47		Begin VB.CommandButton Reconfigure
48		Caption         =   "Reconfigure with FilterManager"
49	<	Height          =   495
49	>	Height          =   375
50		Left            =   120
51		TabIndex        =   0
52	<	Top             =   120
52	>	Top             =   840
53		Width           =   2895
54		End
55		Begin MSWinsockLib.Winsock TCPSock
56	<	Left            =   5160
57	<	Top             =   1200
56	>	Left            =   3720
57	>	Top             =   1800
58		_ExtentX        =   741
59		_ExtentY        =   741
60		_Version        =   393216
61		End
62		Begin MSWinsockLib.Winsock UDPSock
63	<	Left            =   4680
64	<	Top             =   1200
63	>	Left            =   3240
64	>	Top             =   1800
65		_ExtentX        =   741
66		_ExtentY        =   741
67		_Version        =   393216
#	Line 71 | Line 71 | Begin VB.Form Form1
71		Alignment       =   1  'Right Justify
72		Caption         =   "Next heartbeat:"
73		Height          =   255
74	<	Left            =   3360
74	>	Left            =   2400
75		TabIndex        =   6
76		Top             =   480
77		Width           =   1455
#	Line 80 | Line 80 | Begin VB.Form Form1
80		Alignment       =   1  'Right Justify
81		Caption         =   "Next UDP packet:"
82		Height          =   255
83	<	Left            =   3360
83	>	Left            =   2400
84		TabIndex        =   5
85		Top             =   120
86		Width           =   1455
#	Line 89 | Line 89 | Begin VB.Form Form1
89		BorderStyle     =   1  'Fixed Single
90		Caption         =   "0"
91		Height          =   255
92	<	Left            =   4920
92	>	Left            =   3960
93		TabIndex        =   4
94		Top             =   480
95		Width           =   615
#	Line 98 | Line 98 | Begin VB.Form Form1
98		BorderStyle     =   1  'Fixed Single
99		Caption         =   "0"
100		Height          =   255
101	<	Left            =   4920
101	>	Left            =   3960
102		TabIndex        =   3
103		Top             =   120
104		Width           =   615
105		End
106		Begin VB.Label Status
107	+	Alignment       =   2  'Center
108		Caption         =   "Status:"
109		Height          =   255
110		Left            =   120
111		TabIndex        =   2
112	<	Top             =   840
113	<	Width           =   5415
112	>	Top             =   1320
113	>	Width           =   4455
114		End
115		End
116		Attribute VB_Name = "Form1"
#	Line 193 | Line 194 | Private Sub Form_QueryUnload(Cancel As Integer, Unload
194		If x = 7 Then
195		Cancel = True
196		End If
197	+	SystemTray.Action = 2
198
199		End Sub
200
#	Line 214 | Line 216 | End Sub
216		Private Sub SystemTray_MouseDblClk(ByVal Button As Integer)
217
218		Form1.Visible = True
219	+	SystemTray.Action = 2
220		Form1.SetFocus
221	+
222
223		End Sub
224

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines