treeed.xfm

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

        Hint = 'Min. Height'
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333330333333333333333733333333333333303333333
          3333333373333333333333330333333333333333733333333333333303333333
          33333333733333333333330303033000033333737373377773333330003330FF
          03333337773337F373333333033330FF03333333733337F373333333333330FF
          03333333333337F373333333333330FF03333333333337F373333300003330FF
          03333377773337F37333330FF03330FF0333337F373337F37333330FF03330FF
          0333337F373337F37333330FF03330FF0333337F373337F37333330000333000
          0333337777333777733333333333333333333333333333333333}
        NumGlyphs = 2
        OnClick = SpeedButton7Click
      end
      object SpeedButton8: TSpeedButton
        Left = 116
        Top = 8
        Width = 25
        Height = 25
        Hint = 'Max. Height'
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333330333333333333333733333333333333000333333
          3333333777333333333333030303333333333373737333333333333303333333
          33333333733333333333333303333000033333337333377773333333033330FF
          03333333733337F373333333033330FF03333333733337F373333333333330FF
          03333333333337F373333333333330FF03333333333337F373333300003330FF
          03333377773337F37333330FF03330FF0333337F373337F37333330FF03330FF
          0333337F373337F37333330FF03330FF0333337F373337F37333330000333000
          0333337777333777733333333333333333333333333333333333}
        NumGlyphs = 2
        OnClick = SpeedButton7Click
      end
    end
    object TabSheet6: TTabSheet
      Caption = 'Mouse'
      object Label7: TLabel
        Left = 185
        Top = 9
        Width = 57
        Height = 13
        Caption = 'Allow &Scroll:'
      end
      object Label9: TLabel
        Left = 88
        Top = 28
        Width = 30
        Height = 13
        Alignment = taRightJustify
        Caption = 'S&teps:'
        FocusControl = Edit3
      end
      object Label1: TLabel
        Left = 376
        Top = 9
        Width = 69
        Height = 13
        Caption = 'Mouse &Wheel:'
      end
      object CBAllowZoom: TCheckBox
        Left = 8
        Top = 5
        Width = 97
        Height = 17
        Caption = 'Allow &Zoom'
        TabOrder = 0
        OnClick = CBAllowZoomClick
      end
      object CBAllowScroll: TComboFlat
        Left = 185
        Top = 25
        Width = 89
        TabOrder = 1
        OnChange = CBAllowScrollChange
        Items.Strings = (
          'None'
          'Horizontal'
          'Vertical'
          'Both')
      end
      object CBZoomAnimated: TCheckBox
        Left = 8
        Top = 28
        Width = 73
        Height = 17
        Caption = '&Animated'
        TabOrder = 2
        OnClick = CBZoomAnimatedClick
      end
      object Edit3: TEdit
        Left = 122
        Top = 25
        Width = 30
        Height = 21
        TabOrder = 3
        Text = '0'
        OnChange = Edit3Change
      end
      object UpDown2: TUpDown
        Left = 152
        Top = 25
        Width = 15
        Height = 21
        Associate = Edit3
        TabOrder = 4
      end
      object CBShowHint: TCheckBox
        Left = 285
        Top = 7
        Width = 84
        Height = 17
        Caption = 'Show &Hints'
        TabOrder = 5
        OnClick = CBShowHintClick
      end
      object CBHotTrack: TCheckBox
        Left = 285
        Top = 27
        Width = 84
        Height = 17
        Caption = '&HotTrack'
        TabOrder = 6
        OnClick = CBHotTrackClick
      end
      object CBWheel: TComboFlat
        Left = 376
        Top = 25
        Width = 113
        TabOrder = 7
        OnChange = CBWheelChange
        Items.Strings = (
          'Select nodes'
          'Scroll Vert.'
          'Scroll Horiz.'
          'Zoom'
          'None')
      end
    end
    object TabSheet7: TTabSheet
      Caption = 'Selected'
      object Button7: TButtonPen
        Left = 170
        Top = 31
        Caption = '&Border...'
        TabOrder = 0
      end
      object CBSelectedColorDef: TCheckBox
        Left = 96
        Top = 9
        Width = 57
        Height = 17
        Caption = '&Default'
        TabOrder = 1
        OnClick = CBSelectedColorDefClick
      end
      object CBSelectedTextDef: TCheckBox
        Left = 96
        Top = 37
        Width = 57
        Height = 17
        Caption = 'D&efault'
        TabOrder = 2
        OnClick = CBSelectedTextDefClick
      end
      object CBScrollToView: TCheckBox
        Left = 172
        Top = 8
        Width = 97
        Height = 17
        Caption = '&Scroll to view'
        TabOrder = 3
        OnClick = CBScrollToViewClick
      end
      object Button3: TButtonPen
        Left = 264
        Top = 31
        Width = 131
        Caption = 'UnFocused Border...'
        TabOrder = 4
        OnClick = Button3Click
      end
      object CBSingleSelect: TCheckBox
        Left = 410
        Top = 34
        Width = 97
        Height = 17
        Caption = 'Single selection'
        TabOrder = 5
        OnClick = CBSingleSelectClick
      end
      object CBAllowDelete: TCheckBox
        Left = 410
        Top = 10
        Width = 97
        Height = 17
        Caption = 'Allow Delete'
        TabOrder = 6
        OnClick = CBAllowDeleteClick
      end
      object BSelectedColor: TButtonColor
        Left = 6
        Top = 4
        Caption = '&Color...'
        TabOrder = 7
        OnClick = BSelectedColorClick
      end
      object BSelectedText: TButtonColor
        Left = 6
        Top = 32
        Caption = '&Text...'
        TabOrder = 8
        OnClick = BSelectedTextClick
      end
      object BUnFocusedColor: TButtonColor
        Left = 264
        Top = 4
        Width = 131
        Caption = 'UnFocused Color...'
        TabOrder = 9
        OnClick = BUnFocusedColorClick
      end
    end
    object TabSheet8: TTabSheet
      Caption = 'Scroll Bars'
      object GroupBox1: TGroupBox
        Left = 5
        Top = 8
        Width = 190
        Height = 43
        Caption = 'Horizontal:'
        TabOrder = 0
        object CBHorizVisible: TCheckBox
          Left = 8
          Top = 15
          Width = 60
          Height = 17
          Caption = '&Visible'
          TabOrder = 0
          OnClick = CBHorizVisibleClick
        end
        object CBHorizAuto: TCheckBox
          Left = 80
          Top = 15
          Width = 105
          Height = 17
          Caption = '&Automatic'
          Checked = True
          State = cbChecked
          TabOrder = 1
          OnClick = CBHorizAutoClick
        end
      end
      object GroupBox2: TGroupBox
        Left = 205
        Top = 8
        Width = 190
        Height = 43
        Caption = 'Vertical:'
        TabOrder = 1
        object CBVertVisible: TCheckBox
          Left = 8
          Top = 15
          Width = 61
          Height = 17
          Caption = 'V&isible'
          TabOrder = 0
          OnClick = CBVertVisibleClick
        end
        object CBVertAuto: TCheckBox
          Left = 80
          Top = 15
          Width = 105
          Height = 17
          Caption = 'A&utomatic'
          Checked = True
          State = cbChecked
          TabOrder = 1
          OnClick = CBVertAutoClick
        end
      end
      object CBScrollFlat: TCheckBox
        Left = 408
        Top = 24
        Width = 97
        Height = 17
        Caption = '&Flat'
        Checked = True
        State = cbChecked
        TabOrder = 2
        OnClick = CBScrollFlatClick
      end
    end
    object TabSheet10: TTabSheet
      Caption = 'Grid'
      object Label12: TLabel
        Left = 123
        Top = 7
        Width = 23
        Height = 13
        Alignment = taRightJustify
        Caption = '&Size:'
        FocusControl = Edit5
      end
      object Label2: TLabel
        Left = 194
        Top = 7
        Width = 5
        Height = 13
        Caption = 'x'
      end
      object CBSnapGrid: TCheckBox
        Left = 256
        Top = 6
        Width = 97
        Height = 17
        Caption = '&Snap to grid'
        Checked = True
        State = cbChecked
        TabOrder = 0
        OnClick = CBSnapGridClick
      end
      object CBGrid: TCheckBox
        Left = 4
        Top = 5
        Width = 78
        Height = 17
        Caption = 'Grid &Visible'
        TabOrder = 1
        OnClick = CBGridClick
      end
      object UpDown3: TUpDown
        Left = 174
        Top = 4
        Width = 15
        Height = 21
        Associate = Edit5
        Max = 1000
        TabOrder = 2
      end
      object Edit5: TEdit
        Left = 149
        Top = 4
        Width = 25
        Height = 21
        TabOrder = 3
        Text = '0'
        OnChange = Edit5Change
      end
      object BGridColor: TButtonColor
        Left = 4
        Top = 29
        Caption = '&Color...'
        TabOrder = 4
        OnClick = BGridColorClick
      end
      object BGridPen: TButtonPen
        Left = 96
        Top = 29
        Caption = '&Pen...'
        TabOrder = 5
        OnClick = BGridPenClick
      end
      object BGridBigPen: TButtonPen
        Left = 182
        Top = 29
        Caption = '&Big Pen...'
        TabOrder = 6
        OnClick = BGridBigPenClick
      end
      object Edit7: TEdit
        Left = 205
        Top = 4
        Width = 25
        Height = 21
        TabOrder = 7
        Text = '0'
        OnChange = Edit5Change
      end
      object UpDown1: TUpDown
        Left = 230
        Top = 4
        Width = 15
        Height = 21
        Associate = Edit7
        Max = 1000
        TabOrder = 8
      end
      object GroupBox3: TGroupBox
        Left = 352
        Top = 1
        Width = 169
        Height = 55
        Caption = 'Rulers:'
        TabOrder = 9
        object CBShowRulers: TCheckBox
          Left = 8
          Top = 15
          Width = 97
          Height = 17
          Caption = 'V&isible'
          Checked = True
          State = cbChecked
          TabOrder = 0
          OnClick = CBShowRulersClick
        end
        object CBRulersUnits: TCheckBox
          Left = 8
          Top = 32