PC World Komputer 1998 April A/Pcwk4a98.iso/PROGRAM/DELPHI16/Format/MAIN.DFM/MAIN.txt

Text File | 1995-06-10 | 6KB | 227 lines

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