source: oup/releases/0.18a/Unit1_main.dfm@ 381

object Form1: TForm1
  Left = 0
  Top = 0
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  AutoScroll = False
  Caption = 'Form1'
  ClientHeight = 544
  ClientWidth = 692
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = menu
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object statbar: TStatusBar
    Left = 0
    Top = 527
    Width = 692
    Height = 17
    BiDiMode = bdLeftToRight
    Panels = <
      item
        Text = 'Current .dat: -'
        Width = 500
      end
      item
        Text = 'Files: -'
        Width = 90
      end
      item
        Text = 'Extensions: -'
        Width = 100
      end>
    ParentBiDiMode = False
  end
  object fopen: TOpenDialog
    Filter = 'Oni-Dat-Files|*.dat|Oni-Sep-Files (MAC)|*.sep'
    Left = 480
  end
  object menu: TMainMenu
    AutoHotkeys = maManual
    Left = 592
    object menu_main: TMenuItem
      Caption = '&Main'
      object menu_loaddat: TMenuItem
        Caption = '&Select .dat-file ...'
        ShortCut = 16463
        OnClick = menu_loaddatClick
      end
      object menu_sep1: TMenuItem
        Caption = '-'
      end
      object menu_exit: TMenuItem
        Caption = '&Exit'
        OnClick = menu_exitClick
      end
    end
    object menu_extract: TMenuItem
      Caption = '&Extract/Convert'
      Enabled = False
      Visible = False
      object menu_extractfile: TMenuItem
        Caption = 'Convert and extract current &file'
      end
      object menu_extractlist: TMenuItem
        Caption = 'Convert and extract all files currently in &list'
      end
      object menu_extractall: TMenuItem
        Caption = 'Convert and extract &all files'
      end
    end
    object menu_tools: TMenuItem
      Caption = '&Tools'
      Enabled = False
      object menu_preview: TMenuItem
        Caption = '&Preview Window ...'
        ShortCut = 16464
        OnClick = menu_previewClick
      end
      object menu_binedit: TMenuItem
        Caption = '&Binary .dat editor ...'
        ShortCut = 16450
        OnClick = menu_bineditClick
      end
      object menu_txmpreplace: TMenuItem
        Caption = '&TXMP replacer ...'
        ShortCut = 16468
        OnClick = menu_txmpreplaceClick
      end
    end
    object menu_windows: TMenuItem
      Caption = '&Windows'
      object menu_windows_cascade: TMenuItem
        Caption = 'Cascade'
        OnClick = menu_windows_cascadeClick
      end
      object menu_windows_tile: TMenuItem
        Caption = 'Tile'
        OnClick = menu_windows_tileClick
      end
      object menu_windows_closeall: TMenuItem
        Caption = '&Close all'
        OnClick = menu_windows_closeallClick
      end
      object menu_sep3: TMenuItem
        Caption = '-'
      end
      object menu_windows_next: TMenuItem
        Caption = 'Next window'
        ShortCut = 16417
        OnClick = menu_windows_nextClick
      end
      object menu_windows_previous: TMenuItem
        Caption = 'Previous window'
        ShortCut = 16418
        OnClick = menu_windows_previousClick
      end
      object menu_sep2: TMenuItem
        Caption = '-'
      end
    end
  end
end