-
Notifications
You must be signed in to change notification settings - Fork 25
/
autoroi.lfm
executable file
·235 lines (235 loc) · 5.34 KB
/
autoroi.lfm
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
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
object AutoROIForm: TAutoROIForm
Left = 757
Height = 258
Top = 200
Width = 293
HorzScrollBar.Page = 264
VertScrollBar.Page = 354
ActiveControl = VarianceEdit
AutoSize = True
BorderStyle = bsDialog
BorderWidth = 4
Caption = 'Create ROI'
ClientHeight = 258
ClientWidth = 293
OnCreate = FormCreate
OnDestroy = FormDestroy
OnHide = FormHide
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '2.1.0.0'
object OriginLabel: TLabel
AnchorSideLeft.Control = OriginBtn
AnchorSideTop.Control = OriginBtn
AnchorSideTop.Side = asrBottom
Left = 8
Height = 16
Top = 37
Width = 44
BorderSpacing.Top = 4
Caption = 'Origin: '
ParentColor = False
end
object DiffLabel: TLabel
AnchorSideLeft.Control = Label4
AnchorSideTop.Control = VarianceEdit
AnchorSideTop.Side = asrCenter
Left = 12
Height = 16
Top = 79
Width = 132
BorderSpacing.Left = 4
BorderSpacing.Top = 4
Caption = 'Difference from origin'
ParentColor = False
end
object Label1: TLabel
AnchorSideLeft.Control = DiffLabel
AnchorSideTop.Control = EdgeEdit
AnchorSideTop.Side = asrCenter
Left = 12
Height = 16
Top = 104
Width = 112
Caption = 'Difference at edge'
ParentColor = False
end
object Label2: TLabel
AnchorSideLeft.Control = DiffLabel
AnchorSideTop.Control = RadiusEdit
Left = 12
Height = 16
Top = 127
Width = 77
Caption = 'Radius (mm)'
ParentColor = False
end
object Label3: TLabel
AnchorSideLeft.Control = DiffLabel
AnchorSideTop.Control = ErodeEdit
AnchorSideTop.Side = asrCenter
Left = 12
Height = 16
Top = 154
Width = 115
Caption = 'Erode/dilate cycles'
ParentColor = False
end
object Label4: TLabel
AnchorSideLeft.Control = OriginBtn
AnchorSideTop.Control = OriginLabel
AnchorSideTop.Side = asrBottom
Left = 8
Height = 16
Top = 57
Width = 70
BorderSpacing.Top = 4
Caption = 'Constraints'
ParentColor = False
end
object ExcludeBlackCheck: TCheckBox
AnchorSideLeft.Control = DiffLabel
AnchorSideTop.Control = ErodeEdit
AnchorSideTop.Side = asrBottom
Left = 12
Height = 18
Top = 177
Width = 194
BorderSpacing.Top = 4
Caption = 'Zero intensity constrains edge'
OnClick = AutoROIchange
TabOrder = 0
end
object VarianceEdit: TSpinEdit
AnchorSideLeft.Control = DiffLabel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label4
AnchorSideTop.Side = asrBottom
Left = 152
Height = 21
Top = 77
Width = 72
BorderSpacing.Left = 8
BorderSpacing.Top = 4
MaxValue = 255
OnChange = AutoROIchange
TabOrder = 1
Value = 16
end
object EdgeEdit: TSpinEdit
AnchorSideLeft.Control = VarianceEdit
AnchorSideTop.Control = VarianceEdit
AnchorSideTop.Side = asrBottom
Left = 152
Height = 21
Top = 102
Width = 72
BorderSpacing.Top = 4
MaxValue = 255
OnChange = AutoROIchange
TabOrder = 2
Value = 16
end
object RadiusEdit: TSpinEdit
AnchorSideLeft.Control = VarianceEdit
AnchorSideTop.Control = EdgeEdit
AnchorSideTop.Side = asrBottom
Left = 152
Height = 21
Top = 127
Width = 72
BorderSpacing.Top = 4
MaxValue = 9999
OnChange = AutoROIchange
TabOrder = 3
Value = 32
end
object ErodeEdit: TSpinEdit
AnchorSideLeft.Control = VarianceEdit
AnchorSideTop.Control = RadiusEdit
AnchorSideTop.Side = asrBottom
Left = 152
Height = 21
Top = 152
Width = 72
BorderSpacing.Top = 4
MaxValue = 12
OnChange = AutoROIchange
TabOrder = 4
end
object ROIconstraint: TComboBox
AnchorSideLeft.Control = DiffLabel
AnchorSideTop.Control = ExcludeBlackCheck
AnchorSideTop.Side = asrBottom
Left = 12
Height = 20
Top = 199
Width = 212
BorderSpacing.Top = 4
ItemHeight = 26
Items.Strings = (
'Append to current VOI'
'Delete from current VOI'
'Constrain with current VOI'
)
OnChange = AutoROIchange
ParentColor = True
Style = csDropDownList
TabOrder = 5
Text = '0'
end
object OriginBtn: TButton
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 8
Height = 25
Top = 8
Width = 114
BorderSpacing.Left = 4
BorderSpacing.Top = 4
Caption = 'Reset origin'
OnClick = OriginBtnClick
TabOrder = 6
end
object AutoROIBtn: TButton
AnchorSideTop.Control = ROIconstraint
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 183
Height = 20
Top = 225
Width = 100
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'Apply'
Constraints.MinWidth = 100
OnClick = AutoROIBtnClick
TabOrder = 7
end
object CancelBtn: TButton
AnchorSideTop.Control = AutoROIBtn
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = AutoROIBtn
Left = 77
Height = 20
Top = 225
Width = 100
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Right = 6
Caption = 'Cancel'
Constraints.MinWidth = 100
OnClick = CancelBtnClick
TabOrder = 8
end
object Timer1: TTimer
Enabled = False
Interval = 400
OnTimer = Timer1Timer
left = 168
top = 24
end
end