File: autoroi.lfm

package info (click to toggle)
mricron 0.20140804.1~dfsg.1-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 13,480 kB
  • ctags: 8,011
  • sloc: pascal: 114,853; sh: 49; makefile: 32
file content (174 lines) | stat: -rwxr-xr-x 3,409 bytes parent folder | download | duplicates (4)
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
object AutoROIForm: TAutoROIForm
  Left = 785
  Height = 355
  Top = 200
  Width = 265
  HorzScrollBar.Page = 264
  VertScrollBar.Page = 354
  ActiveControl = VarianceEdit
  Caption = 'Create ROI'
  ClientHeight = 355
  ClientWidth = 265
  Constraints.MaxHeight = 355
  Constraints.MaxWidth = 265
  Constraints.MinHeight = 355
  Constraints.MinWidth = 265
  Font.Name = 'MS Sans Serif'
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnHide = FormHide
  OnShow = FormShow
  Position = poScreenCenter
  LCLVersion = '0.9.28.2'
  object OriginLabel: TLabel
    Left = 4
    Height = 18
    Top = 42
    Width = 48
    Caption = 'Origin: '
    ParentColor = False
  end
  object OriginBtn: TSpeedButton
    Left = 7
    Height = 25
    Hint = 'You can also double-click on the image'
    Top = 5
    Width = 114
    Caption = 'Reset origin'
    Color = clBtnFace
    NumGlyphs = 0
    OnClick = OriginBtnClick
    ShowHint = True
    ParentShowHint = False
  end
  object DiffLabel: TLabel
    Left = 12
    Height = 18
    Top = 98
    Width = 147
    Caption = 'Difference from origin'
    ParentColor = False
  end
  object Label1: TLabel
    Left = 12
    Height = 18
    Top = 132
    Width = 130
    Caption = 'Difference at edge'
    ParentColor = False
  end
  object Label2: TLabel
    Left = 12
    Height = 18
    Top = 167
    Width = 85
    Caption = 'Radius (mm)'
    ParentColor = False
  end
  object Label3: TLabel
    Left = 12
    Height = 18
    Top = 202
    Width = 129
    Caption = 'Erode/dilate cycles'
    ParentColor = False
  end
  object AutoROIBtn: TSpeedButton
    Left = 56
    Height = 25
    Top = 304
    Width = 65
    Caption = 'Apply'
    Color = clBtnFace
    NumGlyphs = 0
    OnClick = AutoROIBtnClick
  end
  object CancelBtn: TSpeedButton
    Left = 120
    Height = 25
    Top = 304
    Width = 65
    Caption = 'Cancel'
    Color = clBtnFace
    NumGlyphs = 0
    OnClick = CancelBtnClick
  end
  object Label4: TLabel
    Left = 4
    Height = 18
    Top = 74
    Width = 79
    Caption = 'Constraints'
    ParentColor = False
  end
  object ExcludeBlackCheck: TCheckBox
    Left = 12
    Height = 21
    Top = 236
    Width = 230
    Caption = 'Zero intensity constrains edge'
    OnClick = AutoROIchange
    TabOrder = 0
  end
  object VarianceEdit: TSpinEdit
    Left = 173
    Height = 27
    Top = 90
    Width = 72
    MaxValue = 255
    OnChange = AutoROIchange
    TabOrder = 1
    Value = 16
  end
  object EdgeEdit: TSpinEdit
    Left = 173
    Height = 27
    Top = 126
    Width = 72
    MaxValue = 255
    OnChange = AutoROIchange
    TabOrder = 2
    Value = 16
  end
  object RadiusEdit: TSpinEdit
    Left = 173
    Height = 27
    Top = 161
    Width = 72
    MaxValue = 9999
    OnChange = AutoROIchange
    TabOrder = 3
    Value = 32
  end
  object ErodeEdit: TSpinEdit
    Left = 173
    Height = 27
    Top = 196
    Width = 72
    MaxValue = 12
    OnChange = AutoROIchange
    TabOrder = 4
  end
  object ROIconstraint: TComboBox
    Left = 12
    Height = 31
    Top = 268
    Width = 212
    ItemHeight = 0
    Items.Strings = (
      'Append to current VOI'
      'Delete from current VOI'
      'Constain with current VOI'
    )
    OnChange = AutoROIchange
    Style = csDropDownList
    TabOrder = 5
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 400
    OnTimer = Timer1Timer
    left = 40
    top = 34
  end
end