forked from neurolabusc/MRIcroGL10_OLD
-
Notifications
You must be signed in to change notification settings - Fork 0
/
mosaicprefs.lfm
executable file
·155 lines (155 loc) · 2.87 KB
/
mosaicprefs.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
object MosaicPrefsForm: TMosaicPrefsForm
Tag = 3
Left = 408
Height = 247
Top = 251
Width = 342
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Mosaic settings'
ClientHeight = 247
ClientWidth = 342
OnClose = FormClose
OnShow = FormShow
LCLVersion = '1.2.4.0'
object Label1: TLabel
Left = 24
Height = 16
Top = 16
Width = 56
Caption = 'Columns'
ParentColor = False
end
object Label2: TLabel
Left = 24
Height = 16
Top = 56
Width = 33
Caption = 'Rows'
ParentColor = False
end
object Label3: TLabel
Left = 24
Height = 16
Top = 85
Width = 71
Caption = 'Orientation'
ParentColor = False
end
object Label4: TLabel
Left = 24
Height = 16
Top = 160
Width = 71
Caption = 'Orientation'
ParentColor = False
end
object CopyScript: TSpeedButton
Left = 104
Height = 22
Top = 152
Width = 103
Caption = 'Copy Script'
OnClick = CopyScriptClick
end
object RunScript: TSpeedButton
Left = 215
Height = 22
Top = 152
Width = 103
Caption = 'Run Script'
OnClick = RunScriptClick
end
object RowOverlap: TTrackBar
Left = 184
Height = 32
Top = 48
Width = 150
Max = 9
Min = -9
OnChange = UpdateMosaic
Position = -3
TabOrder = 0
end
object ColOverlap: TTrackBar
Left = 184
Height = 33
Top = 0
Width = 150
Max = 9
Min = -9
OnChange = UpdateMosaic
Position = -1
TickMarks = tmTopLeft
TabOrder = 1
end
object ColEdit: TSpinEdit
Left = 112
Height = 16
Top = 8
Width = 72
MaxValue = 20
MinValue = 1
OnChange = UpdateMosaic
TabOrder = 2
Value = 3
end
object RowEdit: TSpinEdit
Left = 112
Height = 16
Top = 48
Width = 72
MaxValue = 20
MinValue = 1
OnChange = UpdateMosaic
TabOrder = 3
Value = 2
end
object OrientDrop: TComboBox
Left = 107
Height = 20
Top = 80
Width = 100
ItemHeight = 13
ItemIndex = 0
Items.Strings = (
'Axial'
'Coronal'
'Sagittal+'
'Sagittal-'
)
OnChange = UpdateMosaic
ReadOnly = True
Style = csOwnerDrawFixed
TabOrder = 4
Text = 'Axial'
end
object CrossCheck: TCheckBox
Left = 24
Height = 18
Top = 120
Width = 116
Caption = 'ShowCrossSlice'
OnChange = UpdateMosaic
TabOrder = 5
end
object LabelCheck: TCheckBox
Left = 152
Height = 18
Top = 120
Width = 138
Caption = 'Label slice number'
OnChange = UpdateMosaic
TabOrder = 6
end
object MosaicText: TMemo
Left = 8
Height = 56
Top = 184
Width = 320
Lines.Strings = (
'Memo1'
)
TabOrder = 7
end
end