main.~dfm

此程序演示了利用xml控件（当然也可以不通过xml控件）

object frmMain: TfrmMain
  Left = 394
  Top = 127
  Width = 783
  Height = 540
  Caption = 'NHXML'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000008800000000000000000000000000000888000000000000000
    000000000000000880000000000000000000000000000F088000000000000000
    000000000000FF08800000000000000000000000080FFF088000000000000000
    00000088880FFF08888800000000000000008880007FFF088888880000000000
    00080007FFFFFF70008888800000000000007FFFFFFFFFFFF700888800000000
    007FFFFFFFFFFFFFFFF70888800000000FFFFFFFFFFFFFFFFFFFF08888000000
    FFFFFFFFFFFFFFFFFFFFFF088880008FFFFFFFFCCCCCCCCCFFFFFFF08880087F
    FFFFFFFFFCCCCCFFFFFFFFF7088808FFFFFFFFFFFCCCCCFFFFFFFFFF088887FF
    FFFFFFFFFCCCCCFFFFFFFFFF70888FFFFFFFFFFFFCCCCCFFFFFFFFFFF0888FFF
    FFFFFFFFFCCCCCFFFFFFFFFFF0888FFFFFFFFFFFFCCCCCFFFFFFFFFFF0888FFF
    FFFFFFFFFCCCCCFFFFFFFFFFF0888FFFFFFFFFFCCCCCCCFFFFFFFFFFF08087FF
    FFFFFFFFFFFFFFFFFFFFFFFF708008FFFFFFFFFFFFFFFFFFFFFFFFFF0800087F
    FFFFFFFF7CCCC7FFFFFFFFF70000008FFFFFFFFFCCCCCCFFFFFFFFF000000008
    FFFFFFFFCCCCCCFFFFFFFF00000000008FFFFFFF7CCCC7FFFFFFF00000000000
    087FFFFFFFFFFFFFFFF780000000000000887FFFFFFFFFFFF788000000000000
    00008887FFFFFF7888000000000000000000000888888880000000000000FFFF
    E7FFFFFFC7FFFFFF87FFFFFF07FFFFFE07FFFFF807FFFFC000FFFF00003FFE00
    001FFC00000FF8000007F0000003E0000001C000000180000000800000000000
    0000000000000000000000000000000000000000000100000001800000038000
    0007C000000FE000001FF000003FF800007FFC0000FFFF0003FFFFE01FFF}
  Menu = mnuMain
  OldCreateOrder = False
  ShowHint = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ControlBar1: TControlBar
    Left = 0
    Top = 0
    Width = 775
    Height = 26
    Align = alTop
    AutoSize = True
    BevelEdges = []
    BevelInner = bvNone
    BevelOuter = bvNone
    BevelKind = bkFlat
    TabOrder = 0
    object tbMain: TToolBar
      Left = 11
      Top = 2
      Width = 150
      Height = 22
      Caption = 'tbMain'
      EdgeBorders = []
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      Images = ilMenu
      TabOrder = 0
      object tbNew: TToolButton
        Left = 0
        Top = 0
        Action = acFileNew
      end
      object tbOpen: TToolButton
        Left = 23
        Top = 0
        Action = acFileOpen
      end
      object tbSave: TToolButton
        Left = 46
        Top = 0
        Action = acFileSaveAs
      end
    end
  end
  object sbMain: TStatusBar
    Left = 0
    Top = 475
    Width = 775
    Height = 19
    Panels = <>
    SimplePanel = True
  end
  object nbMain: TNotebook
    Left = 0
    Top = 26
    Width = 775
    Height = 449
    Align = alClient
    TabOrder = 2
    object TPage
      Left = 0
      Top = 0
      Caption = 'Default'
      object Splitter1: TSplitter
        Left = 329
        Top = 0
        Height = 449
      end
      object nbData: TNotebook
        Left = 332
        Top = 0
        Width = 443
        Height = 449
        Align = alClient
        TabOrder = 0
        object TPage
          Left = 0
          Top = 0
          Caption = 'Default'
          object pcData: TPageControl
            Left = 0
            Top = 0
            Width = 443
            Height = 449
            ActivePage = tsTags
            Align = alClient
            TabOrder = 0
            object tsTags: TTabSheet
              Caption = 'Attributes'
              object stAttributes: TVirtualStringTree
                Left = 0
                Top = 0
                Width = 435
                Height = 421
                Align = alClient
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'Arial'
                Font.Style = []
                Header.AutoSizeIndex = 0
                Header.Font.Charset = DEFAULT_CHARSET
                Header.Font.Color = clWindowText
                Header.Font.Height = -11
                Header.Font.Name = 'MS Sans Serif'
                Header.Font.Style = []
                Header.Options = [hoColumnResize, hoDrag, hoVisible]
                Images = ilData
                Indent = 0
                ParentFont = False
                PopupMenu = pmAttributes
                TabOrder = 0
                TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
                TreeOptions.SelectionOptions = [toExtendedFocus]
                OnChange = stAttributesChange
                OnEditing = stAttributesEditing
                OnGetText = stAttributesGetText
                OnGetImageIndex = stAttributesGetImageIndex
                OnKeyDown = stAttributesKeyDown
                OnNewText = stAttributesNewText
                Columns = <
                  item
                    Position = 0
                    Width = 150
                    WideText = 'Name'
                  end
                  item
                    Position = 1
                    Width = 200
                    WideText = 'Value'
                  end>
              end
            end
          end
        end
      end
      object nbTree: TNotebook
        Left = 0
        Top = 0
        Width = 329
        Height = 449
        Align = alLeft
        TabOrder = 1
        object TPage
          Left = 0
          Top = 0
          Caption = 'Default'
          object pcTree: TPageControl
            Left = 0
            Top = 0
            Width = 329
            Height = 449
            ActivePage = tsXmlTree
            Align = alClient
            TabOrder = 0
            OnChange = pcTreeChange
            object tsXmlTree: TTabSheet
              Caption = 'XML Tree'
              object stXmlTree: TVirtualStringTree
                Left = 0
                Top = 0
                Width = 321
                Height = 421
                Align = alClient
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'Arial'
                Font.Style = []
                Header.AutoSizeIndex = 0
                Header.Font.Charset = DEFAULT_CHARSET
                Header.Font.Color = clWindowText
                Header.Font.Height = -11
                Header.Font.Name = 'MS Sans Serif'
                Header.Font.Style = []
                Header.Options = [hoColumnResize, hoVisible]
                HintAnimation = hatNone
                Images = ilData
                Indent = 8
                NodeDataSize = 4
                ParentFont = False
                PopupMenu = pmTree
                TabOrder = 0
                TreeOptions.AutoOptions = [toAutoDropExpand, toAutoTristateTracking]
                TreeOptions.MiscOptions = [toAcceptOLEDrop, toInitOnSave, toToggleOnDblClick]
                TreeOptions.PaintOptions = [toShowButtons, toShowRoot, toShowTreeLines]
                TreeOptions.SelectionOptions = [toExtendedFocus]
                OnChange = stXmlTreeChange
                OnEditing = stXmlTreeEditing
                OnExpanding = stXmlTreeExpanding
                OnGetText = stXmlTreeGetText
                OnGetImageIndex = stXmlTreeGetImageIndex