home *** CD-ROM | disk | FTP | other *** search
- object SFXFormat: TSFXFormat
- Left = 4
- Top = 8
- BorderStyle = bsSingle
- Caption = 'Format Diskette'
- ClientHeight = 247
- ClientWidth = 221
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- Menu = MainMenu
- PixelsPerInch = 96
- OnCreate = FormCreate
- TextHeight = 13
- object Label1: TLabel
- Left = 12
- Top = 54
- Width = 76
- Height = 13
- Caption = 'Diskette Size'
- end
- object Label3: TLabel
- Left = 14
- Top = 8
- Width = 31
- Height = 13
- Caption = 'Drive'
- end
- object DisketteSize: TComboBox
- Left = 12
- Top = 68
- Width = 89
- Height = 20
- Hint = 'Density of diskette'
- DropDownCount = 4
- ItemHeight = 13
- Items.Strings = (
- '360 kb'
- '720 kb'
- '1.2 mb'
- '1.44 mb')
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- end
- object GroupBox1: TGroupBox
- Left = 10
- Top = 148
- Width = 195
- Height = 87
- Caption = 'Options'
- TabOrder = 4
- object Label2: TLabel
- Left = 8
- Top = 40
- Width = 73
- Height = 13
- Caption = 'Volume label'
- end
- object GraphicLight1: TGraphicLight
- Left = 156
- Top = 8
- ActiveLight = alGreen
- DarkLite = False
- HeavyLite = False
- end
- object GraphicLight2: TGraphicLight
- Left = 172
- Top = 8
- ActiveLight = alGray
- DarkLite = False
- HeavyLite = False
- end
- object VerifyCheckBox: TCheckBox
- Left = 8
- Top = 18
- Width = 97
- Height = 17
- Hint = 'Verify when formatting'
- Caption = 'Verify'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- end
- object VolumeLabelEdit: TEdit
- Left = 10
- Top = 56
- Width = 177
- Height = 20
- Hint = 'Diskette volume name'
- AutoSelect = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- end
- end
- object AboutBtn: TBitBtn
- Left = 112
- Top = 68
- Width = 89
- Height = 27
- Hint = 'Display About information'
- Caption = '&About'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- OnClick = AboutBtnClick
- Glyph.Data = {
- 90010000424D9001000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000000000000000000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777770077777
- 7777777778877777777777770FF07777777777778FF8777777777770FFFF0777
- 77777778FFFF877777777770FF08707777777778FF887877777777778FF00777
- 777777778FF88777777777770FF87777777777778FF877777777777778FF0777
- 7777777778FF87777777777700FF87777777777788FF877777777770780FF077
- 77777778788FF877777777770FFFF077777777778FFFF8777777777770FF0777
- 7777777778FF8777777777777700777777777777778877777777777777700777
- 777777777778877777777777770FF07777777777778FF87777777777770FF077
- 77777777778FF877777777777770077777777777777887777777000000000000
- 0000000000000000000000000000000000000000}
- NumGlyphs = 2
- end
- object CancelBtn: TBitBtn
- Left = 112
- Top = 38
- Width = 89
- Height = 27
- Hint = 'Exit'
- Caption = '&Cancel'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnClick = CancelBtnClick
- Kind = bkCancel
- end
- object DriveComboBox1: TDriveComboBox
- Left = 12
- Top = 22
- Width = 57
- Height = 19
- Hint = 'Drive to format'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- TextCase = tcUpperCase
- end
- object SOTBtn: TBitBtn
- Left = 12
- Top = 110
- Width = 89
- Height = 27
- Hint = 'Toggle Normal & StayOnTop Form Styles'
- Caption = 'StayOn&Top'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 5
- OnClick = SOTBtnClick
- end
- object HelpBtn: TBitBtn
- Left = 112
- Top = 100
- Width = 89
- Height = 27
- Hint = 'Display Format Help'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 6
- OnClick = HelpBtnClick
- Kind = bkHelp
- end
- object FormatBtn: TBitBtn
- Left = 112
- Top = 8
- Width = 89
- Height = 27
- Caption = '&Format'
- TabOrder = 7
- OnClick = FormatBtnClick
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
- 00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
- 00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
- 00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
- 00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
- 00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
- 00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
- 0003737FFFFFFFFF7F73300999999999003337777777777777330000}
- NumGlyphs = 2
- end
- object MainMenu: TMainMenu
- Left = 76
- Top = 6
- object FileMenu: TMenuItem
- Caption = '&File'
- object ExitItem: TMenuItem
- Caption = '&Exit'
- Hint = 'Exit program'
- OnClick = ExitItemClick
- end
- end
- object FormatItem: TMenuItem
- Caption = 'F&ormat'
- Hint = 'Format diskette'
- OnClick = FormatItemClick
- end
- object HelpMenu: TMenuItem
- Caption = '&Help'
- Hint = 'HelpAboutMenu'
- object N2: TMenuItem
- Caption = '&Contents'
- OnClick = N2Click
- end
- object AboutItem: TMenuItem
- Caption = '&About'
- Hint = 'Program information'
- OnClick = AboutItemClick
- end
- end
- end
- end
-