unit1.dfm

DirectDisk for Win2000/NT allow you to directly access physical sectors from floppy, hard disks, l

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 706
  Height = 529
  Caption = 'DirectDisk for Win2000/NT'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001001010000001001800680300001600000028000000100000002000
    0000010018000000000000030000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000F28BFF7F3F7FE2E2E2E2E2E2E2E2E2
    E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E27F3F7FFF58FF0000000000
    00E6E6FF7F677FFFFFFFFFFFFFFFFFFF73587F67317F67317F73587FFFFFFFFF
    FFFFFFFFFF7F677FFF7FFF000000000000E6E6FF7F677FB4DAFFB4DAFF7F7F7F
    CE63FFCE63FFCE63FFCE63FF7F7F7FB4DAFFB4DAFF7F677FFF7FFF0000000000
    00E6E6FF7F677FB4DAFFB4DAFFBFBFBF7F7F7F7F7F7F7F7F7F7F7F7FBFBFBFB4
    DAFFB4DAFF7F677FFF7FFF000000000000E6E6FF7F677FFFFFFFFFFFFFBFBFBF
    BFBFBFFFFFFFFFFFFFBFBFBFBFBFBFFFFFFFFFFFFF7F677FFF7FFF0000000000
    00E6E6FF7F677FFFFFFFFFFFFF7F7F7F7F7F7FFFFFFFFFFFFF7F7F7F7F7F7FFF
    FFFFFFFFFF7F677FFF7FFF000000000000E6E6FF7F677FFFFFFFFFFFFFBFBFBF
    BFBFBFFFFFFFFFFFFFBFBFBFBFBFBFFFFFFFFFFFFF7F677FFF7FFF0000000000
    00E6E6FFBF9ABF7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
    7F7F7F7F7FBF9ABFFF7FFF000000000000E6E6FFFFCEFFFFCEFFFFCEFFFFCEFF
    FFCEFFFFCEFFFFCEFFFFCEFFFFCEFFFFCEFFFFCEFFFFCEFFFF7FFF0000000000
    00E6E6FFBF9ABF7F677F3F333F676767676767676767676767676767676767BF
    9ABFFFCEFFFFCEFFFF7FFF000000000000E6E6FF7F677FFFCEFF7F677FCECECE
    CECECECECECE676767314E676767677F677FFFCEFFFFCEFFFF7FFF0000000000
    00E6E6FF7F677FFFCEFF7F677FCECECECECECECECECE676767639CCE6767677F
    677FFFCEFFFFCEFFFF7FFF000000000000E6E6FF7F677FFFCEFF7F677FCECECE
    CECECECECECE676767639CCE6767677F677FFFCEFFFFCEFFFF7FFF0000000000
    00DAF2FF73737FE6E6FF73737FE2E6E6E2E6E6E2E6E6AFB3B37B7F7FAFB3B333
    3F3FE6E6FFE6E6FFB37FBF606060000000000000000000000000000000000000
    0000000000000000000000000000003F3F3F0000000000006060600000008001
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000080010000}
  Menu = MainMenu1
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object HexEditor1: THexEditor
    Left = 0
    Top = 65
    Width = 698
    Height = 399
    Cursor = crIBeam
    BytesPerColumn = 2
    OnStateChanged = HexEditor1StateChanged
    Translation = ttAnsi
    CreateBackup = False
    BackupExtension = '.bak'
    Align = alClient
    OffsetDisplay = odHex
    BytesPerLine = 16
    Colors.Background = 16777166
    Colors.PositionBackground = clMaroon
    Colors.PositionText = clWhite
    Colors.ChangedBackground = 11075583
    Colors.ChangedText = clMaroon
    Colors.CursorFrame = clNavy
    Colors.Offset = clBlack
    Colors.OddColumn = clBlue
    Colors.EvenColumn = clNavy
    FocusFrame = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Courier New'
    Font.Style = []
    OffsetSeparator = ':'
    NoSizeChange = True
    TabOrder = 0
    OnExit = HexEditor1Exit
    ColWidths = (
      28
      7
      7
      7
      7
      14
      7
      7
      7
      14
      7
      7
      7
      14
      7
      7
      7
      14
      7
      7
      7
      14
      7
      7
      7
      14
      7
      7
      7
      14
      7
      7
      7
      14
      7
      7
      7
      7
      7
      7
      7
      7
      7
      7
      7
      7
      7
      7
      7
      7
      7)
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 698
    Height = 65
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object Label1: TLabel
      Left = 200
      Top = 8
      Width = 34
      Height = 13
      Caption = 'Sector:'
    end
    object Label2: TLabel
      Left = 16
      Top = 8
      Width = 28
      Height = 13
      Caption = 'Drive:'
    end
    object Edit1: TEdit
      Left = 200
      Top = 24
      Width = 81
      Height = 21
      TabOrder = 0
      Text = '0'
    end
    object Button1: TButton
      Left = 288
      Top = 24
      Width = 75
      Height = 25
      Caption = 'Read'
      TabOrder = 1
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 368
      Top = 24
      Width = 75
      Height = 25
      Caption = 'Write'
      TabOrder = 2
      OnClick = Button2Click
    end
    object ComboBox1: TComboBox
      Left = 16
      Top = 24
      Width = 169
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 3
      OnChange = ComboBox1Change
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 464
    Width = 698
    Height = 19
    Panels = <
      item
        Width = 50
      end
      item
        Width = 200
      end
      item
        Width = 50
      end>
  end
  object MainMenu1: TMainMenu
    Left = 128
    Top = 96
    object File1: TMenuItem
      Caption = '&File'
      object Safetylock1: TMenuItem
        Caption = 'Safety lock'
        Checked = True
        OnClick = Safetylock1Click
      end
      object Openfromfile1: TMenuItem
        Caption = '&Open from file...'
        ShortCut = 16463
        OnClick = Openfromfile1Click
      end
      object SaveEditorToFile1: TMenuItem
        Caption = '&Save to file..'
        ShortCut = 16467
        OnClick = SaveEditorToFile1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = '&Exit'
        OnClick = Exit1Click
      end
    end
    object Edit2: TMenuItem
      Caption = '&Edit'
      object Undo1: TMenuItem
        Caption = '&Undo'
        ShortCut = 16474
        OnClick = Undo1Click
      end
      object Fillselection1: TMenuItem
        Caption = '&Fill selection'
        OnClick = Fillselection1Click
      end
      object Selectall1: TMenuItem
        Caption = '&Select all'
        OnClick = Selectall1Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      object About1: TMenuItem
        Caption = '&About'
        OnClick = About1Click
      end
    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '.bin'
    Filter = 'Binary file (*.bin)|*.bin|Any file (*.*)|*.*'
    InitialDir = '.'
    Left = 160
    Top = 96
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = '.bin'
    Filter = 'Binary file (*.bin)|*.bin|Any file (*.*)|*.*'
    InitialDir = '.'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 192
    Top = 96
  end
end