moocodermain.dfm

object frmMoocoderMain: TfrmMoocoderMain
  Left = 0
  Top = 0
  Caption = 'MooCoder'
  ClientHeight = 574
  ClientWidth = 943
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PopupMenu = PopupMenu1
  Position = poDefault
  WindowState = wsMaximized
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 16
  object Splitter1: TSplitter
    Left = 0
    Top = 313
    Width = 943
    Height = 3
    Cursor = crVSplit
    Align = alBottom
    Visible = False
    ExplicitTop = 0
    ExplicitWidth = 348
  end
  object Splitter2: TSplitter
    Left = 0
    Top = 405
    Width = 943
    Height = 3
    Cursor = crVSplit
    Align = alBottom
    ExplicitTop = 430
  end
  object Splitter3: TSplitter
    Left = 597
    Top = 0
    Height = 313
    Align = alRight
    Visible = False
    ExplicitLeft = 480
    ExplicitTop = 268
    ExplicitHeight = 100
  end
  object Panel1: TPanel
    Left = 0
    Top = 468
    Width = 943
    Height = 87
    Align = alBottom
    TabOrder = 0
    object Edit1: TEdit
      Left = 8
      Top = 12
      Width = 834
      Height = 27
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      Text = 'Edit1'
    end
    object Button1: TButton
      Left = 848
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Send'
      Default = True
      TabOrder = 1
      OnClick = Button1Click
    end
    object ckConnect: TCheckBox
      Left = 8
      Top = 45
      Width = 97
      Height = 17
      Caption = 'Connect'
      TabOrder = 2
      OnClick = ckConnectClick
    end
    object btnDump: TButton
      Left = 104
      Top = 45
      Width = 75
      Height = 25
      Action = actDump
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
    end
    object btnCompile: TButton
      Left = 185
      Top = 45
      Width = 75
      Height = 25
      Action = ActCompile
      TabOrder = 4
    end
    object btnVerbs: TButton
      Left = 300
      Top = 45
      Width = 75
      Height = 25
      Action = actVerb
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
    end
  end
  object memoDebug: TMemo
    Left = 0
    Top = 316
    Width = 943
    Height = 89
    Align = alBottom
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = []
    Lines.Strings = (
      'Debug')
    ParentFont = False
    TabOrder = 1
    Visible = False
    OnDblClick = memoDebugDblClick
  end
  object pages: TPageControl
    Left = 0
    Top = 0
    Width = 597
    Height = 313
    ActivePage = tbVerbs
    Align = alClient
    MultiLine = True
    TabOrder = 2
    OnChange = pagesChange
    object tbMain: TTabSheet
      Caption = 'Main'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      OnResize = tbMainResize
      OnShow = tbMainShow
      object Memo1: TRichEdit
        Left = 0
        Top = 0
        Width = 589
        Height = 282
        Align = alClient
        Color = clBlack
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -16
        Font.Name = 'Courier'
        Font.Pitch = fpFixed
        Font.Style = [fsBold]
        HideSelection = False
        Lines.Strings = (
          'Memo1')
        ParentFont = False
        ScrollBars = ssVertical
        TabOrder = 0
        StyleElements = [seClient, seBorder]
        Zoom = 100
        OnChange = Memo1Change
        OnDblClick = memoDebugDblClick
        OnSelectionChange = Memo1SelectionChange
      end
    end
    object tbVerbs: TTabSheet
      Caption = 'Verbs'
      ImageIndex = 1
      object lvVerbs: TListView
        Left = 0
        Top = 0
        Width = 589
        Height = 282
        Align = alClient
        Columns = <
          item
            Caption = 'Obj'
          end
          item
            Caption = 'Name'
          end
          item
            Caption = 'Verb'
          end
          item
            Caption = 'Args'
          end
          item
            AutoSize = True
            Caption = 'Detail'
          end>
        RowSelect = True
        TabOrder = 0
        ViewStyle = vsReport
        OnColumnClick = lvVerbsColumnClick
        OnCompare = lvVerbsCompare
        OnDblClick = lvVerbsDblClick
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 555
    Width = 943
    Height = 19
    Panels = <
      item
        Text = 'Line'
        Width = 50
      end
      item
        Text = 'Other'
        Width = 60
      end>
  end
  object memoHistory: TMemo
    Left = 0
    Top = 408
    Width = 943
    Height = 60
    Align = alBottom
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 4
    WordWrap = False
  end
  object memoStack: TMemo
    Left = 600
    Top = 0
    Width = 343
    Height = 313
    Align = alRight
    Lines.Strings = (
      'Stack')
    TabOrder = 5
    Visible = False
    OnDblClick = memoDebugDblClick
  end
  object client: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 8492
    OnConnect = clientConnect
    OnDisconnect = clientDisconnect
    OnRead = clientRead
    OnWrite = clientWrite
    Left = 536
    Top = 336
  end
  object tmrQueue: TTimer
    OnTimer = tmrQueueTimer
    Left = 448
    Top = 340
  end
  object PopupMenu1: TPopupMenu
    Left = 400
    Top = 211
    object GotoLine1: TMenuItem
      Caption = 'Goto Line'
      ShortCut = 16455
      OnClick = GotoLine1Click
    end
    object FindTab1: TMenuItem
      Caption = 'Find Verb'
      ShortCut = 24646
      OnClick = FindTab1Click
    end
    object NewTab1: TMenuItem
      Caption = 'New Tab'
      ShortCut = 16462
      OnClick = NewTab1Click
    end
    object Refresh1: TMenuItem
      Caption = 'Refresh'
      ShortCut = 16466
      OnClick = Refresh1Click
    end
    object Find1: TMenuItem
      Caption = 'Find'
      ShortCut = 16454
      OnClick = Find1Click
    end
    object FindAgain1: TMenuItem
      Caption = 'Find Again'
      ShortCut = 114
      OnClick = FindAgain1Click
    end
    object Replace1: TMenuItem
      Caption = 'Replace'
      ShortCut = 16456
      OnClick = Replace1Click
    end
    object RemoveTab1: TMenuItem
      Caption = 'Remove Tab'
      OnClick = RemoveTab1Click
    end
    object LastCommand1: TMenuItem
      Caption = 'Last Command'
      ShortCut = 16422
      OnClick = LastCommand1Click
    end
    object NextCommand1: TMenuItem
      Caption = 'Next Command'
      ShortCut = 16424
      OnClick = NextCommand1Click
    end
    object oggleView1: TMenuItem
      Caption = 'Toggle View'
      Hint = 'Swap between main view and last compile.'
      ShortCut = 24660
      OnClick = oggleView1Click
    end
  end
  object ApplicationEvents1: TApplicationEvents
    Left = 716
    Top = 299
  end
  object MainMenu1: TMainMenu
    Left = 272
    Top = 199
    object Project1: TMenuItem
      Caption = '&Project'
      object Compile1: TMenuItem
        Action = ActCompile
      end
      object Verb1: TMenuItem
        Action = actVerb
      end
      object NewVerb1: TMenuItem
        Action = actNewVerb
      end
      object Dump1: TMenuItem
        Action = actDump
      end
      object Clear1: TMenuItem
        Action = actClear
      end
    end
    object Edit2: TMenuItem
      Caption = '&Edit'
      object Property1: TMenuItem
        Caption = '&Text List'
        OnClick = Property1Click
      end
    end
    object Settings1: TMenuItem
      Caption = '&Settings'
      object Connection1: TMenuItem
        Caption = 'Connection'
        OnClick = Connection1Click
      end
      object Font1: TMenuItem
        Caption = 'Font'
        OnClick = Font1Click
      end
      object Wrapat80chars1: TMenuItem
        Caption = 'Wrap at 80 chars'
        OnClick = Wrapat80chars1Click
      end
    end
    object View1: TMenuItem
      Caption = '&View'
      object Stack1: TMenuItem
        Caption = '&Stack'
        OnClick = Stack1Click
      end
      object Debug1: TMenuItem
        Caption = '&Debug'
        OnClick = Debug1Click
      end
    end
  end
  object ActionList1: TActionList
    Left = 600
    Top = 115
    object ActCompile: TAction
      Caption = '&Compile'
      Enabled = False
      ShortCut = 116
      OnExecute = btnCompileClick
    end
    object actVerb: TAction
      Caption = 'Get Verbs'
      Hint = 'Load Verb list for an object'
      ShortCut = 24662
      OnExecute = btnVerbsClick
    end
    object actNewVerb: TAction
      Caption = 'New Verb'
      OnExecute = actNewVerbExecute
    end
    object actDump: TAction
      Caption = 'Dump'
      Hint = 'Grab the output of a dump.'
      ShortCut = 24644
      OnExecute = btnDumpClick
    end
    object actClear: TAction
      Caption = 'Clear All'
      OnExecute = actClearExecute
    end
  end
  object SynEditSearch1: TSynEditSearch
    Left = 532
    Top = 231
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Courier'
    Font.Style = []
    Options = [fdEffects, fdFixedPitchOnly, fdNoStyleSel]
    Left = 324
    Top = 151
  end
end