home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 March / Chip_1999-03_cd.bin / zkuste / delphi / INFO / DI9802TS.ZIP / ScriptDemo.dfm / ScriptDemo.txt
Text File  |  1997-08-27  |  2KB  |  105 lines
  1. object ScriptingDemo: TScriptingDemo
  2.   Left = 156
  3.   Top = 135
  4.   Width = 389
  5.   Height = 266
  6.   Caption = 'ActiveX Scripting Demo'
  7.   Font.Charset = DEFAULT_CHARSET
  8.   Font.Color = clWindowText
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   Menu = MainMenu1
  13.   Position = poScreenCenter
  14.   PixelsPerInch = 96
  15.   TextHeight = 13
  16.   object tmEditor: TMemo
  17.     Left = 0
  18.     Top = 32
  19.     Width = 381
  20.     Height = 188
  21.     Align = alClient
  22.     TabOrder = 0
  23.   end
  24.   object Panel1: TPanel
  25.     Left = 0
  26.     Top = 0
  27.     Width = 381
  28.     Height = 32
  29.     Align = alTop
  30.     BevelInner = bvRaised
  31.     BevelOuter = bvLowered
  32.     TabOrder = 1
  33.     object btnFire: TButton
  34.       Left = 133
  35.       Top = 5
  36.       Width = 121
  37.       Height = 23
  38.       Caption = '&Execute Script Method'
  39.       TabOrder = 0
  40.       OnClick = btnFireClick
  41.     end
  42.     object teEventName: TEdit
  43.       Left = 8
  44.       Top = 6
  45.       Width = 122
  46.       Height = 21
  47.       TabOrder = 1
  48.       Text = 'Main'
  49.     end
  50.   end
  51.   object dlgOpen: TOpenDialog
  52.     Filter = 'VBScript|*.bas|JScript|*.js'
  53.     Left = 329
  54.     Top = 35
  55.   end
  56.   object dlgSave: TSaveDialog
  57.     DefaultExt = '*.bas'
  58.     Filter = 'VBScript|*.bas|JScript|*.js'
  59.     Left = 329
  60.     Top = 66
  61.   end
  62.   object MainMenu1: TMainMenu
  63.     Left = 298
  64.     Top = 66
  65.     object File1: TMenuItem
  66.       Caption = 'File'
  67.       object Open1: TMenuItem
  68.         Caption = '&Open'
  69.         OnClick = tmOpenClick
  70.       end
  71.       object Save1: TMenuItem
  72.         Caption = '&Save'
  73.         OnClick = tmSaveClick
  74.       end
  75.       object N1: TMenuItem
  76.         Caption = '-'
  77.       end
  78.       object Exit1: TMenuItem
  79.         Caption = 'E&xit'
  80.       end
  81.     end
  82.     object Language1: TMenuItem
  83.       Caption = '&Engine'
  84.       object tmVBScript: TMenuItem
  85.         Caption = '&VBScript'
  86.         Checked = True
  87.         RadioItem = True
  88.         OnClick = tmVBScriptClick
  89.       end
  90.       object tmJScript: TMenuItem
  91.         Caption = '&JScript'
  92.         RadioItem = True
  93.         OnClick = tmVBScriptClick
  94.       end
  95.     end
  96.     object Help1: TMenuItem
  97.       Caption = '&Help'
  98.       object About1: TMenuItem
  99.         Caption = '&About'
  100.         OnClick = About1Click
  101.       end
  102.     end
  103.   end
  104. end
  105.