This repository has been archived by the owner on Nov 26, 2022. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 4
/
Window1.rbfrm
108 lines (106 loc) · 2.86 KB
/
Window1.rbfrm
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
#tag Window
Begin Window Window1
BackColor = &hFFFFFF
Backdrop = ""
CloseButton = True
Composite = False
Frame = 0
FullScreen = False
HasBackColor = False
Height = 9.0e+1
ImplicitInstance= True
LiveResize = True
MacProcID = 0
MaxHeight = 32000
MaximizeButton = False
MaxWidth = 32000
MenuBar = ""
MenuBarVisible = True
MinHeight = 64
MinimizeButton = False
MinWidth = 64
Placement = 2
Resizeable = False
Title = "FTP Demo"
Visible = True
Width = 1.2e+2
Begin PushButton PushButton1
AutoDeactivate = True
Bold = ""
ButtonStyle = 0
Cancel = ""
Caption = "Client Demo"
Default = ""
Enabled = True
Height = 22
HelpTag = ""
Index = -2147483648
InitialParent = ""
Italic = ""
Left = 20
LockBottom = ""
LockedInPosition= False
LockLeft = True
LockRight = ""
LockTop = True
Scope = 0
TabIndex = 0
TabPanelIndex = 0
TabStop = True
TextFont = "System"
TextSize = 0
TextUnit = 0
Top = 14
Underline = ""
Visible = True
Width = 80
End
Begin PushButton PushButton2
AutoDeactivate = True
Bold = ""
ButtonStyle = 0
Cancel = ""
Caption = "Server Demo"
Default = ""
Enabled = True
Height = 22
HelpTag = ""
Index = -2147483648
InitialParent = ""
Italic = ""
Left = 20
LockBottom = ""
LockedInPosition= False
LockLeft = True
LockRight = ""
LockTop = True
Scope = 0
TabIndex = 1
TabPanelIndex = 0
TabStop = True
TextFont = "System"
TextSize = 0
TextUnit = 0
Top = 48
Underline = ""
Visible = True
Width = 80
End
End
#tag EndWindow
#tag WindowCode
#tag EndWindowCode
#tag Events PushButton1
#tag Event
Sub Action()
ClientDemo.Show
End Sub
#tag EndEvent
#tag EndEvents
#tag Events PushButton2
#tag Event
Sub Action()
ServerDemo.Show
End Sub
#tag EndEvent
#tag EndEvents