-
Notifications
You must be signed in to change notification settings - Fork 1
/
StorageLocations.dfm
199 lines (199 loc) · 4.61 KB
/
StorageLocations.dfm
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
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
object FormStorageLocations: TFormStorageLocations
Left = 0
Top = 0
ActiveControl = btnClose
Caption = 'FormStorageLocations'
ClientHeight = 574
ClientWidth = 635
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
DesignSize = (
635
574)
PixelsPerInch = 96
TextHeight = 13
object WarningLabel: TLabel
Left = 72
Top = 82
Width = 88
Height = 16
Caption = 'WarningLabel'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Visible = False
StyleElements = [seClient, seBorder]
end
object edtSampleStorageLoc: TLabeledEdit
Left = 72
Top = 461
Width = 129
Height = 21
Hint = 'location of the remaining sample material'
CustomHint = BalloonHint1
Anchors = [akLeft, akBottom]
EditLabel.Width = 118
EditLabel.Height = 13
EditLabel.Caption = 'Sample Storage Location'
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object btnClose: TButton
Left = 391
Top = 496
Width = 105
Height = 38
Hint = 'close window without saving changes'
CustomHint = BalloonHint1
Anchors = [akLeft, akBottom]
Cancel = True
Caption = 'Close (ESC)'
ModalResult = 8
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
object btnSave: TButton
Left = 72
Top = 496
Width = 291
Height = 38
Hint = 'save storage locations to database'
CustomHint = BalloonHint1
Anchors = [akLeft, akBottom]
Caption = 'Save'
Enabled = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = btnSaveClick
end
object DBGrid1: TDBGrid
Left = 1
Top = 104
Width = 634
Height = 329
Hint = 'list of found samples'
CustomHint = BalloonHint1
Anchors = [akLeft, akTop, akRight, akBottom]
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 3
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
OnDrawColumnCell = DBGrid1DrawColumnCell
end
object edtStatus: TEdit
Left = 0
Top = 553
Width = 635
Height = 21
Align = alBottom
BorderStyle = bsNone
TabOrder = 4
ExplicitWidth = 612
end
object GroupBox1: TGroupBox
Left = 0
Top = 0
Width = 635
Height = 73
Align = alTop
Caption = 'Sample ID'#39's MAMS'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 5
ExplicitWidth = 612
object edtStartSampleID: TLabeledEdit
Left = 72
Top = 32
Width = 121
Height = 21
Hint = 'start of the range of sample numbers'
CustomHint = BalloonHint1
EditLabel.Width = 24
EditLabel.Height = 13
EditLabel.Caption = 'Start'
LabelPosition = lpLeft
NumbersOnly = True
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnChange = edtStartSampleIDChange
end
object edtEndSampleID: TLabeledEdit
Left = 232
Top = 32
Width = 121
Height = 21
Hint = 'end of the range of sample numbers'
CustomHint = BalloonHint1
EditLabel.Width = 18
EditLabel.Height = 13
EditLabel.Caption = 'End'
LabelPosition = lpLeft
NumbersOnly = True
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
object btnSearch: TButton
Left = 391
Top = 16
Width = 82
Height = 54
Hint = 'search and display samples according to given IDs'
CustomHint = BalloonHint1
Caption = 'Search'
Default = True
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = btnSearchClick
end
end
object edtPrepStorageLoc: TLabeledEdit
Left = 232
Top = 461
Width = 131
Height = 21
Hint = 'location of the remaining prep'#39'd material'
CustomHint = BalloonHint1
Anchors = [akLeft, akBottom]
EditLabel.Width = 111
EditLabel.Height = 13
EditLabel.Caption = 'prep'#39'd material loaction'
ParentShowHint = False
ShowHint = True
TabOrder = 6
end
object BalloonHint1: TBalloonHint
Left = 528
Top = 24
end
end