-
Notifications
You must be signed in to change notification settings - Fork 5
/
Copy pathFormD64ExplorerNewDisk.lfm
254 lines (254 loc) · 10.2 KB
/
FormD64ExplorerNewDisk.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
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
object D64ExplorerNewDiskForm: TD64ExplorerNewDiskForm
Left = 658
Height = 219
Top = 353
Width = 339
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'New Disk...'
ClientHeight = 219
ClientWidth = 339
Position = poMainFormCenter
LCLVersion = '2.0.10.0'
object Panel1: TPanel
Left = 0
Height = 56
Top = 0
Width = 339
Align = alTop
BevelOuter = bvNone
ClientHeight = 56
ClientWidth = 339
Color = clWindow
ParentColor = False
TabOrder = 0
OnPaint = Panel1Paint
object Image1: TImage
Left = 3
Height = 52
Top = 2
Width = 45
Align = alLeft
BorderSpacing.Left = 3
BorderSpacing.Top = 2
Picture.Data = {
1754506F727461626C654E6574776F726B47726170686963300D000089504E47
0D0A1A0A0000000D49484452000000300000003008060000005702F987000001
85694343504943432070726F66696C65000028917D913D48C35014854F53A522
15050B8A3864A84E1644451DA58A45B050DA0AAD3A98BCF40F9A3424292E8E82
6BC1C19FC5AA838BB3AE0EAE8220F803E2E6E6A4E82225DE97145AC478C3231F
E7DD7378EF3E40A897996A768C03AA6619C95854CC6457C5C02B7CF4F5610033
1233F5786A310DCFFABAA75EAABB08CFF2EEFBB37A949CC9009F483CC774C322
DE209EDEB474CEFBC421569414E273E231830E48FCC875D9E537CE0587059E19
32D2C979E210B1586863B98D59D15089A788C38AAA51BE907159E1BCC5592D57
59F39CFC86C19CB692E23AAD61C4B08438121021A38A12CAB010A1BF468A8924
ED473DFC438E3F412E995C2530722CA0021592E3077F83DFB335F393136E5230
0A74BED8F6C70810D8051A35DBFE3EB6EDC609E07F06AEB496BF5207663F49AF
B5B4F011D0BB0D5C5CB734790FB8DC01069F74C9901CC94F4BC8E781F7337AA6
2CD07F0B74AFB9736BEEE3F40148D3AC966F80834360B440D9EB1EF7EE6A9FDB
BF3DCDF9FD007C1372AB9940ABDC000000097048597300000B1300000B130100
9A9C180000000774494D4507E5010A102B30940F87F00000001D74455874436F
6D6D656E7400437265617465642077697468205468652047494D50EF64256E00
000B154944415468DEED995B6C5CD77586BF7D2E331C922629531249C9922851
B224079175A9EB16496427B5621B6E12A741032389D187A440D00BFA52044D0A
34401FFAD23E0686DD36450007690B47729DA45503248E6CB60E6CCB8EA2D6A6
1349964DDBBA53BCCE70CE397BAFD587B3E7EA2135920B38287A88C37366E690
B3FEBDFEF5AF7FEF0DFF7FBCBF8759E1FD7EA0F02B126305A85E0F80BF2C95FA
BE1686914141BBFD1A6DB9600CE6DE7B3FCED4D4146FBC31ADC618E238324160
A8565305181FDF6CB66CDECCB16726D518838833434383CCCF2F608CD1388ECC
9D77DE511918E8FFEAE1C347BE4187703A0138F6377FFD93BB76EFBE1B555021
BF2A48D3EBDABD48ED5E11554414156571E969FEE88F3F4EB95C6672F2659E3C
72823FFBEA6F333CBC86C3877FC27FFDBCCA9F7EE5C30CDC54E26FFFEE285767
623EF5E03646D6DFCC91278FB1B81071CFA1EDAC5933C0F1E3C7D3871FFEE23E
E0149035071B751ACC34854AB911780B805AE0B5F704540511695C459899B124
49425F5F1FF7DDF711B66F1F637C7C0BC6383EFFB9DFE21F8323AC1D1E22CD12
EEF8B531060687191DB9992CCBD8BF7F1B1BC6C6702EC53ACBA95F9E06F832F0
57C0C5E64C442B324261FD088C8EE64F1B93075BA74A333831180970A2386700
C3DCFC1E269F7D8E7B0E7D1480898909542DC6287121E6FEFB0F21E24061FBF6
1D148A45D27419116164FD5AC0A1AA5CBE7C99C71FFF0EC03AA0E859B33A00F5
DC1F1C849DBBBAE0BE33A803270667C1892232C4F197E0C48997D8BB773FC628
D666180C8AD2D7DB83730E55A1A754C26609AA4AB95CA1508C112794CB151E7B
EC9B9C7DE3CD14B8E0830F00A97D7DB05250B5D1BDE6219DABEACA952B54AACB
9C3B779177DE9E46C512C711E54A85344949D33261F40F44E137C89297C9AC65
69B14C5C8801C832CB9BD3EF70F0E05DDC7FFF7D00973B7DFDCA19F05CEFEA10
10951C8C82517875EA55EE7DE0106198675C447136A3D4B340921EA6A7679688
37B199A5189DC1A5A3F4F7EE22B11F4225222E1876EE9C6062620B83037DFD47
8FFEFB2D40DCFED5C14AACD06E2454FD696A2F05F5BFE33862E6CA05508BAA05
2C2A82B547E88D4E52D069245544C0684AD19C25703FC06533A85A6C96202264
69CAE4E47F2A703B30707D19D05C912E5D6AA357EDDE816A2E9BE2045110C983
1A1DBD83471E79842F3CFC3B8C8DAE278A22B22C4335208A1411C92557359766
01EB146B1394942CB32C2D95F9B7A33FE4D1C7FEDE01B39D1ADAAA0000E21846
46562A5E408C0FDAE044109717F1F32F1EE78B5FFA3C23EB87A95697A92655A2
E859FA7A5EC2259E5222BEE0F33308A0183FCAECC21FA25AA4B7B7C4A71FFC04
7DBDA5E06B7FFEF5D3D70740F218AD85AB57DB0A5A0151FF9CE6FAEF246F6A3E
03F30BCB0C0DF6916609411050880B044115BB6C7DEF502FBB929F92FF8FE5A5
0A6118624C8C73165161E3C60D01B013E8ED1A80283807610037F5B77E9673DF
E4C52B79E0EA83CF8352764CECE0A9A78E323EBE91B5EBD6B176781DAABB08EC
2471BCD878BE06C00949AA54ED43144B0358E758582C73FCF84B7CFBDBDF11DF
07FABA03E0ED82F14092D42B522D7814FC288A28A2827A4AA8A7C39A35638466
907225E3D635C380A0DC42A20730F6C74D803D002B649950288E635D8AB38EBE
DE126B876FE6E2858BCBC0CF80B9AE544868781B5CCE75233920532BDA26FBA0
AAA86F1EEACF77DE9966E3A621F6EEBD0D27296996525E5AA252BE95C5C51EE6
E685E5AAC5668E2411CA15C7ECC27EAA892149129C389CB3ECD831C1171EFE5C
01B80AA45D6520D7F57C940D8638ACD147BC0AE541D6463E0F5A7046EBDC7EED
B59F73F73D07C8D21455A5B2BC8CAAD253DC4466BF42542A505EFA2159F579AC
DE43A1B48B527F842A24CB15B234230C43541593C7B9DB5B896B03C8E5505005
9BC1C282FADA55DFA5C5F7899A0CE6FAEF9C7883A7DCBEF723FCF8473F62F396
11C6C7371385014114221A604C8124B554B3DFA4503A486822AC4D107564694A
14451863B87CF90ADFFAD6E37CFFFBFF6A81B01363562862AD07690C0CDE046A
A4FE199233BA461F91FC33E7F222714EE8EBEDA5AFB78F4D9B361347F94866A9
258C824693B296300A114910E710716499C504065565CDD0109F7EF0931C3B36
B934373777B27B19F5EA622D248972E952DE65EB00EA20B5A96FD4F4DCA10A17
2F5D64CDF00085D860AD25CB32CEBC3ECDAD3BB6E244282F9529140A386B2957
2AC4710CAA98C030FDE65B6CD838868AB0F1960D3CF4D067FA1E7DF49B9D9CD7
CA14523FAA5168181BD5067DFC55B401A85107BE41A9E3D5A957F8E0DE5D586B
592A9739FCDD7FA1D85362EBD64D24D584279E38CCEF7EF6338461C8EB67CEB2
B0B0C8BE7D7B10518E3CF93D0E1CD8C7FEFDB7638C61DFBEBD05E083404F9714
12441D607092E3566F206A74A9F35F1B055D3375AA4A6F6F2FAFBCF2DFCCCFCD
73F8C8534C4DFD828F7DF4633C73EC3F78E1851779FAE967181C1A627CCB66FE
E99F9FE0FCF94B7CF2130FA0EA78F6D917387B36E6B5A9CB7CE003EB595C5A02
D8040C755D0322C22F4EC1EB6F34686320D752AD9734A0185504E38BB926C107
3877EE973CF7D349CA4B43DC75F04FD8B6F5379899C948D332070FEE617E6E37
DF7DF1A75C381FB3F3D6CF3237BB83D3679E67D7CE079898B89B382EF2175FFF
3DAAD5C5ABC025C0765903B9C657AB50ADD23697D61657A74D53B44656F2BAE8
EFDFCA873FF4659C538AC53E8C09890361F7EE07A929C46DB78DB16DDB210A85
7EC22062F7EE319CB3446101514B14F5008BE781677C2FE8A6067285E96C419B
24B51EB87FC747AE5EA18C0928956EF66A950F0A0A6118D79B601C9788A2A277
A6421416088238FF1B3198DCAA5B60C9DBC72E6B40A46DC4697174DA9209FFAA
250B0D996D4CFA7DF3D3A60E5E53B3A68EDE50B86B4F4A56A5D0BB00B481D176
00CD5F5E0BBC1948CD7A483B406D03A32D327DDD000469B10DA6D3A8AF00A29D
46DAE49D9A33F2EE2C35DDFBB9A9AA5E7356B88217D2960CA8B613A743216B6B
AFE8189CB46545E49A99B8B10CD4FE79270A2924E91C8B8BD375496DEDD21E70
5310D2E2541B5EAAE6B79A2926FEB9DEDE11A2A88F6B15C1CA7DA0A6422D69CC
EF66674FF3FB5FDA431C99561B5D37775A1FE5DA7C219FB1B59E274F5EE5D5A9
DCF14A1B8DA2A874E335A06D146A5C3CCF51E6E72E239A72E58AE1CCEB731813
01CAD050C0B6AD8596D1AC35C6DAB52699CB5547B1384210444D96247FCE1843
66D31B2DE2560E6A3BE7457192BBC7AB57034E9F56D60EDF82A2DCD4EF509DC9
67676DC1B703690EB89E41FFD32EDBD759C452F7F89DBAAEA878EF9F2FA51813
128451EE264D6EA75B02ADFB25AD17AE8878B5D38E8AD43A70D75DC4BE0656C8
404E03878A235F9FADF58D7C8E2B227EDDB3DDF03501F02B072A8A9A772B51B3
75BF8122EEA0426DCD2A5FC812444D1315F226E89C6B19F91610D23A11EAD495
DF33006A2344873AF0A3E8EAFB01A6AE36F91A6843653A016807B1D269E86E7D
737533A7DA310BCD1B1A2A413D20B4B15AB11A801A8564352B61DE430D28AB53
48445B77646814BD4A77009A6DF7BB82AF2F1EE83541ACBEACD2E6F5EBF7F525
15A1A7E4D8BB6703711C02CABA753D7EAF4C1A41B202803A95A40D00ED35A0D7
03E0C289934F317261AAE1FDDB8BC9A49C3A7500154BBEFB582149F3C7A7DF12
D224AD1B316DDA2DD126C3A7AA9C3B5F667E2EC50461E339BF5E3F3FFF36B3B3
6F9124E5DA7C40BBDDA5DC0AFC81BF6E0236FB7DE3E03DEEF7EA0DFEDD227002
38021C05CE374F6C56DAE80EFD62EAAF037702A3FEBDF7038005DE069E035EF6
FB04722D0006287910237E59DBBC4F3BF50294FDC8CF0049F360AC1654E06B24
FE5FA0CF7B3D9CDFE0B6ED99EC66540DBF1A87F27FF1F81FFD8E7F13F76CE287
0000000049454E44AE426082
}
end
object Bevel1: TBevel
Left = 0
Height = 2
Top = 54
Width = 339
Align = alBottom
Shape = bsBottomLine
end
object Label1: TLabel
Left = 51
Height = 15
Top = 6
Width = 196
Caption = 'Create && Format a New Disk Image'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
end
object Label2: TLabel
Left = 6
Height = 15
Top = 64
Width = 52
Caption = 'Disk Type:'
ParentColor = False
end
object ComboBox1: TComboBox
Left = 83
Height = 23
Top = 64
Width = 245
ItemHeight = 15
ItemIndex = 3
Items.Strings = (
'1541 Format 5 1/4"'
'1571 Single Side 5 1/4"'
'1571 Double Side 5 1/4"'
'1581 Format 3 1/2"'
)
TabOrder = 1
Text = '1581 Format 3 1/2"'
end
object Label3: TLabel
Left = 6
Height = 15
Top = 96
Width = 60
Caption = 'Disk Name:'
ParentColor = False
end
object Edit1: TEdit
Left = 83
Height = 23
Top = 96
Width = 246
MaxLength = 16
TabOrder = 2
end
object Label4: TLabel
Left = 6
Height = 15
Top = 128
Width = 38
Caption = 'Disk Id:'
ParentColor = False
end
object Edit2: TEdit
Left = 83
Height = 23
Top = 128
Width = 117
MaxLength = 2
TabOrder = 3
end
object Button1: TButton
Left = 173
Height = 25
Top = 186
Width = 75
Cancel = True
Caption = '&Cancel'
ModalResult = 2
TabOrder = 5
end
object Button2: TButton
Left = 256
Height = 25
Top = 186
Width = 75
Caption = '&OK'
Default = True
ModalResult = 1
TabOrder = 6
end
object CheckBox1: TCheckBox
Left = 83
Height = 19
Top = 160
Width = 20
TabOrder = 4
end
object Label5: TLabel
Left = 6
Height = 15
Top = 160
Width = 32
Caption = 'GEOS:'
ParentColor = False
end
end