-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathImageToCDFormUnit.dfm
More file actions
262 lines (262 loc) · 5.47 KB
/
Copy pathImageToCDFormUnit.dfm
File metadata and controls
262 lines (262 loc) · 5.47 KB
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
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
object Form5: TForm5
Left = 170
Top = 120
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Write image to CDR/W'
ClientHeight = 390
ClientWidth = 557
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
DesignSize = (
557
390)
PixelsPerInch = 96
TextHeight = 13
object Device_Lbl: TLabel
Left = 8
Top = 22
Width = 82
Height = 13
Caption = 'Device selection:'
end
object DataWriteSpeed_Lbl: TLabel
Left = 8
Top = 340
Width = 60
Height = 13
Caption = 'Write speed:'
end
object ImageFileName_Lbl: TLabel
Left = 8
Top = 150
Width = 82
Height = 13
Caption = 'Image File Name:'
end
object Label3: TLabel
Left = 8
Top = 89
Width = 70
Height = 13
Caption = 'Lead-in format:'
end
object Label1: TLabel
Left = 8
Top = 286
Width = 111
Height = 13
Caption = 'Skip sector position file:'
end
object Label2: TLabel
Left = 128
Top = 340
Width = 51
Height = 13
Caption = 'Write type:'
end
object CD_dev_CB: TComboBox
Left = 8
Top = 40
Width = 457
Height = 21
Style = csDropDownList
Anchors = [akTop, akRight]
ItemHeight = 13
TabOrder = 0
OnChange = CD_dev_CBChange
end
object RescanBtn: TButton
Left = 476
Top = 40
Width = 73
Height = 25
Anchors = [akTop, akRight]
Caption = 'Rescan'
TabOrder = 1
OnClick = RescanBtnClick
end
object DataWriteSpeed_CB: TComboBox
Left = 8
Top = 356
Width = 113
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 2
OnChange = DataWriteSpeed_CBChange
end
object ImageNameEdit: TEdit
Left = 8
Top = 168
Width = 457
Height = 21
Anchors = [akTop, akRight]
TabOrder = 3
end
object ImageSaveAsBtn: TButton
Left = 476
Top = 168
Width = 73
Height = 25
Anchors = [akTop, akRight]
Caption = 'Browse'
TabOrder = 4
OnClick = ImageSaveAsBtnClick
end
object BTN_write: TButton
Left = 476
Top = 352
Width = 73
Height = 25
Anchors = [akTop, akRight]
Caption = 'Write'
TabOrder = 5
OnClick = BTN_writeClick
end
object ED_SSP_file_name: TEdit
Left = 8
Top = 304
Width = 457
Height = 21
Anchors = [akTop, akRight]
Enabled = False
TabOrder = 6
end
object BTN_browse_SSP: TButton
Left = 476
Top = 304
Width = 73
Height = 25
Anchors = [akTop, akRight]
Caption = 'Browse'
TabOrder = 7
OnClick = BTN_browse_SSPClick
end
object CB_lead_in_type: TComboBox
Left = 8
Top = 106
Width = 209
Height = 21
Style = csDropDownList
ItemHeight = 13
ItemIndex = 0
TabOrder = 8
Text = 'Assume audio CDDA (no scrambling)'
Items.Strings = (
'Assume audio CDDA (no scrambling)'
'Assume data CDROM (scrambling)'
'Same as track 1 entry in TOC')
end
object ED_start_LBA: TEdit
Left = 224
Top = 106
Width = 137
Height = 21
Enabled = False
TabOrder = 9
Text = '0'
OnExit = ED_start_LBAExit
OnKeyPress = ED_start_LBAKeyPress
end
object BTN_read_ATIP: TButton
Left = 296
Top = 136
Width = 65
Height = 25
Caption = 'Read ATIP'
Enabled = False
TabOrder = 10
OnClick = BTN_read_ATIPClick
end
object RG_ssp_method: TRadioGroup
Left = 8
Top = 200
Width = 457
Height = 57
Anchors = [akTop, akRight]
Caption = 'Sector skip method:'
Columns = 2
ItemIndex = 0
Items.Strings = (
'No skipping'
'1. Use write position parameter'
'2. Use sync cache')
TabOrder = 11
end
object CHK_show_all_CDROMs: TCheckBox
Left = 320
Top = 8
Width = 145
Height = 17
Anchors = [akTop, akRight]
Caption = 'Show all CDROM devices'
Color = clInactiveBorder
ParentColor = False
TabOrder = 12
OnClick = CHK_show_all_CDROMsClick
end
object CHK_specify_start_write: TCheckBox
Left = 224
Top = 80
Width = 137
Height = 17
Caption = 'Specify start pos (LBA):'
Color = clInactiveBorder
ParentColor = False
TabOrder = 13
OnClick = CHK_specify_start_writeClick
end
object BTN_set_PG1_at_0: TButton
Left = 224
Top = 136
Width = 65
Height = 25
Caption = 'PG1 at 0'
TabOrder = 14
OnClick = BTN_set_PG1_at_0Click
end
object CHK_test_write: TCheckBox
Left = 312
Top = 356
Width = 73
Height = 17
Caption = 'Test write'
Color = clInactiveBorder
ParentColor = False
TabOrder = 15
end
object CB_write_type: TComboBox
Left = 128
Top = 356
Width = 177
Height = 21
ItemHeight = 13
ItemIndex = 0
TabOrder = 16
Text = 'Raw DAO, raw sub mode'
Items.Strings = (
'Raw DAO, raw sub mode'
'Raw DAO, packed sub mode')
end
object OpenDialog1: TOpenDialog
Filter =
'All known types|*.DAO;*.LI;*.TU;*.TUI;*.TR|2448 byte binary file' +
' (*.DAO)|*.DAO|2448 byte lead-in TOC file (*.LI)|*.LI|96 byte le' +
'ad-in TOC unique deint file (*.TU)|*.TU|96 byte lead-in TOC uniq' +
'ue int file (*.TU)|*.TUI|96 byte lead-in TOC repeated deint file' +
' (*.TR)|*.TR|All files (*.*)|*.*'
Title = 'Open Image File'
Left = 424
Top = 104
end
end