-
Notifications
You must be signed in to change notification settings - Fork 7
/
Copy pathfrmLoadChar.frm
169 lines (159 loc) · 4.56 KB
/
frmLoadChar.frm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
VERSION 5.00
Begin VB.Form frmLoadChar
BorderStyle = 1 'Fixed Single
Caption = " Load Character ..."
ClientHeight = 2895
ClientLeft = 45
ClientTop = 330
ClientWidth = 2595
ControlBox = 0 'False
Icon = "frmLoadChar.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 2895
ScaleWidth = 2595
StartUpPosition = 1 'CenterOwner
Begin VB.Frame Frame2
Caption = "Options"
Height = 2295
Left = 60
TabIndex = 9
Top = 60
Width = 2475
Begin VB.CheckBox chkInvenLoad
Caption = "Load Inventory Equipment"
Height = 255
Left = 120
TabIndex = 1
Top = 240
Value = 1 'Checked
Width = 2235
End
Begin VB.CheckBox chkCompareLoad
Caption = "Load Save/Compare Lists"
Height = 255
Left = 120
TabIndex = 3
Top = 840
Value = 1 'Checked
Width = 2295
End
Begin VB.CheckBox chkCompareClear
Caption = "Clear First"
Height = 255
Left = 360
TabIndex = 4
Top = 1080
Value = 1 'Checked
Width = 1155
End
Begin VB.OptionButton optFilter
Caption = "Filter all based on Char."
Height = 195
Index = 0
Left = 120
TabIndex = 6
Top = 1740
Width = 2235
End
Begin VB.OptionButton optFilter
Caption = "Leave current filtering"
Height = 195
Index = 1
Left = 120
TabIndex = 5
Top = 1500
Value = -1 'True
Width = 2235
End
Begin VB.OptionButton optFilter
Caption = "Reset Filters"
Height = 195
Index = 2
Left = 120
TabIndex = 7
Top = 1980
Width = 2235
End
Begin VB.CheckBox chkInvenClear
Caption = "Clear First"
Height = 255
Left = 360
TabIndex = 2
Top = 480
Value = 1 'Checked
Width = 1155
End
Begin VB.Line Line1
X1 = 120
X2 = 2340
Y1 = 1380
Y2 = 1380
End
End
Begin VB.CommandButton cmdContinue
Caption = "&Continue"
Default = -1 'True
Height = 375
Left = 60
TabIndex = 0
Top = 2460
Width = 1035
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "Ca&ncel"
Height = 375
Left = 1500
TabIndex = 8
Top = 2460
Width = 1035
End
End
Attribute VB_Name = "frmLoadChar"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub chkCompareLoad_Click()
If chkCompareLoad.Value = 1 Then
chkCompareClear.Enabled = True
Else
chkCompareClear.Enabled = False
End If
End Sub
Private Sub chkInvenLoad_Click()
If chkInvenLoad.Value = 1 Then
chkInvenClear.Enabled = True
Else
chkInvenClear.Enabled = False
End If
End Sub
Private Sub cmdCancel_Click()
Me.Hide
End Sub
Private Sub cmdContinue_Click()
Me.Tag = "1"
Me.Hide
End Sub
'Private Sub optLoadFrom_Click(Index As Integer)
'
'If optLoadFrom(1).Value = True Then
' chkInvenLoad.Value = 0
' chkInvenLoad.Enabled = False
' chkCompareLoad.Value = 0
' chkCompareLoad.Enabled = False
'Else
' chkInvenLoad.Value = 1
' chkInvenLoad.Enabled = True
' chkInvenClear.Value = 1
' chkCompareLoad.Value = 1
' chkCompareLoad.Enabled = True
' chkCompareClear.Value = 1
'End If
'
'End Sub
Private Sub Form_Load()
End Sub