-
Notifications
You must be signed in to change notification settings - Fork 33
/
Copy pathintensityfilter.lfm
141 lines (141 loc) · 3.07 KB
/
intensityfilter.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
object IntensityFilterForm: TIntensityFilterForm
Left = 410
Height = 240
Top = 414
Width = 320
AutoSize = True
BorderWidth = 8
Caption = 'Drawing Intensity Filter'
ClientHeight = 240
ClientWidth = 320
OnShow = FormShow
LCLVersion = '2.3.0.0'
object RampAbove: TTrackBar
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 8
Height = 25
Top = 8
Width = 256
Max = 255
OnChange = RampChange
Position = 0
TickStyle = tsNone
Constraints.MinWidth = 256
TabOrder = 0
end
object ActionDrop: TComboBox
AnchorSideLeft.Control = RampAbove
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrBottom
Left = 8
Height = 20
Top = 102
Width = 256
BorderSpacing.Top = 4
Constraints.MinWidth = 256
ItemHeight = 26
ItemIndex = 0
Items.Strings = (
'Action: Add to Drawing'
'Action: Delete From Drawing '
)
OnChange = RampChange
Style = csDropDownList
TabOrder = 2
Text = 'Action: Add to Drawing'
end
object CancelBtn: TButton
Tag = 1
AnchorSideTop.Control = OKBtn
AnchorSideRight.Control = OKBtn
Left = 32
Height = 20
Top = 130
Width = 114
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Right = 4
Caption = 'Cancel'
Constraints.MinWidth = 114
ModalResult = 2
OnClick = CancelBtnClick
TabOrder = 3
end
object OKBtn: TButton
AnchorSideTop.Control = ActionDrop
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = RampAbove
AnchorSideRight.Side = asrBottom
Left = 150
Height = 20
Top = 130
Width = 114
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Top = 8
Caption = 'Apply'
Constraints.MinWidth = 114
ModalResult = 1
OnClick = OKBtnClick
TabOrder = 4
end
object RampBelow: TTrackBar
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = RampAbove
AnchorSideTop.Side = asrBottom
Left = 8
Height = 25
Top = 37
Width = 256
Max = 255
OnChange = RampChange
Position = 128
TickStyle = tsNone
BorderSpacing.Top = 4
Constraints.MinWidth = 256
TabOrder = 1
end
object Panel1: TPanel
AnchorSideLeft.Control = RampAbove
AnchorSideTop.Control = RampBelow
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = RampAbove
AnchorSideRight.Side = asrBottom
Left = 8
Height = 32
Top = 66
Width = 256
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
ClientHeight = 32
ClientWidth = 256
Constraints.MinHeight = 32
TabOrder = 5
object BackShape: TShape
Left = 1
Height = 30
Top = 1
Width = 254
Align = alClient
Brush.Color = clRed
Pen.Style = psClear
Pen.Width = 0
end
object FrontShape: TShape
Left = 64
Height = 30
Top = 1
Width = 65
Brush.Color = clSkyBlue
Pen.Style = psClear
end
end
object TimerROI: TTimer
Enabled = False
Interval = 400
OnTimer = TimerROITimer
Left = 25
Top = 171
end
end