object ScriptingDemo: TScriptingDemo
  Left = 156
  Top = 135
  Width = 389
  Height = 266
  Caption = 'ActiveX Scripting Demo'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object tmEditor: TMemo
    Left = 0
    Top = 32
    Width = 381
    Height = 188
    Align = alClient
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 381
    Height = 32
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object btnFire: TButton
      Left = 133
      Top = 5
      Width = 121
      Height = 23
      Caption = '&Execute Script Method'
      TabOrder = 0
      OnClick = btnFireClick
    end
    object teEventName: TEdit
      Left = 8
      Top = 6
      Width = 122
      Height = 21
      TabOrder = 1
      Text = 'Main'
    end
  end
  object dlgOpen: TOpenDialog
    Filter = 'VBScript|*.bas|JScript|*.js'
    Left = 329
    Top = 35
  end
  object dlgSave: TSaveDialog
    DefaultExt = '*.bas'
    Filter = 'VBScript|*.bas|JScript|*.js'
    Left = 329
    Top = 66
  end
  object MainMenu1: TMainMenu
    Left = 298
    Top = 66
    object File1: TMenuItem
      Caption = 'File'
      object Open1: TMenuItem
        Caption = '&Open'
        OnClick = tmOpenClick
      end
      object Save1: TMenuItem
        Caption = '&Save'
        OnClick = tmSaveClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
      end
    end
    object Language1: TMenuItem
      Caption = '&Engine'
      object tmVBScript: TMenuItem
        Caption = '&VBScript'
        Checked = True
        RadioItem = True
        OnClick = tmVBScriptClick
      end
      object tmJScript: TMenuItem
        Caption = '&JScript'
        RadioItem = True
        OnClick = tmVBScriptClick
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      object About1: TMenuItem
        Caption = '&About'
        OnClick = About1Click
      end
    end
  end
end