-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathfrmDiskMgmt.dfm
190 lines (190 loc) · 4.05 KB
/
frmDiskMgmt.dfm
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
object fDiskMgmt: TfDiskMgmt
Left = 281
Top = 125
BorderIcons = [biSystemMenu]
Caption = 'Disk Management'
ClientHeight = 470
ClientWidth = 538
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel2: TPanel
Left = 0
Top = 384
Width = 538
Height = 86
Align = alBottom
TabOrder = 0
object Label3: TLabel
Left = 208
Top = 33
Width = 49
Height = 13
Caption = 'Valid Data'
end
object Label4: TLabel
Left = 209
Top = 54
Width = 50
Height = 13
Caption = 'Strip Bytes'
end
object Button1: TButton
Left = 8
Top = 56
Width = 75
Height = 25
Caption = 'OK'
ModalResult = 1
TabOrder = 0
end
object Button2: TButton
Left = 96
Top = 56
Width = 75
Height = 25
Cancel = True
Caption = 'Cancel'
ModalResult = 2
TabOrder = 1
end
object Button3: TButton
Left = 392
Top = 33
Width = 129
Height = 48
Caption = 'Extract from Disk Image'
TabOrder = 2
OnClick = Button3Click
end
object ComboBox1: TComboBox
Left = 208
Top = 6
Width = 313
Height = 21
TabOrder = 3
Text = 'No Strip'
OnSelect = ComboBox1Select
Items.Strings = (
'No Strip'
'______80DS _____________ (Filesize=798KB)'
'5_25 360Kb DSDD 300 - NB200 (Filesize=380KB)'
'5_25 320Kb DSDD 300 - NB200 (Filesize=360KB)'
'5_25 320Kb SSDD 300 - NB400 (Filesize=360KB)')
end
object vd: TEdit
Left = 264
Top = 33
Width = 76
Height = 21
Alignment = taRightJustify
TabOrder = 4
Text = '0'
end
object sd: TEdit
Left = 264
Top = 52
Width = 76
Height = 21
Alignment = taRightJustify
TabOrder = 5
Text = '0'
end
end
object Panel3: TPanel
Left = 0
Top = 0
Width = 273
Height = 384
Align = alLeft
TabOrder = 1
object Label1: TLabel
Left = 1
Top = 1
Width = 271
Height = 37
Align = alTop
Alignment = taCenter
Caption = 'Disk A'
Color = clTeal
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
OnClick = Label1Click
ExplicitWidth = 100
end
object lb1: TListBox
Left = 1
Top = 38
Width = 271
Height = 345
Hint = 'Dbl Click to Select & Close'
Align = alClient
ItemHeight = 13
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnDblClick = lb1DblClick
end
end
object Panel4: TPanel
Left = 273
Top = 0
Width = 273
Height = 384
Align = alLeft
TabOrder = 2
object Label2: TLabel
Left = 1
Top = 1
Width = 271
Height = 37
Align = alTop
Alignment = taCenter
Caption = 'Disk B'
Color = clOlive
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
OnClick = Label2Click
ExplicitWidth = 99
end
object lb2: TListBox
Left = 1
Top = 38
Width = 271
Height = 345
Hint = 'Dbl Click to Select & Close'
Align = alClient
ItemHeight = 13
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnDblClick = lb1DblClick
end
end
object CPMdskimage: TOpenDialog
DefaultExt = '*.img'
Filter = 'IMG|*.img|DSK|*.dsk'
Options = [ofHideReadOnly, ofNoChangeDir, ofPathMustExist, ofFileMustExist, ofNoNetworkButton, ofOldStyleDialog, ofEnableSizing]
Left = 361
Top = 224
end
end