dwsdemowin.dfm

script language

          item
            Name = 'Caption'
            DataType = 'String'
          end>
        Methods = <
          item
            Name = 'SetCaption'
            Parameters = <
              item
                Name = 's'
                DataType = 'String'
                IsWritable = False
              end>
            OnEval = dws2UnitClassesTWindowMethodsSetCaptionEval
            Kind = mkProcedure
          end
          item
            Name = 'SetPosition'
            Parameters = <
              item
                Name = 'Left'
                DataType = 'Integer'
                IsWritable = False
              end
              item
                Name = 'Top'
                DataType = 'Integer'
                IsWritable = False
              end>
            OnEval = dws2UnitClassesTWindowMethodsSetPositionEval
            Kind = mkProcedure
          end
          item
            Name = 'SetSize'
            Parameters = <
              item
                Name = 'Width'
                DataType = 'Integer'
                IsWritable = False
              end
              item
                Name = 'Height'
                DataType = 'Integer'
                IsWritable = False
              end>
            OnEval = dws2UnitClassesTWindowMethodsSetSizeEval
            Kind = mkProcedure
          end
          item
            Name = 'Update'
            Parameters = <>
            OnEval = dws2UnitClassesTWindowMethodsUpdateEval
            Kind = mkProcedure
          end
          item
            Name = 'SetParams'
            Parameters = <
              item
                Name = 'params'
                DataType = 'TWindowParams'
                IsWritable = False
              end>
            OnEval = dws2UnitClassesTWindowMethodsSetParamsEval
            Kind = mkProcedure
          end
          item
            Name = 'VarParamTest'
            Parameters = <
              item
                Name = 'a'
                DataType = 'Integer'
                IsVarParam = True
              end
              item
                Name = 'b'
                DataType = 'Integer'
                IsVarParam = True
              end>
            OnEval = dws2UnitClassesTWindowMethodsVarParamTestEval
            Kind = mkProcedure
          end
          item
            Name = 'UseVarParamTest'
            Parameters = <>
            OnEval = dws2UnitClassesTWindowMethodsUseVarParamTestEval
            Kind = mkProcedure
          end
          item
            Name = 'NewInstance'
            Parameters = <>
            ResultType = 'TObject'
            OnEval = dws2UnitClassesTWindowMethodsNewInstanceEval
            Kind = mkFunction
          end>
        Properties = <>
      end
      item
        Name = 'TField'
        Constructors = <>
        Fields = <>
        Methods = <
          item
            Name = 'AsString'
            Parameters = <>
            ResultType = 'String'
            OnEval = dws2UnitClassesTFieldMethodsAsStringEval
            Kind = mkFunction
          end
          item
            Name = 'AsInteger'
            Parameters = <>
            ResultType = 'Integer'
            OnEval = dws2UnitClassesTFieldMethodsAsIntegerEval
            Kind = mkFunction
          end>
        Properties = <>
      end
      item
        Name = 'TFields'
        Constructors = <
          item
            Name = 'Create'
            Parameters = <>
            OnEval = dws2UnitClassesTFieldsConstructorsCreateEval
          end>
        Fields = <>
        Methods = <
          item
            Name = 'GetField'
            Parameters = <
              item
                Name = 'FieldName'
                DataType = 'String'
                IsWritable = False
              end>
            ResultType = 'String'
            OnEval = dws2UnitClassesTFieldsMethodsGetFieldEval
            Kind = mkFunction
          end
          item
            Name = 'Destroy'
            Parameters = <>
            OnEval = dws2UnitClassesTFieldsMethodsDestroyEval
            Attributes = [maOverride]
            Kind = mkDestructor
          end>
        Properties = <>
      end
      item
        Name = 'TQuery'
        Constructors = <
          item
            Name = 'Create'
            Parameters = <
              item
                Name = 'Db'
                DataType = 'String'
              end
              item
                Name = 'Query'
                DataType = 'String'
              end>
            OnEval = dws2UnitClassesTQueryConstructorsCreateEval
            OnAssignExternalObject = dws2UnitClassesTQueryConstructorsCreateAssignExternalObject
          end>
        Fields = <
          item
            Name = 'FFields'
            DataType = 'TFields'
          end>
        Methods = <
          item
            Name = 'Destroy'
            Parameters = <>
            OnEval = dws2UnitClassesTQueryDestroyEval
            Attributes = [maOverride]
            Kind = mkDestructor
          end
          item
            Name = 'First'
            Parameters = <>
            OnEval = dws2UnitClassesTQueryFirstEval
            Kind = mkProcedure
          end
          item
            Name = 'Next'
            Parameters = <>
            OnEval = dws2UnitClassesTQueryNextEval
            Kind = mkProcedure
          end
          item
            Name = 'Eof'
            Parameters = <>
            ResultType = 'Boolean'
            OnEval = dws2UnitClassesTQueryEofEval
            Kind = mkFunction
          end
          item
            Name = 'FieldByName'
            Parameters = <
              item
                Name = 'FieldName'
                DataType = 'String'
                IsWritable = False
              end>
            ResultType = 'TField'
            OnEval = dws2UnitClassesTQueryFieldByNameEval
            Kind = mkFunction
          end>
        Properties = <>
      end>
    Constants = <
      item
        Name = 'BirthDay'
        DataType = 'DateTime'
        Value = 27913d
      end>
    Dependencies.Strings = (
      'Internal')
    Enumerations = <>
    Forwards = <
      item
        Name = 'TField'
      end>
    Functions = <
      item
        Name = 'Input'
        Parameters = <
          item
            Name = 'title'
            DataType = 'String'
            IsWritable = False
          end
          item
            Name = 'prompt'
            DataType = 'String'
            IsWritable = False
          end>
        ResultType = 'String'
        OnEval = dws2UnitFunctionsInputEval
      end
      item
        Name = 'Test'
        Parameters = <
          item
            Name = 'r'
            DataType = 'TTestRec'
            IsVarParam = True
          end>
        OnEval = dws2UnitFunctionsTestEval
      end
      item
        Name = 'ShowGlobal'
        Parameters = <>
        OnEval = dws2UnitFunctionsShowGlobalEval
      end>
    Instances = <
      item
        Name = 'scriptCode'
        DataType = 'TStrings'
        OnInstantiate = dws2UnitVariablesscriptCodeInstantiate
      end>
    Records = <
      item
        Name = 'TPoint'
        Members = <
          item
            Name = 'x'
            DataType = 'Integer'
          end
          item
            Name = 'y'
            DataType = 'Integer'
          end>
      end
      item
        Name = 'TWindowParams'
        Members = <
          item
            Name = 'Left'
            DataType = 'Integer'
          end
          item
            Name = 'Top'
            DataType = 'Integer'
          end
          item
            Name = 'Height'
            DataType = 'Integer'
          end
          item
            Name = 'Width'
            DataType = 'Integer'
          end
          item
            Name = 'Caption'
            DataType = 'String'
          end>
      end
      item
        Name = 'TTestRec'
        Members = <
          item
            Name = 'a'
            DataType = 'TObject'
          end
          item
            Name = 'p'
            DataType = 'TPoint'
          end>
      end>
    Synonyms = <>
    UnitName = 'MyUnit'
    Variables = <
      item
        Name = 'global'
        DataType = 'String'
      end
      item
        Name = 'Caption'
        DataType = 'String'
        OnReadVar = dws2UnitVariablestestReadVar
        OnWriteVar = dws2UnitVariablestestWriteVar
      end>
    Left = 172
    Top = 72
  end
  object Table1: TTable
    DatabaseName = 'DBDEMOS'
    TableName = 'customer.db'
    Left = 104
    Top = 128
    object Table1CustNo: TFloatField
      Alignment = taLeftJustify
      CustomConstraint = 'CustNo IS NOT NULL'
      ConstraintErrorMessage = 'CustNo cannot be blank'
      FieldName = 'CustNo'
      DisplayFormat = 'CN 0000'
      MaxValue = 9999
      MinValue = 1000
    end
    object Table1Company: TStringField
      CustomConstraint = 'X IS NOT NULL'
      ConstraintErrorMessage = 'Company Field has to have a value'
      FieldName = 'Company'
      Size = 30
    end
    object Table1Addr1: TStringField
      FieldName = 'Addr1'
      Size = 30
    end
    object Table1Addr2: TStringField
      FieldName = 'Addr2'
      Size = 30
    end
    object Table1City: TStringField
      FieldName = 'City'
      Size = 15
    end
    object Table1State: TStringField
      FieldName = 'State'
    end
    object Table1Zip: TStringField
      FieldName = 'Zip'
      Size = 10
    end
    object Table1Country: TStringField
      FieldName = 'Country'
    end
    object Table1Phone: TStringField
      FieldName = 'Phone'
      Size = 15
    end
    object Table1FAX: TStringField
      FieldName = 'FAX'
      Size = 15
    end
    object Table1TaxRate: TFloatField
      FieldName = 'TaxRate'
      DisplayFormat = '0.00%'
      MaxValue = 100
    end
    object Table1Contact: TStringField
      FieldName = 'Contact'
    end
    object Table1LastInvoiceDate: TDateTimeField
      FieldName = 'LastInvoiceDate'
    end
  end
  object SimpleDebugger: Tdws2SimpleDebugger
    OnDebug = SimpleDebuggerDoDebug
    Left = 268
    Top = 72
  end
  object Script: TDelphiWebScriptII
    Config.CompilerOptions = []
    Config.MaxDataSize = 0
    Config.ScriptPaths.Strings = (
      'scripts\')
    Config.Timeout = 0
    Left = 172
    Top = 40
  end
  object dws2ComConnector1: Tdws2ComConnector
    Script = Script
    Left = 236
    Top = 72
  end
  object dws2GUIFunctions1: Tdws2GUIFunctions
    Left = 236
    Top = 40
  end
  object dws2FileFunctions1: Tdws2FileFunctions
    Left = 268
    Top = 40
  end
  object dws2HtmlUnit: Tdws2HtmlUnit
    Script = Script
    Left = 248
    Top = 136
  end
  object HtmlFilter: Tdws2HtmlFilter
    PatternClose = '%>'
    PatternEval = '='
    PatternOpen = '<%'
    Left = 216
    Top = 136
  end
end