-
Notifications
You must be signed in to change notification settings - Fork 0
/
w_main.srw
176 lines (161 loc) · 3.82 KB
/
w_main.srw
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
170
171
172
173
174
175
176
$PBExportHeader$w_main.srw
forward
global type w_main from window
end type
type dw_2 from u_dw within w_main
end type
type dw_1 from u_dw within w_main
end type
type sle_password from u_sle within w_main
end type
type sle_user from u_sle within w_main
end type
type gb_1 from groupbox within w_main
end type
type gb_2 from groupbox within w_main
end type
type gb_3 from groupbox within w_main
end type
end forward
global type w_main from window
integer width = 1189
integer height = 1020
boolean titlebar = true
string title = "Watermark Text"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
dw_2 dw_2
dw_1 dw_1
sle_password sle_password
sle_user sle_user
gb_1 gb_1
gb_2 gb_2
gb_3 gb_3
end type
global w_main w_main
on w_main.create
this.dw_2=create dw_2
this.dw_1=create dw_1
this.sle_password=create sle_password
this.sle_user=create sle_user
this.gb_1=create gb_1
this.gb_2=create gb_2
this.gb_3=create gb_3
this.Control[]={this.dw_2,&
this.dw_1,&
this.sle_password,&
this.sle_user,&
this.gb_1,&
this.gb_2,&
this.gb_3}
end on
on w_main.destroy
destroy(this.dw_2)
destroy(this.dw_1)
destroy(this.sle_password)
destroy(this.sle_user)
destroy(this.gb_1)
destroy(this.gb_2)
destroy(this.gb_3)
end on
type dw_2 from u_dw within w_main
integer x = 27
integer y = 680
integer width = 1074
integer height = 188
integer taborder = 50
string dataobject = "d_login"
boolean border = false
borderstyle borderstyle = stylebox!
end type
event constructor;call super::constructor;of_setCueBanner ( true )
inv_cuebanner.of_register ( "user", "Username" )
inv_cuebanner.of_register ( "pass", "Password" )
insertRow ( 0 )
end event
type dw_1 from u_dw within w_main
integer x = 27
integer y = 384
integer width = 1074
integer height = 188
integer taborder = 20
string dataobject = "d_login"
boolean border = false
borderstyle borderstyle = stylebox!
end type
event constructor;call super::constructor;of_setCueBanner ( true )
inv_cuebanner.of_setItalic ( true )
inv_cuebanner.of_register ( "user", "Username" )
inv_cuebanner.of_register ( "pass", "Password" )
insertRow ( 0 )
end event
type sle_password from u_sle within w_main
integer x = 59
integer y = 176
integer width = 992
integer height = 96
integer taborder = 10
string text = ""
string #prompt = "Password"
end type
type sle_user from u_sle within w_main
integer x = 59
integer y = 64
integer width = 992
integer height = 96
integer taborder = 10
string text = ""
string #prompt = "Username"
end type
type gb_1 from groupbox within w_main
integer x = 14
integer width = 1120
integer height = 308
integer taborder = 30
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
long backcolor = 67108864
string text = "Singleline"
end type
type gb_2 from groupbox within w_main
integer x = 9
integer y = 308
integer width = 1120
integer height = 292
integer taborder = 40
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
long backcolor = 67108864
string text = "DW - Italic"
end type
type gb_3 from groupbox within w_main
integer x = 9
integer y = 604
integer width = 1120
integer height = 292
integer taborder = 30
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
long backcolor = 67108864
string text = "DW - Standard"
end type