xbbdemo1.dfm

Delphi XML & XPATH源代码

object frmXBB: TfrmXBB
  Left = 192
  Top = 107
  Width = 672
  Height = 388
  Caption = 'XML Building Blocks'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  ShowHint = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object pgcViews: TPageControl
    Left = 273
    Top = 0
    Width = 391
    Height = 361
    ActivePage = tabTree
    Align = alClient
    TabIndex = 0
    TabOrder = 0
    object tabTree: TTabSheet
      Caption = 'Tree'
      object splTree: TSplitter
        Left = 0
        Top = 229
        Width = 383
        Height = 4
        Cursor = crVSplit
        Align = alBottom
        AutoSnap = False
        MinSize = 100
        ResizeStyle = rsLine
      end
      object trvXML: TTreeView
        Left = 0
        Top = 0
        Width = 383
        Height = 229
        Align = alClient
        HideSelection = False
        Indent = 19
        PopupMenu = popTree
        ReadOnly = True
        TabOrder = 0
        OnChange = trvXMLChange
      end
      object stgXML: TStringGrid
        Left = 0
        Top = 233
        Width = 383
        Height = 100
        Align = alBottom
        ColCount = 2
        DefaultColWidth = 180
        DefaultRowHeight = 20
        FixedCols = 0
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goRowSelect]
        PopupMenu = popStringGrid
        TabOrder = 1
      end
    end
    object tabMemo: TTabSheet
      Caption = 'Memo'
      ImageIndex = 1
      object memXML: TMemo
        Left = 0
        Top = 0
        Width = 383
        Height = 333
        Align = alClient
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object tabWriter: TTabSheet
      Caption = 'Writer'
      ImageIndex = 3
      object memWriter: TMemo
        Left = 0
        Top = 0
        Width = 383
        Height = 333
        Align = alClient
        ReadOnly = True
        ScrollBars = ssBoth
        TabOrder = 0
      end
    end
    object tabWebBrowser: TTabSheet
      Caption = 'Browser'
      ImageIndex = 3
      object webBrowser: TWebBrowser
        Left = 0
        Top = 0
        Width = 383
        Height = 333
        Align = alClient
        TabOrder = 0
        ControlData = {
          4C000000962700006B2200000000000000000000000000000000000000000000
          000000004C000000000000000000000001000000E0D057007335CF11AE690800
          2B2E126208000000000000004C0000000114020000000000C000000000000046
          8000000000000000000000000000000000000000000000000000000000000000
          00000000000000000100000000000000000000000000000000000000}
      end
    end
    object tabComponent: TTabSheet
      Caption = 'Component'
      ImageIndex = 4
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 273
    Height = 361
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 1
    object Shape3: TShape
      Left = 136
      Top = 20
      Width = 5
      Height = 321
      Brush.Color = clBlack
    end
    object Shape2: TShape
      Left = 44
      Top = 72
      Width = 189
      Height = 5
      Brush.Color = clBlack
    end
    object Shape4: TShape
      Left = 44
      Top = 280
      Width = 189
      Height = 5
      Brush.Color = clBlack
    end
    object Shape5: TShape
      Left = 44
      Top = 336
      Width = 189
      Height = 5
      Brush.Color = clBlack
    end
    object Shape1: TShape
      Left = 44
      Top = 16
      Width = 189
      Height = 5
      Brush.Color = clBlack
    end
    object btnParser: TButton
      Left = 8
      Top = 8
      Width = 75
      Height = 25
      Caption = '&Parser'
      TabOrder = 0
      OnClick = btnParserClick
    end
    object btnSQL: TButton
      Left = 8
      Top = 64
      Width = 75
      Height = 25
      Caption = '&SQL'
      TabOrder = 2
      OnClick = btnSQLClick
    end
    object btnTextFile: TButton
      Left = 192
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Text &File'
      TabOrder = 4
      OnClick = btnTextFileClick
    end
    object chkSQL: TCheckBox
      Left = 96
      Top = 68
      Width = 29
      Height = 17
      Caption = '&1'
      TabOrder = 1
    end
    object chkTextFile: TCheckBox
      Left = 152
      Top = 12
      Width = 29
      Height = 17
      Alignment = taLeftJustify
      Caption = '&2'
      TabOrder = 3
    end
    object chkComponent: TCheckBox
      Left = 152
      Top = 68
      Width = 29
      Height = 17
      Alignment = taLeftJustify
      Caption = '&3'
      TabOrder = 5
    end
    object chkTransform: TCheckBox
      Left = 180
      Top = 196
      Width = 29
      Height = 17
      Caption = '&5'
      TabOrder = 10
    end
    object chkTreeView: TCheckBox
      Left = 96
      Top = 276
      Width = 29
      Height = 17
      Caption = '&6'
      TabOrder = 12
    end
    object stxFork: TStaticText
      Left = 100
      Top = 240
      Width = 75
      Height = 25
      Alignment = taCenter
      AutoSize = False
      BevelKind = bkTile
      Caption = 'Fork'
      TabOrder = 9
    end
    object stxTreeView: TStaticText
      Left = 8
      Top = 272
      Width = 75
      Height = 25
      Alignment = taCenter
      AutoSize = False
      BevelKind = bkTile
      Caption = 'TreeView'
      TabOrder = 11
    end
    object stxMemo: TStaticText
      Left = 8
      Top = 328
      Width = 75
      Height = 25
      Alignment = taCenter
      AutoSize = False
      BevelKind = bkTile
      Caption = 'Memo'
      TabOrder = 13
    end
    object btnGo: TBitBtn
      Left = 8
      Top = 168
      Width = 53
      Height = 25
      Caption = '&GO'
      Default = True
      TabOrder = 16
      OnClick = btnGoClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333003333333
        3333333F8333333333333330B03333333333333F8833333333333330BB033333
        3333333F8F83333333333330BBB033333333333F83F8333333333330BBBB0333
        3333333F833F8333333333300BBBB03333333333F833F833333333300BBBBB03
        33333333F8333F833333330BBBBB0003333333F83333FFF333333330BBBBB033
        3333333F83333833333333300BBBBB0333333333F8333F83333333300BBBBBB0
        33333333F83333F83333330BBBBBB000333333F8333338FF33333330BBBBBB03
        3333333F83333F83333333330BBBBBB033333333F83333F8333333330BBBBBBB
        03333333F88888883333333330000000033333333FFFFFFF3333}
      NumGlyphs = 2
    end
    object btnMerge: TBitBtn
      Left = 100
      Top = 96
      Width = 75
      Height = 25
      Caption = '&Merge'
      TabOrder = 6
      OnClick = btnMergeClick
    end
    object btnWriter: TButton
      Left = 192
      Top = 272
      Width = 75
      Height = 25
      Caption = '&Writer'
      TabOrder = 15
      OnClick = btnWriterClick
    end
    object chkWriter: TCheckBox
      Left = 152
      Top = 276
      Width = 29
      Height = 17
      Alignment = taLeftJustify
      Caption = '&8'
      TabOrder = 14
    end
    object btnTimestamp: TBitBtn
      Left = 100
      Top = 144
      Width = 75
      Height = 25
      Caption = '&Timestamp'
      TabOrder = 7
      OnClick = btnTimestampClick
    end
    object chkTimestamp: TCheckBox
      Left = 180
      Top = 148
      Width = 33
      Height = 17
      Caption = '&4'
      TabOrder = 8
    end
    object chkMemo: TCheckBox
      Left = 96
      Top = 332
      Width = 29
      Height = 17
      Caption = '&7'
      TabOrder = 17
    end
    object btnTransform: TBitBtn
      Left = 100
      Top = 192
      Width = 75
      Height = 25
      Caption = 'T&ransform'
      TabOrder = 18
      OnClick = btnTransformClick
    end
    object chkWebBrowser: TCheckBox
      Left = 152
      Top = 332
      Width = 29
      Height = 17
      Alignment = taLeftJustify
      Caption = '&9'
      TabOrder = 19
    end
    object btnComponent: TButton
      Left = 192
      Top = 64
      Width = 75
      Height = 25
      Caption = '&Component'
      TabOrder = 20
      OnClick = btnComponentClick
    end
    object chkParser: TCheckBox
      Left = 96
      Top = 12
      Width = 29
      Height = 17
      Caption = '&0'
      TabOrder = 21
    end
    object stxWebBrowser: TStaticText
      Left = 192
      Top = 328
      Width = 75
      Height = 25
      Alignment = taCenter
      AutoSize = False
      BevelKind = bkTile
      Caption = 'WebBrowser'
      TabOrder = 22
    end
  end
  object xbbParser: TXBBParser
    Consumer = xbbMerge
    XMLSource = 'movie-watcher.xml'
    Left = 8
    Top = 32
  end
  object xbbTreeView: TXBBTreeView
    TreeView = trvXML
    Left = 8
    Top = 244
  end
  object xbbMemo: TXBBMemo
    Memo = memXML
    Left = 8
    Top = 300
  end
  object xbbSQL: TXBBSQL
    Consumer = xbbMerge
    DatabaseName = 'DBDEMOS'
    SQL.Strings = (
      
        'SELECT Biolife."Species No" SpeciesNo, Category, Common_Name Com' +
        'monName,'
      
        'Biolife."Species Name" SpeciesName, Biolife."Length (cm)" Length' +
        'CM,'
      'Notes, Length_In LengthIn'
      'FROM "biolife.db" Biolife')
    OnRecordTagCreate = xbbSQLRecordTagCreate
    Left = 8
    Top = 88
  end
  object xbbMerge: TXBBMerge
    NumDocuments = 2
    Left = 68
    Top = 96
  end
  object dlgOpen: TOpenDialog
    Left = 452
    Top = 68
  end
  object dlgSave: TSaveDialog
    Left = 452
    Top = 120
  end
  object xbbWriter: TXBBWriter
    FileName = 'c:\temp\output.xml'
    Left = 236
    Top = 244
  end
  object xbbTextFile: TXBBTextFile
    Consumer = xbbMerge
    Left = 240
    Top = 32
  end
  object xbbTimestamp: TXBBTimestamp
    Consumer = xbbFork
    Format = 'year=yyyy|month=MM|day=dd'
    InsertAtStart = False
    Left = 68
    Top = 144
  end
  object xbbFork: TXBBFork
    Consumers = <>
    Left = 68
    Top = 240
  end
  object xbbStringGrid: TXBBStringGrid
    SingleNode = False
    StringGrid = stgXML
    Left = 8
    Top = 208
  end
  object xbbTransform: TXBBTransform
    Consumer = xbbFork
    XSLSource = 'movies-html.xsl'
    Left = 66
    Top = 192
  end
  object popStringGrid: TPopupMenu
    Left = 452
    Top = 284
    object mniSingleNode: TMenuItem
      Caption = '&SingleNode'
      OnClick = mniSingleNodeClick
    end
  end
  object xbbWebBrowser: TXBBWebBrowser
    WebBrowser = webBrowser
    Left = 236
    Top = 300
  end
  object xbbComponent: TXBBComponent
    Component = btnGo
    Consumer = xbbMerge
    Left = 240
    Top = 88
  end
  object popTree: TPopupMenu
    Left = 452
    Top = 172
    object mniExpand: TMenuItem
      Tag = 1
      Caption = '&Expand node'
      OnClick = mniExpandCollapseClick
    end
    object mniCollapse: TMenuItem
      Caption = '&Collapse node'
      OnClick = mniExpandCollapseClick
    end
  end
  object xbbComponentCreate: TXBBComponentCreate
    Left = 236
    Top = 208
  end
end