source: branches/ByteArray/Forms/FormScreen.lfm

object FormScreen: TFormScreen
  Left = 814
  Height = 676
  Top = 382
  Width = 931
  Caption = 'Screen'
  ClientHeight = 676
  ClientWidth = 931
  DesignTimePPI = 144
  Menu = MainMenu1
  OnClose = FormClose
  OnShow = FormShow
  LCLVersion = '3.4.0.0'
  object Image1: TImage
    Left = 0
    Height = 676
    Top = 0
    Width = 931
    Align = alClient
    Center = True
    Proportional = True
    Stretch = True
  end
  object TimerDraw: TTimer
    Interval = 50
    OnTimer = TimerDrawTimer
    Left = 549
    Top = 144
  end
  object MainMenu1: TMainMenu
    Left = 371
    Top = 119
    object MenuItem4: TMenuItem
      Caption = 'File'
      object MenuItem6: TMenuItem
        Action = Core.AExit
      end
    end
    object MenuItem2: TMenuItem
      Caption = 'Tools'
      object MenuItem10: TMenuItem
        Action = Core.ASettings
      end
      object Separator2: TMenuItem
        Caption = '-'
      end
      object MenuItem3: TMenuItem
        Action = Core.ASourceEditor
      end
      object MenuItem5: TMenuItem
        Action = Core.ADebugger
      end
      object MenuItem8: TMenuItem
        Action = Core.ADisassembler
      end
    end
    object MenuItem13: TMenuItem
      Caption = 'Execution'
      object MenuItem14: TMenuItem
        Action = Core.APowerOn
      end
      object MenuItem15: TMenuItem
        Action = Core.APowerOff
      end
      object MenuItem16: TMenuItem
        Action = Core.ARestart
      end
    end
    object MenuItem1: TMenuItem
      Caption = 'View'
      object MenuItemViewConsole: TMenuItem
        Action = Core.AConsole
      end
      object MenuItemViewStorage: TMenuItem
        Action = Core.AStorage
      end
      object MenuItem7: TMenuItem
        Action = Core.AMemory
      end
      object Separator1: TMenuItem
        Caption = '-'
      end
      object MenuItem9: TMenuItem
        Action = Core.AFullscreen
      end
    end
    object MenuItem11: TMenuItem
      Caption = 'Help'
      object MenuItem12: TMenuItem
        Action = Core.AAbout
      end
    end
  end
end