-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathFormMain.fmx
167 lines (167 loc) · 4.19 KB
/
FormMain.fmx
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
inherited frmMain: TfrmMain
Caption = 'Display OEE'
ClientHeight = 335
ClientWidth = 335
StyleBook = dmStyleRes.StyleBook1
OnCloseQuery = FormCloseQuery
DesignerMasterStyle = 0
inherited layoutMain: TLayout
Size.Width = 335.000000000000000000
Size.Height = 289.000000000000000000
inherited Label9: TLabel
TabOrder = 17
end
object tmrPolling: TTimer
Enabled = False
Interval = 60000
Left = 208
Top = 136
end
object Line1: TLine
Anchors = [akLeft, akTop, akBottom]
LineType = Left
Position.X = 336.000000000000000000
Position.Y = 8.000000000000000000
Size.Width = 9.000000000000000000
Size.Height = 272.000000000000000000
Size.PlatformDefault = False
end
object GridLayout1: TGridLayout
ItemHeight = 30.000000000000000000
ItemWidth = 29.000000000000000000
Orientation = Horizontal
Position.X = 352.000000000000000000
Position.Y = 16.000000000000000000
Size.Width = 292.000000000000000000
Size.Height = 289.000000000000000000
Size.PlatformDefault = False
TabOrder = 19
end
object Button4: TButton
Action = actPanelClear
Enabled = True
StyledSettings = [Family, Style, FontColor]
ImageIndex = -1
Position.X = 24.000000000000000000
Position.Y = 240.000000000000000000
Size.Width = 289.000000000000000000
Size.Height = 41.000000000000000000
Size.PlatformDefault = False
TabOrder = 20
TextSettings.Font.Size = 23.000000000000000000
end
end
inherited StatusBar1: TStatusBar
Position.Y = 313.000000000000000000
Size.Width = 335.000000000000000000
TabOrder = 2
end
inherited popupmenuTrayIcon: TPopupMenu
Left = 144
end
object MenuBar1: TMenuBar [5]
Size.Width = 335.000000000000000000
Size.Height = 24.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
object MenuItem1: TMenuItem
Locked = True
Text = 'File'
object MenuItem2: TMenuItem
Action = actFileStart
Enabled = True
Locked = True
ImageIndex = -1
end
object MenuItem3: TMenuItem
Action = actFileStop
Enabled = True
Locked = True
ImageIndex = -1
end
object MenuItem4: TMenuItem
Locked = True
Text = '-'
end
object MenuItem5: TMenuItem
Action = actFileConfig
Enabled = True
Locked = True
ImageIndex = -1
end
object MenuItem6: TMenuItem
Locked = True
Text = '-'
end
object MenuItem7: TMenuItem
Action = actFileExit
Enabled = True
Locked = True
ImageIndex = -1
end
end
object MenuItem9: TMenuItem
Locked = True
Text = 'Panel'
object MenuItem10: TMenuItem
Action = actPanelShow
Enabled = True
Locked = True
ImageIndex = -1
end
object MenuItem11: TMenuItem
Action = actPanelHide
Enabled = True
Locked = True
ImageIndex = -1
end
object MenuItem12: TMenuItem
Locked = True
Text = '-'
end
object MenuItem13: TMenuItem
Action = actPanelMonoscope
Enabled = True
Locked = True
ImageIndex = -1
end
object MenuItem16: TMenuItem
Locked = True
Text = '-'
end
object MenuItem17: TMenuItem
Action = actPanelClipping
Enabled = True
Locked = True
ImageIndex = -1
end
object MenuItem18: TMenuItem
Action = actPanelScaling
Enabled = True
Locked = True
ImageIndex = -1
end
object MenuItem19: TMenuItem
Action = actPanelKeepAspectRatio
Enabled = True
Locked = True
ImageIndex = -1
end
object MenuItem34: TMenuItem
Action = actPanelAutoFit
Enabled = True
Locked = True
ImageIndex = -1
end
end
end
inherited ActionList1: TActionList
Left = 280
object actPanelClear: TAction
Category = 'Panel'
Text = 'Clear'
OnExecute = actPanelClearExecute
OnUpdate = actPanelClearUpdate
end
end
end