dwsdemowin.dfm

script language

object FDwsDemo: TFDwsDemo
  Left = 169
  Top = 164
  Width = 733
  Height = 566
  Caption = 'DWS Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  Menu = MainMenu1
  OldCreateOrder = True
  Position = poDefaultPosOnly
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter2: TSplitter
    Left = 448
    Top = 0
    Width = 3
    Height = 520
    Cursor = crHSplit
    Align = alRight
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 448
    Height = 520
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel2'
    TabOrder = 0
    object Splitter1: TSplitter
      Left = 0
      Top = 436
      Width = 448
      Height = 3
      Cursor = crVSplit
      Align = alBottom
      Visible = False
    end
    object LBMsgs: TListBox
      Left = 0
      Top = 439
      Width = 448
      Height = 81
      Align = alBottom
      ItemHeight = 13
      TabOrder = 0
      Visible = False
      OnClick = LBMsgsClick
      OnDblClick = LBMsgsDblClick
    end
    object MSource: TRichEdit
      Left = 0
      Top = 0
      Width = 448
      Height = 436
      Align = alClient
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
      HideSelection = False
      ParentFont = False
      PlainText = True
      ScrollBars = ssVertical
      TabOrder = 1
      WantTabs = True
      WordWrap = False
      OnChange = MSourceChange
    end
  end
  object Panel3: TPanel
    Left = 451
    Top = 0
    Width = 274
    Height = 520
    Align = alRight
    BevelOuter = bvNone
    TabOrder = 1
    object Splitter3: TSplitter
      Left = 0
      Top = 310
      Width = 274
      Height = 3
      Cursor = crVSplit
      Align = alBottom
    end
    object LBLog: TListBox
      Left = 0
      Top = 313
      Width = 274
      Height = 207
      Align = alBottom
      ItemHeight = 13
      Items.Strings = (
        'Log')
      TabOrder = 0
    end
    object MResult: TRichEdit
      Left = 0
      Top = 0
      Width = 274
      Height = 310
      Align = alClient
      Lines.Strings = (
        'This memo displays the value of '
        'TDelphiWebScript.Result ')
      TabOrder = 1
      WantTabs = True
      WordWrap = False
    end
  end
  object MainMenu1: TMainMenu
    Left = 28
    Top = 348
    object MIFile: TMenuItem
      Caption = 'File'
      object MIFileNew: TMenuItem
        Caption = '&New'
        ShortCut = 16462
        OnClick = MIFileNewClick
      end
      object MIFileOpen: TMenuItem
        Caption = '&Open'
        ShortCut = 16463
        OnClick = MIFileOpenClick
      end
      object MIFileSave: TMenuItem
        Caption = '&Save'
        ShortCut = 16467
        OnClick = MIFileSaveClick
      end
      object MIFileSaveAs: TMenuItem
        Caption = 'Save As...'
        OnClick = MIFileSaveAsClick
      end
      object MIFileN1: TMenuItem
        Caption = '-'
      end
      object MIFileExit: TMenuItem
        Caption = '&Exit'
        OnClick = MIFileExitClick
      end
    end
    object MIScript: TMenuItem
      Caption = 'Script'
      object MIScriptCompile: TMenuItem
        Caption = '&Compile'
        ShortCut = 16504
        OnClick = MIScriptCompileClick
      end
      object MIScriptExecute: TMenuItem
        Caption = '&Execute'
        ShortCut = 120
        OnClick = MIScriptExecuteClick
      end
      object MIScriptStop: TMenuItem
        Caption = '&Stop'
        ShortCut = 27
        OnClick = MIScriptStopClick
      end
      object MIScriptN2: TMenuItem
        Caption = '-'
      end
      object MIScriptStep: TMenuItem
        Caption = 'Step'
        ShortCut = 119
        OnClick = MIScriptStepClick
      end
      object MIScriptN3: TMenuItem
        Caption = '-'
      end
      object MIScriptOptionOptimization: TMenuItem
        Caption = 'Optimization (ON/OFF)'
        OnClick = CompilerOptionClick
      end
    end
    object MIFilter: TMenuItem
      Caption = 'Filter'
      object MIFilterStandard: TMenuItem
        Caption = 'Standard'
        GroupIndex = 1
        RadioItem = True
        OnClick = MIFilterStandardClick
      end
      object MIFilterHtml: TMenuItem
        Caption = 'HtmlFilter'
        GroupIndex = 1
        RadioItem = True
        OnClick = MIFilterHtmlClick
      end
    end
    object MIDemos: TMenuItem
      Caption = 'Demos'
      OnClick = MIDemosClick
    end
    object MIDebugger: TMenuItem
      Caption = 'Debugger'
      object MIDebuggerNone: TMenuItem
        Caption = 'None'
        Checked = True
        RadioItem = True
        OnClick = MIDebuggerNoneClick
      end
      object MIDebuggerSimple: TMenuItem
        Caption = 'SimpleDebugger'
        RadioItem = True
        OnClick = MIDebuggerSimpleClick
      end
      object MIDebuggerRemote: TMenuItem
        Caption = 'RemoteDebugger'
        RadioItem = True
        OnClick = MIDebuggerRemoteClick
      end
    end
    object MIHelp: TMenuItem
      Caption = 'Help'
      object MIHelpDelphi5: TMenuItem
        Caption = 'WinHelp Help Delphi 5'
        OnClick = MIHelpDelphi5Click
      end
      object MIHelpDelphi6: TMenuItem
        Caption = 'WinHelp Help Delphi 6'
        OnClick = MIHelpDelphi6Click
      end
      object MIHelpHtml: TMenuItem
        Caption = 'Html Help'
        OnClick = MIHelpHtmlClick
      end
      object MIHelpHomepage: TMenuItem
        Caption = 'DWS Homepage'
        OnClick = MIHelpHomepageClick
      end
      object MIHelpN5: TMenuItem
        Caption = '-'
      end
      object MIHelpAbout: TMenuItem
        Caption = 'About'
        OnClick = MIHelpAboutClick
      end
    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'dws'
    Filter = 'DWS files|*.dws|TScript files|*.sct|All files|*.*'
    Options = [ofExtensionDifferent, ofPathMustExist, ofFileMustExist]
    Left = 60
    Top = 348
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'dws'
    Filter = 'DWS files|*.dws|TScript files|*.sct|All files|*.*'
    FilterIndex = 0
    Options = [ofExtensionDifferent, ofPathMustExist]
    Left = 92
    Top = 348
  end
  object dws2Unit: Tdws2Unit
    Script = Script
    Arrays = <
      item
        Name = 'TMyArray'
        DataType = 'Integer'
        LowBound = 0
        HighBound = 2
      end>
    Classes = <
      item
        Name = 'TList'
        Constructors = <
          item
            Name = 'Create'
            Parameters = <>
            OnAssignExternalObject = dws2UnitClassesTListConstructorsCreateAssignExternalObject
          end>
        Fields = <>
        Methods = <
          item
            Name = 'Destroy'
            Parameters = <>
            OnEval = dws2UnitClassesTListMethodsDestroyEval
            Attributes = [maOverride]
            Kind = mkDestructor
          end
          item
            Name = 'Add'
            Parameters = <
              item
                Name = 'Obj'
                DataType = 'TObject'
                IsWritable = False
              end>
            ResultType = 'Integer'
            OnEval = dws2UnitClassesTListMethodsAddEval
            Kind = mkFunction
          end
          item
            Name = 'Get'
            Parameters = <
              item
                Name = 'Index'
                DataType = 'Integer'
                IsWritable = False
              end>
            ResultType = 'TObject'
            OnEval = dws2UnitClassesTListMethodsGetEval
            Kind = mkFunction
          end
          item
            Name = 'Clear'
            Parameters = <>
            OnEval = dws2UnitClassesTListMethodsClearEval
            Kind = mkProcedure
          end
          item
            Name = 'GetCount'
            Parameters = <>
            ResultType = 'Integer'
            OnEval = dws2UnitClassesTListMethodsGetCountEval
            Kind = mkFunction
          end>
        Properties = <
          item
            Name = 'Count'
            DataType = 'Integer'
            ReadAccess = 'GetCount'
            Parameters = <>
            IsDefault = False
          end>
      end
      item
        Name = 'TStrings'
        Constructors = <
          item
            Name = 'Create'
            Parameters = <>
            OnAssignExternalObject = dws2UnitClassesTStringsConstructorsCreateAssignExternalObject
          end>
        Fields = <>
        Methods = <
          item
            Name = 'Add'
            Parameters = <
              item
                Name = 's'
                DataType = 'String'
                IsWritable = False
              end>
            OnEval = dws2UnitClassesTStringsAddEval
            Kind = mkProcedure
          end
          item
            Name = 'GetString'
            Parameters = <
              item
                Name = 'x'
                DataType = 'Integer'
                IsWritable = False
              end>
            ResultType = 'String'
            OnEval = dws2UnitClassesTStringsMethodsGetStringEval
            Kind = mkFunction
          end
          item
            Name = 'Destroy'
            Parameters = <>
            OnEval = dws2UnitClassesTStringsMethodsDestroyEval
            Attributes = [maOverride]
            Kind = mkDestructor
          end>
        Properties = <
          item
            Name = 'String'
            DataType = 'String'
            ReadAccess = 'GetString'
            Parameters = <
              item
                Name = 'Idx'
                DataType = 'Integer'
              end>
            IsDefault = True
          end>
      end
      item
        Name = 'TWindow'
        Constructors = <
          item
            Name = 'Create'
            Parameters = <
              item
                Name = 'Left'
                DataType = 'Integer'
              end
              item
                Name = 'Top'
                DataType = 'Integer'
              end
              item
                Name = 'Caption'
                DataType = 'String'
              end>
            OnEval = dws2UnitClassesTWindowConstructorsCreateEval
            OnAssignExternalObject = dws2UnitClassesTWindowConstructorsCreateAssignExternalObject
          end>
        Fields = <
          item
            Name = 'Left'
            DataType = 'Integer'
          end
          item
            Name = 'Top'
            DataType = 'Integer'
          end
          item
            Name = 'Width'
            DataType = 'Integer'
          end
          item
            Name = 'Height'
            DataType = 'Integer'
          end