treeed.xfm

第三方控件：PaintGrid.pas 网格型仪表控件源文件 Mymeter.pas 圆型仪表控件源文件 Project1是这两个控件的使用范例。 该

          Width = 73
          Height = 17
          Caption = '&Units'
          Checked = True
          State = cbChecked
          TabOrder = 1
          OnClick = CBRulersUnitsClick
        end
        object CBUnits: TComboFlat
          Left = 83
          Top = 29
          Width = 81
          TabOrder = 2
          OnChange = CBUnitsChange
          Items.Strings = (
            'Pixels'
            'Centimeters'
            'Inches')
        end
      end
    end
    object TabSheet12: TTabSheet
      Caption = 'Handles'
      object Label15: TLabel
        Left = 216
        Top = 13
        Width = 23
        Height = 13
        Alignment = taRightJustify
        Caption = '&Size:'
        FocusControl = EHandleSize
      end
      object BHandlePen: TButtonPen
        Left = 93
        Top = 8
        Caption = '&Border...'
        TabOrder = 0
        OnClick = BHandlePenClick
      end
      object EHandleSize: TEdit
        Left = 244
        Top = 10
        Width = 26
        Height = 21
        TabOrder = 1
        Text = '0'
        OnChange = EHandleSizeChange
      end
      object UDHandleSize: TUpDown
        Left = 270
        Top = 10
        Width = 15
        Height = 21
        Associate = EHandleSize
        TabOrder = 2
      end
      object BHandleColor: TButtonColor
        Left = 4
        Top = 8
        Caption = '&Color...'
        TabOrder = 3
        OnClick = BHandleColorClick
      end
    end
    object TabSheet1: TTabSheet
      Caption = 'Print'
      ImageIndex = 10
      object Label10: TLabel
        Left = 11
        Top = 8
        Width = 59
        Height = 13
        Alignment = taRightJustify
        Caption = 'Page &Width:'
        FocusControl = EPageWidth
      end
      object Label11: TLabel
        Left = 8
        Top = 34
        Width = 62
        Height = 13
        Alignment = taRightJustify
        Caption = 'Page &Height:'
        FocusControl = EPageHeight
      end
      object CBPrinterDefault: TCheckBox
        Left = 155
        Top = 7
        Width = 129
        Height = 17
        Caption = 'Use Printer &defaults'
        Checked = True
        State = cbChecked
        TabOrder = 0
        OnClick = CBPrinterDefaultClick
      end
      object EPageWidth: TEdit
        Left = 76
        Top = 4
        Width = 49
        Height = 21
        TabOrder = 1
        Text = '1'
        OnChange = EPageWidthChange
      end
      object UDPageWidth: TUpDown
        Left = 125
        Top = 4
        Width = 16
        Height = 21
        Associate = EPageWidth
        Min = 1
        Max = 32000
        Position = 1
        TabOrder = 2
        Thousands = False
      end
      object EPageHeight: TEdit
        Left = 76
        Top = 30
        Width = 49
        Height = 21
        TabOrder = 3
        Text = '1'
        OnChange = EPageHeightChange
      end
      object UDPageHeight: TUpDown
        Left = 125
        Top = 30
        Width = 16
        Height = 21
        Associate = EPageHeight
        Min = 1
        Max = 32000
        Position = 1
        TabOrder = 4
        Thousands = False
      end
      object BPageBorder: TButtonPen
        Left = 153
        Top = 29
        Width = 112
        Caption = 'Page &Border...'
        TabOrder = 5
        OnClick = BPageBorderClick
      end
      object CBPrintPanel: TCheckBox
        Left = 307
        Top = 7
        Width = 126
        Height = 17
        Caption = '&Print panel color'
        TabOrder = 6
        OnClick = CBPrintPanelClick
      end
      object CBPrintPageBorder: TCheckBox
        Left = 307
        Top = 33
        Width = 126
        Height = 17
        Caption = 'Print P&age border'
        TabOrder = 7
        OnClick = CBPrintPageBorderClick
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Text Editor'
      object Label6: TLabel
        Left = 16
        Top = 32
        Width = 30
        Height = 13
        Alignment = taRightJustify
        Caption = '&Mode:'
        FocusControl = CBTextMode
      end
      object Label14: TLabel
        Left = 152
        Top = 8
        Width = 21
        Height = 13
        Alignment = taRightJustify
        Caption = '&Key:'
        FocusControl = CBTextKey
      end
      object Label16: TLabel
        Left = 152
        Top = 32
        Width = 35
        Height = 13
        Alignment = taRightJustify
        Caption = 'M&ouse:'
      end
      object CBTextEnabled: TCheckBox
        Left = 16
        Top = 8
        Width = 97
        Height = 17
        Caption = '&Enabled'
        Checked = True
        State = cbChecked
        TabOrder = 0
        OnClick = CBTextEnabledClick
      end
      object CBTextMode: TComboFlat
        Left = 56
        Top = 29
        Width = 81
        TabOrder = 1
        OnChange = CBTextModeChange
        Items.Strings = (
          'Key'
          'Mouse'
          'Both')
      end
      object CBTextKey: TComboFlat
        Left = 192
        Top = 5
        Width = 91
        TabOrder = 2
        OnChange = CBTextKeyChange
      end
      object CBTextMouse: TComboFlat
        Left = 192
        Top = 29
        Width = 91
        TabOrder = 3
        OnChange = CBTextMouseChange
        Items.Strings = (
          'Left'
          'Middle'
          'Right')
      end
      object RadioGroup1: TRadioGroup
        Left = 295
        Top = -1
        Width = 185
        Height = 59
        Caption = 'Use Node:'
        TabOrder = 6
      end
      object CBTextFont: TCheckBox
        Left = 304
        Top = 14
        Width = 57
        Height = 17
        Caption = 'Fo&nt'
        TabOrder = 7
        OnClick = CBTextFontClick
      end
      object CBTextSize: TCheckBox
        Left = 400
        Top = 14
        Width = 65
        Height = 17
        Caption = '&Size'
        Checked = True
        State = cbChecked
        TabOrder = 4
        OnClick = CBTextSizeClick
      end
      object CBTextFormat: TCheckBox
        Left = 304
        Top = 35
        Width = 89
        Height = 17
        Caption = '&Format'
        TabOrder = 5
        OnClick = CBTextFormatClick
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 454
    Width = 562
    Height = 19
    Panels = <
      item
        Width = 150
      end
      item
        Width = 150
      end
      item
        Alignment = taCenter
        Width = 100
      end
      item
        Alignment = taCenter
        Width = 30
      end
      item
        Alignment = taCenter
        Width = 50
      end
      item
        Width = 36
      end
      item
        Width = 30
      end
      item
        Width = 30
      end>
  end
  object PanelToolbar: TPanel
    Left = 0
    Top = 89
    Width = 562
    Height = 56
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    object PageShapes: TPageControl
      Left = 113
      Top = 0
      Width = 449
      Height = 56
      ActivePage = TabSheet9
      Align = alClient
      HotTrack = True
      TabOrder = 0
      OnChange = PageShapesChange
      object TabSheet9: TTabSheet
        Caption = 'Standard'
        object SpeedNormal: TSpeedButton
          Tag = -1
          Left = 2
          Top = 1
          Width = 25
          Height = 25
          Hint = 'Selection'
          GroupIndex = 1
          Down = True
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            0400000000000001000000000000000000001000000010000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333333FFF3333333333333707333333333333F777F3333333333370
            9033333333F33F7737F33333373337090733333337F3F7737733333330037090
            73333333377F7737733333333090090733333333373773773333333309999073
            333333337F333773333333330999903333333333733337F33333333099999903
            33333337F3333F7FF33333309999900733333337333FF7773333330999900333
            3333337F3FF7733333333309900333333333337FF77333333333309003333333
            333337F773333333333330033333333333333773333333333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = SpeedNormalClick
        end
        object SpeedLink: TSpeedButton
          Tag = -1
          Left = 29
          Top = 1
          Width = 25
          Height = 25
          Hint = 'Connect nodes'
          GroupIndex = 1
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            0400000000000001000000000000000000001000000010000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000003
            33333333777777733333333330CCC03333333333F7777733F3333330330C0330
            33333337337773373333333333303333333333F33337333333F3303333333333
            3033373333333333373333333333333333333F3333333333333F033333333333
            3303733333333333337333333333333333333F3333333333333F033333333333
            3303733333333333FF7333333333333000333FFFFF33333777FF000003333307
            B70377777F333377777F09990333330BBB0377777F333377777F099903333307
            B70377777F3333777773099903333330003377777F3333377733000003333330
            3333777773F3F3F7333333333030303333333333373737333333}
          NumGlyphs = 2
          ParentShowHint = False
          ShowHint = True
          OnClick = SpeedLinkClick
        end
      end
    end
    object PanelToolButtons: TPanel
      Left = 0
      Top = 0
      Width = 113
      Height = 56
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 1
      object ButtonNew: TSpeedButton
        Left = 1
        Top = 2
        Width = 27
        Height = 25
        Hint = 'New Tree'
        Flat = True
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          1800000000000003000000000000000000000000000000000000FF00FFFF00FF
          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          0000000000000000000000000000000000000000000000000000000000000000
          00FF00FFFF00FFFF00FFFF00FFFF00FF000000FF00FFFF00FFFF00FFFF00FFFF
          00FFFF00FFFF00FFFF00FFFF00FF000000FF00FFFF00FFFF00FFFF00FFFF00FF
          000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0000
          00FF00FFFF00FFFF00FFFF00FFFF00FF000000FF00FFFF00FFFF00FFFF00FFFF
          00FFFF00FFFF00FFFF00FFFF00FF000000FF00FFFF00FFFF00FFFF00FFFF00FF
          000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0000
          00FF00FFFF00FFFF00FFFF00FFFF00FF000000FF00FFFF00FFFF00FFFF00FFFF
          00FFFF00FFFF00FFFF00FFFF00FF000000FF00FFFF00FFFF00FFFF00FFFF00FF
          000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0000
          00FF00FFFF00FFFF00FFFF00FFFF00FF000000FF00FFFF00FFFF00FFFF00FFFF
          00FFFF00FFFF00FFFF00FFFF00FF000000FF00FFFF00FFFF00FFFF00FFFF00FF
          000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0000
          00FF00FFFF00FFFF00FFFF00FFFF00FF000000FF00FFFF00FFFF00FFFF00FFFF