-
Notifications
You must be signed in to change notification settings - Fork 24
/
autoroi.lfm
executable file
·126 lines (126 loc) · 2.38 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
object AutoROIForm: TAutoROIForm
Left = 466
Height = 249
Top = 137
Width = 252
HorzScrollBar.Page = 264
VertScrollBar.Page = 354
ActiveControl = VarianceEdit
BorderStyle = bsDialog
Caption = 'Create ROI'
ClientHeight = 249
ClientWidth = 252
Constraints.MaxWidth = 252
Constraints.MinWidth = 252
Font.Name = 'MS Sans Serif'
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnHide = FormHide
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '1.9.0.0'
object OriginLabel: TLabel
Left = 6
Height = 16
Top = 38
Width = 45
Caption = 'Origin: '
ParentColor = False
end
object DiffLabel: TLabel
Left = 12
Height = 16
Top = 98
Width = 134
Caption = 'Difference from origin'
ParentColor = False
end
object Label2: TLabel
Left = 12
Height = 16
Top = 128
Width = 77
Caption = 'Radius (mm)'
ParentColor = False
end
object Label4: TLabel
Left = 4
Height = 16
Top = 68
Width = 70
Caption = 'Constraints'
ParentColor = False
end
object VarianceEdit: TSpinEdit
Left = 173
Height = 25
Top = 98
Width = 72
MaxValue = 255
OnChange = AutoROIchange
TabOrder = 1
Value = 16
end
object RadiusEdit: TSpinEdit
Left = 173
Height = 25
Top = 128
Width = 72
MaxValue = 9999
OnChange = AutoROIchange
TabOrder = 2
Value = 32
end
object ROIconstraint: TComboBox
Left = 12
Height = 26
Top = 162
Width = 226
ItemHeight = 26
ItemIndex = 0
Items.Strings = (
'Append to current VOI'
'Delete from current VOI'
'Constrain with current VOI'
)
OnChange = AutoROIchange
Style = csDropDownList
TabOrder = 3
Text = 'Append to current VOI'
end
object OriginBtn: TButton
Left = 4
Height = 25
Top = 9
Width = 114
Caption = 'Reset origin'
OnClick = OriginBtnClick
TabOrder = 0
end
object AutoROIBtn: TButton
Left = 12
Height = 25
Top = 208
Width = 114
Caption = 'Apply'
OnClick = AutoROIBtnClick
TabOrder = 4
end
object CancelBtn: TButton
Left = 127
Height = 25
Top = 208
Width = 114
Caption = 'Cancel'
OnClick = CancelBtnClick
TabOrder = 5
end
object Timer1: TTimer
Enabled = False
Interval = 400
OnTimer = Timer1Timer
left = 208
top = 32
end
end