object GUIForm: TGUIForm
  Left = 2434
  Height = 668
  Top = 239
  Width = 1014
  AlphaBlendValue = 128
  Caption = 'microM8 GUI'
  ClientHeight = 648
  ClientWidth = 1014
  Constraints.MinWidth = 1014
  DoubleBuffered = False
  Menu = MainMenu1
  OnChangeBounds = FormChangeBounds
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  OnHide = FormHide
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnKeyUp = FormKeyUp
  OnMouseDown = FormMouseDown
  OnMouseUp = FormMouseUp
  OnResize = FormResize
  OnShow = FormShow
  OnUTF8KeyPress = FormUTF8KeyPress
  OnWindowStateChange = FormWindowStateChange
  ParentDoubleBuffered = False
  LCLVersion = '2.0.0.4'
  object StatusBar1: TStatusBar
    Left = 0
    Height = 23
    Top = 625
    Width = 1014
    Panels = <>
  end
  object ToolBar1: TToolBar
    Left = 0
    Height = 36
    Top = 0
    Width = 1014
    ButtonHeight = 32
    ButtonWidth = 32
    Caption = 'ToolBar1'
    Images = ToolbarIcons
    TabOrder = 1
    OnMouseDown = FormMouseDown
    OnMouseUp = FormMouseUp
    object tbTintMode: TToolButton
      Left = 1
      Hint = 'Tint mode'
      Top = 2
      Caption = 'tbTintMode'
      ImageIndex = 0
      OnClick = tbTintModeClick
      ParentShowHint = False
      ShowHint = True
    end
    object tbRMVoxels: TToolButton
      Tag = 1
      Left = 549
      Hint = 'Voxel Render'
      Top = 2
      Caption = 'Voxels'
      Down = True
      Grouped = True
      ImageIndex = 4
      OnClick = tbRMClick
      ParentShowHint = False
      PopupMenu = RecordingMenu
      ShowHint = True
      Style = tbsCheck
    end
    object tbRMDots: TToolButton
      Left = 585
      Hint = 'Dot Render'
      Top = 2
      Caption = 'Dots'
      Grouped = True
      ImageIndex = 5
      OnClick = tbRMClick
      ParentShowHint = False
      ShowHint = True
      Style = tbsCheck
    end
    object tbRMRaster: TToolButton
      Tag = 2
      Left = 621
      Hint = 'Raster Render'
      Top = 2
      Caption = 'Raster'
      Grouped = True
      ImageIndex = 6
      OnClick = tbRMClick
      ParentShowHint = False
      ShowHint = True
      Style = tbsCheck
    end
    object tbRMColor: TToolButton
      Left = 657
      Hint = 'Toggle Color/Mono'
      Top = 2
      Caption = 'tbRMColor'
      ImageIndex = 7
      OnClick = tbRMColorClick
      ParentShowHint = False
      ShowHint = True
    end
    object tbRECState: TToolButton
      Left = 725
      Hint = 'Start Recording'
      Top = 2
      Caption = 'tbRECState'
      DropdownMenu = RecordingMenu
      ImageIndex = 9
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton5: TToolButton
      Left = 761
      Hint = 'Rewind'
      Top = 2
      Caption = 'ToolButton5'
      ImageIndex = 12
      OnClick = miRECRewindClick
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton6: TToolButton
      Left = 797
      Hint = 'Forwards'
      Top = 2
      Caption = 'ToolButton6'
      ImageIndex = 13
      OnClick = miRECPlayClick
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton7: TToolButton
      Left = 833
      Hint = 'Resume'
      Top = 2
      Caption = 'ToolButton7'
      ImageIndex = 14
      OnClick = miRECResumeClick
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton8: TToolButton
      Left = 869
      Hint = 'Stop Recording'
      Top = 2
      Caption = 'ToolButton8'
      ImageIndex = 15
      OnClick = miRECStopClick
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton9: TToolButton
      Left = 905
      Hint = 'Pause'
      Top = 2
      Caption = 'ToolButton9'
      ImageIndex = 16
      OnClick = ToolButton9Click
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton10: TToolButton
      Left = 693
      Top = 2
      Caption = 'ToolButton10'
      Enabled = False
      OnMouseDown = FormMouseDown
      OnMouseUp = FormMouseUp
    end
    object tbJoystickAxisSwitch: TToolButton
      Left = 37
      Hint = 'Swap Joystick Axis'
      Top = 2
      Caption = 'tbJoystickAxisSwitch'
      ImageIndex = 21
      OnClick = tbJoystickAxisSwitchClick
      ParentShowHint = False
      ShowHint = True
    end
    object tbCapsMode: TToolButton
      Left = 73
      Hint = 'Toggle CAPS mode'
      Top = 2
      Caption = 'tbCapsMode'
      ImageIndex = 17
      OnClick = tbCapsModeClick
      ParentShowHint = False
      ShowHint = True
    end
    object tbScanlines: TToolButton
      Left = 109
      Hint = 'Toggle Interlacing'
      Top = 2
      Caption = 'tbScanlines'
      ImageIndex = 19
      OnClick = tbScanlinesClick
      ParentShowHint = False
      ShowHint = True
    end
    object tbWebDebugger: TToolButton
      Left = 145
      Hint = 'Web Debugger'
      Top = 2
      Caption = 'tbWebDebugger'
      ImageIndex = 28
      OnClick = miToolsWebDebuggerClick
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton15: TToolButton
      Left = 181
      Top = 2
      Caption = 'ToolButton15'
      Enabled = False
    end
    object tbVolDown: TToolButton
      Left = 213
      Hint = 'Volume Down'
      Top = 2
      Caption = 'tbVolDown'
      ImageIndex = 23
      OnClick = tbVolDownClick
      ParentShowHint = False
      ShowHint = True
    end
    object tbMasterVolume: TTrackBar
      Left = 249
      Height = 32
      Top = 2
      Width = 64
      OnChange = tbMasterVolumeChange
      Position = 0
      ScalePos = trBottom
      TabStop = False
      TickMarks = tmBoth
      TickStyle = tsManual
      OnKeyDown = FormKeyDown
      OnKeyUp = FormKeyUp
      TabOrder = 0
    end
    object tbVolUp: TToolButton
      Left = 313
      Hint = 'Volume Up'
      Top = 2
      Caption = 'tbVolUp'
      ImageIndex = 24
      OnClick = tbVolUpClick
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton3: TToolButton
      Left = 349
      Top = 2
      Caption = 'ToolButton3'
      Enabled = False
    end
    object tbSpeedDown: TToolButton
      Left = 381
      Hint = 'CPU Speed Down'
      Top = 2
      Caption = 'tbSpeedDown'
      ImageIndex = 25
      OnClick = tbSpeedDownClick
      ParentShowHint = False
      ShowHint = True
    end
    object TrackBar2: TTrackBar
      Left = 417
      Height = 32
      Top = 2
      Width = 64
      Max = 4
      OnChange = TrackBar2Change
      Position = 0
      ScalePos = trBottom
      TabStop = False
      TickMarks = tmBoth
      TickStyle = tsManual
      OnKeyDown = FormKeyDown
      OnKeyUp = FormKeyUp
      TabOrder = 1
    end
    object tbSpeedUp: TToolButton
      Left = 481
      Hint = 'CPU Speed Up'
      Top = 2
      Caption = 'tbSpeedUp'
      ImageIndex = 26
      OnClick = tbSpeedUpClick
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton18: TToolButton
      Left = 517
      Top = 2
      Caption = 'ToolButton18'
      Enabled = False
    end
    object ToolButton1: TToolButton
      Left = 941
      Top = 2
      Caption = 'ToolButton1'
      Enabled = False
    end
    object tbFullscreen: TToolButton
      Left = 973
      Hint = 'Fullscreen'
      Top = 2
      Caption = 'tbFullscreen'
      ImageIndex = 29
      OnClick = tbFullscreenClick
      ParentShowHint = False
      ShowHint = True
    end
  end
  object pnlContainer: TPanel
    Left = 0
    Height = 589
    Top = 36
    Width = 1014
    Align = alClient
    BevelOuter = bvNone
    ClientHeight = 589
    ClientWidth = 1014
    Color = clAqua
    ParentColor = False
    TabOrder = 2
    object sidecarPanel: TPanel
      Left = 844
      Height = 589
      Top = 0
      Width = 170
      Align = alRight
      BevelOuter = bvNone
      Caption = 'sidecarPanel'
      ClientHeight = 589
      ClientWidth = 170
      Color = clBlack
      ParentColor = False
      TabOrder = 0
      object Image1: TImage
        Left = 0
        Height = 589
        Top = 0
        Width = 170
        Align = alClient
        OnClick = Image1Click
        OnDblClick = Image1DblClick
        OnDragDrop = Image1DragDrop
        OnMouseDown = Image1MouseDown
        OnMouseUp = Image1MouseUp
        Picture.Data = {
[encoded data, 380700 characters]
          454E44AE426082
        }
        Stretch = True
      end
    end
    object embedPanel: TPanel
      Left = 0
      Height = 589
      Top = 0
      Width = 844
      Align = alClient
      BevelOuter = bvNone
      ClientHeight = 589
      ClientWidth = 844
      Color = clBlack
      Font.Color = clWhite
      ParentColor = False
      ParentFont = False
      TabOrder = 1
      OnMouseDown = FormMouseDown
      OnMouseMove = embedPanelMouseMove
      OnMouseUp = FormMouseUp
      object backdrop: TImage
        Left = 0
        Height = 589
        Top = 0
        Width = 844
        Align = alClient
        OnClick = backdropClick
        OnMouseDown = FormMouseDown
        OnMouseUp = FormMouseUp
        Stretch = True
      end
    end
  end
  object MainMenu1: TMainMenu
    Images = ToolbarIcons
    left = 168
    top = 48
    object MenuItem1: TMenuItem
      Caption = 'File'
      OnClick = MenuItem1Click
      object miProfiles: TMenuItem
        Caption = 'Profiles'
        OnClick = miProfilesClick
        object miPRFIIeEnhanced: TMenuItem
          Caption = 'Apple //e Enhanced'
          Checked = True
          RadioItem = True
          OnClick = miPRFIIeEnhancedClick
        end
        object miPRFIIeEnhancedSoftcard: TMenuItem
          Caption = 'Apple //e Enhanced (softcard)'
          RadioItem = True
          OnClick = miPRFIIeEnhancedSoftcardClick
        end
        object miPRFIIe: TMenuItem
          Caption = 'Apple //e'
          RadioItem = True
          OnClick = miPRFIIeClick
        end
        object miPRFIIplus: TMenuItem
          Caption = 'Apple ][+'
          RadioItem = True
          OnClick = miPRFIIplusClick
        end
      end
      object MenuItem9: TMenuItem
        Caption = 'Interpreters'
        object miIntFP: TMenuItem
          Caption = 'Floating Point BASIC'
          OnClick = miIntFPClick
        end
        object miIntINT: TMenuItem
          Caption = 'Integer BASIC'
          OnClick = miIntINTClick
        end
        object miIntLOGO: TMenuItem
          Caption = '3D Logo'
          OnClick = miIntLOGOClick
        end
      end
      object miVM: TMenuItem
        Caption = 'VM'
        OnClick = miVMClick
        object miVM1: TMenuItem
          Caption = '1'
          RadioItem = True
          ShortCut = 24625
          OnClick = miVM1Click
        end
        object miVM2: TMenuItem
          Caption = '2'
          RadioItem = True
          ShortCut = 24626
          OnClick = miVM1Click
        end
        object miVM3: TMenuItem
          Caption = '3'
          RadioItem = True
          ShortCut = 24627
          OnClick = miVM1Click
        end
        object miVM4: TMenuItem
          Caption = '4'
          RadioItem = True
          ShortCut = 24628
          OnClick = miVM1Click
        end
        object miVM5: TMenuItem
          Caption = '5'
          RadioItem = True
          ShortCut = 24629
          OnClick = miVM1Click
        end
        object miVM6: TMenuItem
          Caption = '6'
          RadioItem = True
          ShortCut = 24630
          OnClick = miVM1Click
        end
        object miVM7: TMenuItem
          Caption = '7'
          RadioItem = True
          ShortCut = 24631
          OnClick = miVM1Click
        end
        object miVM8: TMenuItem
          Caption = '8'
          RadioItem = True
          ShortCut = 24632
          OnClick = miVM1Click
        end
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object miOpenFreeze: TMenuItem
        Caption = 'Open Freeze...'
        OnClick = miOpenFreezeClick
      end
      object miSaveFreeze: TMenuItem
        Caption = 'Save Freeze...'
        OnClick = miSaveFreezeClick
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object MenuItem4: TMenuItem
        Caption = 'Drive 1'
        OnClick = MenuItem4Click
        object miD1Blank: TMenuItem
          Caption = 'Eject'
          OnClick = miD1BlankClick
        end
        object miD1File: TMenuItem
          Caption = 'Insert Disk...'
          OnClick = miD1FileClick
        end
        object MenuItem17: TMenuItem
          Caption = 'Insert Blank'
          OnClick = MenuItem17Click
        end
        object miDisk1WPToggle: TMenuItem
          Caption = 'Write Protected'
          OnClick = miDisk1WPToggleClick
        end
      end
      object MenuItem5: TMenuItem
        Caption = 'Drive 2'
        OnClick = MenuItem5Click
        object miD2Blank: TMenuItem
          Caption = 'Eject'
          OnClick = miD2BlankClick
        end
        object miD2File: TMenuItem
          Caption = 'Insert Disk...'
          OnClick = miD2FileClick
        end
        object MenuItem18: TMenuItem
          Caption = 'Insert Blank'
          OnClick = MenuItem18Click
        end
        object miDisk2WPToggle: TMenuItem
          Caption = 'Write Protected'
          OnClick = miDisk2WPToggleClick
        end
      end
      object MenuItem8: TMenuItem
        Caption = 'SmartPort'
        object miSPEject: TMenuItem
          Caption = 'Eject'
          OnClick = miSPEjectClick
        end
        object miSPFile: TMenuItem
          Caption = 'Connect Disk...'
          OnClick = miSPFileClick
        end
      end
      object MenuItem7: TMenuItem
        Caption = '-'
      end
      object miFileCat: TMenuItem
        Caption = 'Launch Catalog'
        ShortCut = 24768
        OnClick = miFileCatClick
      end
      object MenuItem3: TMenuItem
        Caption = '-'
      end
      object menuRebootVM: TMenuItem
        Caption = 'Reboot VM'
        ShortCut = 24584
        OnClick = menuRebootVMClick
      end
      object MenuItem6: TMenuItem
        Caption = '-'
      end
      object miDisableFocusStealing: TMenuItem
        Caption = 'Disable GUI Focus Stealing'
        OnClick = miDisableFocusStealingClick
      end
      object N11: TMenuItem
        Caption = '-'
      end
      object MenuItem2: TMenuItem
        Caption = 'Quit'
        OnClick = MenuItem2Click
      end
    end
    object miVideo: TMenuItem
      Caption = 'Video'
      object miScanLineInt: TMenuItem
        Caption = 'Scanline Intensity'
        OnClick = miScanLineIntClick
        object miSLI0: TMenuItem
          Caption = '0'
          RadioItem = True
          OnClick = miSLIClick
        end
        object miSLI1: TMenuItem
          Caption = '1'
          RadioItem = True
          OnClick = miSLIClick
        end
        object miSLI2: TMenuItem
          Caption = '2'
          RadioItem = True
          OnClick = miSLIClick
        end
        object miSLI3: TMenuItem
          Caption = '3'
          RadioItem = True
          OnClick = miSLIClick
        end
        object miSLI4: TMenuItem
          Caption = '4'
          RadioItem = True
          OnClick = miSLIClick
        end
        object miSLI5: TMenuItem
          Caption = '5'
          RadioItem = True
          OnClick = miSLIClick
        end
        object miSLI6: TMenuItem
          Caption = '6'
          RadioItem = True
          OnClick = miSLIClick
        end
        object miSLI7: TMenuItem
          Caption = '7'
          RadioItem = True
          OnClick = miSLIClick
        end
        object miSLI8: TMenuItem
          Caption = '8'
          RadioItem = True
          OnClick = miSLIClick
        end
        object miSLI9: TMenuItem
          Caption = '9'
          RadioItem = True
          OnClick = miSLIClick
        end
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object miGRRenderMode: TMenuItem
        Caption = 'GR Render Mode'
        OnClick = miGRRenderModeClick
        object miGRVoxels: TMenuItem
          Caption = 'Color Voxels'
          RadioItem = True
          OnClick = miGRVoxelsClick
        end
        object miGRRaster: TMenuItem
          Caption = 'Color Raster'
          RadioItem = True
          OnClick = miGRRasterClick
        end
      end
      object MenuItem15: TMenuItem
        Caption = 'HGR Render Mode'
        OnClick = MenuItem15Click
        object miColorDots: TMenuItem
          Caption = 'Color Dots'
          RadioItem = True
          OnClick = miColorDotsClick
        end
        object miColorVoxels: TMenuItem
          Caption = 'Color Voxels'
          RadioItem = True
          OnClick = miColorVoxelsClick
        end
        object miColorRaster: TMenuItem
          Caption = 'Color Raster'
          RadioItem = True
          OnClick = miColorRasterClick
        end
        object miMonoDots: TMenuItem
          Caption = 'Mono Dots'
          RadioItem = True
          OnClick = miMonoDotsClick
        end
        object miMonoVoxels: TMenuItem
          Caption = 'Mono Voxels'
          RadioItem = True
          OnClick = miMonoVoxelsClick
        end
        object miMonoRaster: TMenuItem
          Caption = 'Mono Raster'
          RadioItem = True
          OnClick = miMonoRasterClick
        end
      end
      object MenuItem16: TMenuItem
        Caption = 'DHGR Render Mode'
        OnClick = MenuItem16Click
        object miDHRColorDots: TMenuItem
          Caption = 'Color Dots'
          RadioItem = True
          OnClick = miDHRColorDotsClick
        end
        object miDHRColorVoxels: TMenuItem
          Caption = 'Color Voxels'
          RadioItem = True
          OnClick = miDHRColorVoxelsClick
        end
        object miDHRColorRaster: TMenuItem
          Caption = 'Color Raster'
          RadioItem = True
          OnClick = miDHRColorRasterClick
        end
        object miDHRMonoDots: TMenuItem
          Caption = 'Mono Dots'
          RadioItem = True
          OnClick = miDHRMonoDotsClick
        end
        object miDHRMonoVoxels: TMenuItem
          Caption = 'Mono Voxels'
          RadioItem = True
          OnClick = miDHRMonoVoxelsClick
        end
        object miDHRMonoRaster: TMenuItem
          Caption = 'Mono Raster'
          RadioItem = True
          OnClick = miDHRMonoRasterClick
        end
        object N1: TMenuItem
          Caption = '-'
        end
        object miDHGREN: TMenuItem
          Caption = 'Enhanced Mode'
          OnClick = miDHGRENClick
          object miDHREMAuto: TMenuItem
            Caption = 'Autodetect'
            RadioItem = True
            OnClick = miDHREMAutoClick
          end
          object miDHREMOn: TMenuItem
            Caption = 'On'
            RadioItem = True
            OnClick = miDHREMOnClick
          end
          object miDHREMOff: TMenuItem
            Caption = 'Off'
            RadioItem = True
            OnClick = miDHREMOffClick
          end
        end
      end
      object miSHR: TMenuItem
        Caption = 'SuperHires Render Mode'
        OnClick = miSHRClick
        object miSHRColorDots: TMenuItem
          Caption = 'Color Dots'
          RadioItem = True
          OnClick = miSHRColorDotsClick
        end
        object miSHRColorVoxels: TMenuItem
          Caption = 'Color Voxels'
          RadioItem = True
          OnClick = miSHRColorVoxelsClick
        end
        object miSHRColorRaster: TMenuItem
          Caption = 'Color Raster'
          RadioItem = True
          OnClick = miSHRColorRasterClick
        end
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object miTintMode: TMenuItem
        Caption = 'Tint Mode'
        OnClick = miTintModeClick
        object miTMNone: TMenuItem
          Caption = 'None'
          Checked = True
          RadioItem = True
          OnClick = miTMNoneClick
        end
        object miTMGrey: TMenuItem
          Caption = 'Grey'
          RadioItem = True
          OnClick = miTMNoneClick
        end
        object miTMGreen: TMenuItem
          Caption = 'Green'
          RadioItem = True
          OnClick = miTMNoneClick
        end
        object miTMAmber: TMenuItem
          Caption = 'Amber'
          RadioItem = True
          OnClick = miTMNoneClick
        end
      end
      object miAR: TMenuItem
        Caption = 'Aspect Ratio'
        OnClick = miARClick
        object miAR100: TMenuItem
          Caption = '1.00'
          RadioItem = True
          OnClick = miAR100Click
        end
        object miAR133: TMenuItem
          Caption = '1.33'
          RadioItem = True
          OnClick = miAR100Click
        end
        object miAR146: TMenuItem
          Caption = '1.46'
          Checked = True
          RadioItem = True
          OnClick = miAR100Click
        end
        object miAR162: TMenuItem
          Caption = '1.62'
          RadioItem = True
          OnClick = miAR100Click
        end
        object miAR178: TMenuItem
          Caption = '1.78'
          RadioItem = True
          OnClick = miAR100Click
        end
      end
      object miVD: TMenuItem
        Caption = 'Voxel Depth'
        OnClick = miVDClick
        object miVD1: TMenuItem
          Caption = '1x'
          RadioItem = True
          OnClick = miVD1Click
        end
        object miVD2: TMenuItem
          Caption = '2x'
          Checked = True
          RadioItem = True
          OnClick = miVD1Click
        end
        object miVD3: TMenuItem
          Caption = '3x'
          RadioItem = True
          OnClick = miVD1Click
        end
        object miVD4: TMenuItem
          Caption = '4x'
          RadioItem = True
          OnClick = miVD1Click
        end
        object miVD5: TMenuItem
          Caption = '5x'
          RadioItem = True
          OnClick = miVD1Click
        end
        object miVD6: TMenuItem
          Caption = '6x'
          RadioItem = True
          OnClick = miVD1Click
        end
        object miVD7: TMenuItem
          Caption = '7x'
          RadioItem = True
          OnClick = miVD1Click
        end
        object miVD8: TMenuItem
          Caption = '8x'
          RadioItem = True
          OnClick = miVD1Click
        end
        object miVD9: TMenuItem
          Caption = '9x'
          RadioItem = True
          OnClick = miVD1Click
        end
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object MenuItem14: TMenuItem
        Caption = 'Fullscreen'
        ShortCut = 32781
        OnClick = MenuItem14Click
      end
      object N10: TMenuItem
        Caption = '-'
      end
      object miVideoScreenshot: TMenuItem
        Caption = 'Take Screenshot'
        ShortCut = 24796
        OnClick = miVideoScreenshotClick
      end
    end
    object Input: TMenuItem
      Caption = 'Input'
      OnClick = InputClick
      object miINPAllCaps: TMenuItem
        Caption = 'All Caps'
        OnClick = miINPAllCapsClick
      end
      object miINPJoystick: TMenuItem
        Caption = 'Joystick'
        OnClick = miINPJoystickClick
        object miJSAxisSwap: TMenuItem
          Caption = 'Axis Swap'
          OnClick = miJSAxisSwapClick
        end
        object miJSXRev: TMenuItem
          Caption = 'X Axis Reverse'
          OnClick = miJSXRevClick
        end
        object miJSYRev: TMenuItem
          Caption = 'Y Axis Reverse'
          OnClick = miJSYRevClick
        end
      end
      object miINPMouseMode: TMenuItem
        Caption = 'Mouse Mode'
        OnClick = miINPMouseModeClick
        object miINPMMJoystick: TMenuItem
          Caption = 'Joystick'
          RadioItem = True
          OnClick = miINPMMJoystickClick
        end
        object miINPMMDPAD: TMenuItem
          Caption = 'D-Pad'
          RadioItem = True
          OnClick = miINPMMDPADClick
        end
        object miINPMMGEOS: TMenuItem
          Caption = 'GEOS'
          RadioItem = True
          OnClick = miINPMMGEOSClick
        end
        object miINPMMDDraw: TMenuItem
          Caption = 'Dazzle Draw'
          RadioItem = True
          OnClick = miINPMMDDrawClick
        end
        object miINPMMOff: TMenuItem
          Caption = 'Off'
          RadioItem = True
          OnClick = miINPMMOffClick
        end
      end
    end
    object miAudio: TMenuItem
      Caption = 'Audio'
      OnClick = miAudioClick
      object miSNDMuted: TMenuItem
        Caption = 'Mute'
        OnClick = miSNDMutedClick
      end
      object miSNDMaster: TMenuItem
        Caption = 'Master Volume'
        OnClick = miSNDMasterClick
        object miMVOL000: TMenuItem
          Caption = '0'
          RadioItem = True
          OnClick = miMVOL000Click
        end
        object miMVOL010: TMenuItem
          Caption = '1'
          RadioItem = True
          OnClick = miMVOL000Click
        end
        object miMVOL020: TMenuItem
          Caption = '2'
          RadioItem = True
          OnClick = miMVOL000Click
        end
        object miMVOL030: TMenuItem
          Caption = '3'
          RadioItem = True
          OnClick = miMVOL000Click
        end
        object miMVOL040: TMenuItem
          Caption = '4'
          RadioItem = True
          OnClick = miMVOL000Click
        end
        object miMVOL050: TMenuItem
          Caption = '5'
          RadioItem = True
          OnClick = miMVOL000Click
        end
        object miMVOL060: TMenuItem
          Caption = '6'
          RadioItem = True
          OnClick = miMVOL000Click
        end
        object miMVOL070: TMenuItem
          Caption = '7'
          RadioItem = True
          OnClick = miMVOL000Click
        end
        object miMVOL080: TMenuItem
          Caption = '8'
          RadioItem = True
          OnClick = miMVOL000Click
        end
        object miMVOL090: TMenuItem
          Caption = '9'
          RadioItem = True
          OnClick = miMVOL000Click
        end
        object miMVOL100: TMenuItem
          Caption = '10'
          RadioItem = True
          OnClick = miMVOL000Click
        end
      end
      object miSNDSpeaker: TMenuItem
        Caption = 'Speaker Volume'
        OnClick = miSNDSpeakerClick
        object miSVOL000: TMenuItem
          Caption = '0'
          RadioItem = True
          OnClick = miSVOL000Click
        end
        object miSVOL010: TMenuItem
          Caption = '1'
          RadioItem = True
          OnClick = miSVOL000Click
        end
        object miSVOL020: TMenuItem
          Caption = '2'
          RadioItem = True
          OnClick = miSVOL000Click
        end
        object miSVOL030: TMenuItem
          Caption = '3'
          RadioItem = True
          OnClick = miSVOL000Click
        end
        object miSVOL040: TMenuItem
          Caption = '4'
          RadioItem = True
          OnClick = miSVOL000Click
        end
        object miSVOL050: TMenuItem
          Caption = '5'
          RadioItem = True
          OnClick = miSVOL000Click
        end
        object miSVOL060: TMenuItem
          Caption = '6'
          RadioItem = True
          OnClick = miSVOL000Click
        end
        object miSVOL070: TMenuItem
          Caption = '7'
          RadioItem = True
          OnClick = miSVOL000Click
        end
        object miSVOL080: TMenuItem
          Caption = '8'
          RadioItem = True
          OnClick = miSVOL000Click
        end
        object miSVOL090: TMenuItem
          Caption = '9'
          RadioItem = True
          OnClick = miSVOL000Click
        end
        object miSVOL100: TMenuItem
          Caption = '10'
          RadioItem = True
          OnClick = miSVOL000Click
        end
      end
      object miSNDMockingboard: TMenuItem
        Caption = 'Mockingboard'
        object miSNDPSG0: TMenuItem
          Caption = 'PSG0 Balance'
          OnClick = miSNDPSG0Click
          object miPSG0m100: TMenuItem
            Tag = -100
            Caption = 'Left'
            RadioItem = True
            OnClick = miPSG0m100Click
          end
          object miPSG0m75: TMenuItem
            Tag = -75
            Caption = '...'
            RadioItem = True
            OnClick = miPSG0m100Click
          end
          object miPSG0m50: TMenuItem
            Tag = -50
            Caption = '...'
            RadioItem = True
            OnClick = miPSG0m100Click
          end
          object miPSG0m25: TMenuItem
            Tag = -25
            Caption = '...'
            RadioItem = True
            OnClick = miPSG0m100Click
          end
          object miPSG0p0: TMenuItem
            Caption = 'Center'
            RadioItem = True
            OnClick = miPSG0m100Click
          end
          object miPSG0p25: TMenuItem
            Tag = 25
            Caption = '...'
            RadioItem = True
            OnClick = miPSG0m100Click
          end
          object miPSG0p50: TMenuItem
            Tag = 50
            Caption = '...'
            RadioItem = True
            OnClick = miPSG0m100Click
          end
          object miPSG0p75: TMenuItem
            Tag = 75
            Caption = '...'
            RadioItem = True
            OnClick = miPSG0m100Click
          end
          object miPSG0p100: TMenuItem
            Tag = 100
            Caption = 'Right'
            RadioItem = True
            OnClick = miPSG0m100Click
          end
        end
        object miSNDPSG1: TMenuItem
          Caption = 'PSG1 Balance'
          OnClick = miSNDPSG1Click
          object miPSG1m100: TMenuItem
            Tag = -100
            Caption = 'Left'
            RadioItem = True
            OnClick = miPSG1m100Click
          end
          object miPSG1m75: TMenuItem
            Tag = -75
            Caption = '...'
            RadioItem = True
            OnClick = miPSG1m100Click
          end
          object miPSG1m50: TMenuItem
            Tag = -50
            Caption = '...'
            RadioItem = True
            OnClick = miPSG1m100Click
          end
          object miPSG1m25: TMenuItem
            Tag = -25
            Caption = '...'
            RadioItem = True
            OnClick = miPSG1m100Click
          end
          object miPSG1p0: TMenuItem
            Caption = 'Center'
            RadioItem = True
            OnClick = miPSG1m100Click
          end
          object miPSG1p25: TMenuItem
            Tag = 25
            Caption = '...'
            RadioItem = True
            OnClick = miPSG1m100Click
          end
          object miPSG1p50: TMenuItem
            Tag = 50
            Caption = '...'
            RadioItem = True
            OnClick = miPSG1m100Click
          end
          object miPSG1p75: TMenuItem
            Tag = 75
            Caption = '...'
            RadioItem = True
            OnClick = miPSG1m100Click
          end
          object miPSG1p100: TMenuItem
            Tag = 100
            Caption = 'Right'
            RadioItem = True
            OnClick = miPSG1m100Click
          end
        end
      end
    end
    object miHardware: TMenuItem
      Caption = 'Hardware'
      object miSerial: TMenuItem
        Caption = 'Serial Card'
        OnClick = miSerialClick
        object miSerialVModem: TMenuItem
          Caption = 'Virtual Modem'
          OnClick = miSerialVModemClick
        end
        object miSerialTelnetServer: TMenuItem
          Tag = 1
          Caption = 'Telnet Server (ADTPro)'
          OnClick = miSerialVModemClick
        end
      end
      object miCPU: TMenuItem
        Caption = 'CPU'
        object miCPUType: TMenuItem
          Caption = 'Type'
          OnClick = miCPUTypeClick
          object miCPU6502: TMenuItem
            Caption = '6502'
            RadioItem = True
            OnClick = miCPU6502Click
          end
          object miCPU65c02: TMenuItem
            Caption = '65C02'
            RadioItem = True
            OnClick = miCPU6502Click
          end
        end
        object miCPUWarp: TMenuItem
          Caption = 'Warp'
          OnClick = miCPUWarpClick
          object miWarp25: TMenuItem
            Caption = '0.25'
            RadioItem = True
            OnClick = miWarp25Click
          end
          object miWarp50: TMenuItem
            Caption = '0.50'
            RadioItem = True
            OnClick = miWarp25Click
          end
          object miWarp100: TMenuItem
            Caption = '1.00'
            RadioItem = True
            OnClick = miWarp25Click
          end
          object miWarp200: TMenuItem
            Caption = '2.00'
            RadioItem = True
            OnClick = miWarp25Click
          end
          object miWarp400: TMenuItem
            Caption = '4.00'
            RadioItem = True
            OnClick = miWarp25Click
          end
        end
      end
      object miPrinter: TMenuItem
        Caption = 'Printer'
        object miPrinterPDF: TMenuItem
          Caption = 'PDF Timeout (Sec)'
          OnClick = miPrinterPDFClick
          object miPDFTO5s: TMenuItem
            Caption = '5'
            RadioItem = True
            OnClick = miPDFTO5sClick
          end
          object miPDFTO15s: TMenuItem
            Caption = '15'
            RadioItem = True
            OnClick = miPDFTO5sClick
          end
          object miPDFTO30s: TMenuItem
            Caption = '30'
            RadioItem = True
            OnClick = miPDFTO5sClick
          end
          object miPDFTO45s: TMenuItem
            Caption = '45'
            RadioItem = True
            OnClick = miPDFTO5sClick
          end
          object miPDFTO60s: TMenuItem
            Caption = '60'
            RadioItem = True
            OnClick = miPDFTO5sClick
          end
        end
      end
      object miDisks: TMenuItem
        Caption = 'Disk Drives'
        OnClick = miDisksClick
        object miDisksConvertWOZ: TMenuItem
          Caption = 'Convert DSK to WOZ'
          OnClick = miDisksConvertWOZClick
        end
        object miDisksDisableWarp: TMenuItem
          Caption = 'Disable Warp during Disk'
          OnClick = miDisksDisableWarpClick
        end
        object miDisksSwap: TMenuItem
          Caption = 'Swap Disks'
          OnClick = miDisksSwapClick
        end
      end
    end
    object miVCR: TMenuItem
      Caption = 'VCR'
      OnClick = miVCRClick
      object miRECStartFile: TMenuItem
        Caption = 'Start File Recording'
        OnClick = miRECStartFileClick
      end
      object miRECStop: TMenuItem
        Caption = 'Stop Recording'
        OnClick = miRECStopClick
      end
      object miRECLiveRewind: TMenuItem
        Caption = 'Live Rewind Enable'
        OnClick = miRECLiveRewindClick
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object miRECRewind: TMenuItem
        Caption = 'Rewind'
        ShortCut = 24795
        OnClick = miRECRewindClick
      end
      object miRECPlay: TMenuItem
        Caption = 'Play'
        ShortCut = 24797
        OnClick = miRECPlayClick
      end
      object miRECResume: TMenuItem
        Caption = 'Resume'
        OnClick = miRECResumeClick
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object miRECAutoLiveRewind: TMenuItem
        Caption = 'Auto Enable Rewind'
        OnClick = miRECAutoLiveRewindClick
      end
      object miRECDisableSlowRew: TMenuItem
        Caption = 'Disable Slow Rewind'
        OnClick = miRECDisableSlowRewClick
      end
    end
    object miApps: TMenuItem
      Caption = 'Applications'
      object miAppsTerminal: TMenuItem
        Caption = 'Terminal'
        OnClick = miAppsTerminalClick
      end
      object miAppsPrintShop: TMenuItem
        Caption = 'Print Shop'
        OnClick = miAppsPrintShopClick
      end
      object miApps816Paint: TMenuItem
        Caption = '816 Paint'
        OnClick = miApps816PaintClick
      end
    end
    object miTools: TMenuItem
      Caption = 'Tools'
      OnClick = miToolsClick
      object miToolsTracker: TMenuItem
        Caption = 'microTracker'
        OnClick = miToolsTrackerClick
      end
      object miToolsWebDebugger: TMenuItem
        Caption = 'Web Debugger'
        ShortCut = 24642
        OnClick = miToolsWebDebuggerClick
      end
    end
    object miHelp: TMenuItem
      Caption = 'Help'
      object miMMHelp: TMenuItem
        Caption = 'microM8 Help'
        ShortCut = 24648
        OnClick = miMMHelpClick
      end
    end
  end
  object ToolbarIcons: TImageList
    Height = 32
    Scaled = True
    Width = 32
    left = 96
    top = 48
    Bitmap = {
[encoded data, 272640 characters]
      E325E3D0E312E3D0E300FFFFFF00
    }
  end
  object DiskMenu: TPopupMenu
    OnPopup = DiskMenuPopup
    OnClose = DiskMenuClose
    left = 240
    top = 104
    object MenuItem10: TMenuItem
      Caption = 'Insert Disk'
      OnClick = MenuItem10Click
    end
    object MenuItem11: TMenuItem
      Caption = 'Insert Blank'
    end
    object MenuItem12: TMenuItem
      Caption = 'Eject'
    end
    object miDiskMenuWP: TMenuItem
      Caption = 'Write Protected'
      Checked = True
      OnClick = miDiskMenuWPClick
    end
  end
  object CheckTimer: TTimer
    Enabled = False
    Interval = 250
    OnTimer = CheckTimerTimer
    left = 168
    top = 104
  end
  object odDiskImages: TOpenDialog
    Title = 'Open Disk Image'
    DefaultExt = '.*'
    Filter = 'Disk Image|*.dsk|ProDOS Ordered Image|*.po|DOS Ordered Image|*.do|Nibble Image|*.nib|WOZ Image|*.woz|2MG Image|*.2mg|HDV Image|*.hdv'
    left = 24
    top = 104
  end
  object MouseTimer: TTimer
    Enabled = False
    Interval = 50
    OnTimer = MouseTimerTimer
    left = 96
    top = 104
  end
  object TintMode: TPopupMenu
    left = 24
    top = 48
    object miTintOff: TMenuItem
      Caption = 'Off'
      ImageIndex = 0
      RadioItem = True
      SubMenuImages = ToolbarIcons
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object miTintGrey: TMenuItem
      Caption = 'Grey'
      ImageIndex = 0
      RadioItem = True
      SubMenuImages = ToolbarIcons
    end
    object miTintGreen: TMenuItem
      Caption = 'Green'
      RadioItem = True
    end
    object miTintAmber: TMenuItem
      Caption = 'Amber'
      RadioItem = True
    end
  end
  object ToolTimer: TTimer
    Enabled = False
    OnTimer = ToolTimerTimer
    left = 24
    top = 160
  end
  object SideImages: TImageList
    Scaled = True
    left = 240
    top = 48
  end
  object MicroM8Process: TAsyncProcess
    Active = False
    Executable = '/home/april/Projects/octalyzer/GoPath/src/paleotronic.com/octalyzer/microM8'
    Parameters.Strings = (
      '-control-port'
      '-disable-border'
    )
    Options = [poNoConsole]
    Priority = ppNormal
    StartupOptions = [suoUseShowWindow]
    ShowWindow = swoNone
    WindowColumns = 0
    WindowHeight = 0
    WindowLeft = 0
    WindowRows = 0
    WindowTop = 0
    WindowWidth = 0
    FillAttribute = 0
    left = 240
    top = 160
  end
  object odFreezeFiles: TOpenDialog
    DefaultExt = '.*.frz'
    Filter = 'MicroM8 Freeze|*.frz'
    left = 96
    top = 160
  end
  object FSTimer: TTimer
    OnTimer = FSTimerTimer
    left = 168
    top = 160
  end
  object sdFreezeFiles: TSaveDialog
    Title = 'Save state as'
    DefaultExt = '.*.frz'
    Filter = 'MicroM8 Freeze|*.frz'
    left = 24
    top = 216
  end
  object RecordingMenu: TPopupMenu
    Images = ToolbarIcons
    ImagesWidth = 32
    left = 96
    top = 216
    object miStartDiskRec: TMenuItem
      Caption = 'Start Disk Recording'
      ImageIndex = 10
      SubMenuImages = ToolbarIcons
      OnClick = miRECStartFileClick
    end
    object miStartLiveRewindRecord: TMenuItem
      Caption = 'Enable Live Rewind'
      ImageIndex = 11
      SubMenuImages = ToolbarIcons
      OnClick = miRECLiveRewindClick
    end
  end
  object ProfileMenu: TPopupMenu
    left = 168
    top = 216
    object miPMApple2eEnh: TMenuItem
      Caption = 'Apple //e Enhanced'
      OnClick = miPRFIIeEnhancedClick
    end
    object miPMApple2eEnhCPM: TMenuItem
      Caption = 'Apple //e Enhanced (Softcard)'
      OnClick = miPRFIIeEnhancedSoftcardClick
    end
    object miPMApple2e: TMenuItem
      Caption = 'Apple //e'
      OnClick = miPRFIIeClick
    end
    object miPMApple2plus: TMenuItem
      Caption = 'Apple ][+'
      OnClick = miPRFIIplusClick
    end
  end
end
