treeed.xfm

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

object TreeEditor: TTreeEditor
  Left = 272
  Top = 183
  AutoScroll = False
  ClientHeight = 473
  ClientWidth = 562
  Color = clBtnFace
  ParentFont = True
  Menu = MainMenu1
  OldCreateOrder = True
  Position = poDefault
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 145
    Top = 195
    Height = 259
  end
  object PageTree: TPageControl
    Left = 0
    Top = 0
    Width = 562
    Height = 89
    ActivePage = TabGeneral
    Align = alTop
    HotTrack = True
    TabOrder = 0
    Visible = False
    OnChange = PageTreeChange
    object TabGeneral: TTabSheet
      Caption = 'General'
      object Label4: TLabel
        Left = 16
        Top = 10
        Width = 30
        Height = 13
        Alignment = taRightJustify
        Caption = '&Zoom:'
      end
      object Label5: TLabel
        Left = 243
        Top = 10
        Width = 26
        Height = 13
        Caption = '100%'
      end
      object TrackBarZoom: TTrackBar
        Left = 54
        Top = 6
        Width = 157
        Height = 32
        Max = 1000
        Min = 1
        Frequency = 100
        Position = 100
        TabOrder = 0
        OnChange = TrackBarZoomChange
      end
      object CBBuffered: TCheckBox
        Left = 309
        Top = 34
        Width = 143
        Height = 17
        Caption = '&Buffered display'
        TabOrder = 1
        OnClick = CBBufferedClick
      end
      object CBZoomCentered: TCheckBox
        Left = 309
        Top = 8
        Width = 121
        Height = 17
        Caption = 'Zoom from &Center'
        TabOrder = 2
        OnClick = CBZoomCenteredClick
      end
      object UDZoom: TUpDown
        Left = 203
        Top = 8
        Width = 33
        Height = 16
        Min = 1
        Max = 1000
        Orientation = udHorizontal
        Position = 100
        TabOrder = 3
        OnClick = UDZoomClick
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Cross Box'
      object Label8: TLabel
        Left = 110
        Top = 9
        Width = 23
        Height = 13
        Alignment = taRightJustify
        Caption = 'S&ize:'
      end
      object Label13: TLabel
        Left = 380
        Top = 9
        Width = 26
        Height = 13
        Alignment = taRightJustify
        Caption = 'S&tyle:'
        FocusControl = CBCrossStyle
      end
      object BCrossBorder: TButtonPen
        Left = 8
        Top = 4
        Caption = '&Border...'
        TabOrder = 0
        OnClick = BCrossBorderClick
      end
      object SignPenButton: TButtonPen
        Left = 192
        Top = 4
        Caption = '&Sign pen...'
        TabOrder = 1
        OnClick = SignPenButtonClick
      end
      object Button6: TButton
        Left = 280
        Top = 4
        Width = 87
        Height = 25
        Caption = '&Pattern...'
        TabOrder = 2
        OnClick = Button6Click
      end
      object Edit2: TEdit
        Left = 135
        Top = 6
        Width = 27
        Height = 21
        TabOrder = 3
        Text = '0'
        OnChange = Edit2Change
      end
      object UDCrossSize: TUpDown
        Left = 162
        Top = 6
        Width = 15
        Height = 21
        Associate = Edit2
        TabOrder = 4
      end
      object CBCrossStyle: TComboFlat
        Left = 411
        Top = 5
        Width = 91
        TabOrder = 5
        OnChange = CBCrossStyleChange
        Items.Strings = (
          'Rectangle'
          'Diamond')
      end
      object BCrossColor: TButtonColor
        Left = 8
        Top = 33
        Caption = '&Color...'
        TabOrder = 6
        OnClick = BCrossColorClick
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'Panel'
      object Label3: TLabel
        Left = 2
        Top = 39
        Width = 30
        Height = 13
        Alignment = taRightJustify
        Caption = '&Mode:'
      end
      object Label19: TLabel
        Left = 288
        Top = 7
        Width = 57
        Height = 13
        Alignment = taRightJustify
        Caption = 'Bevel &Inner:'
        FocusControl = CBBevelInner
      end
      object Label20: TLabel
        Left = 286
        Top = 30
        Width = 59
        Height = 13
        Alignment = taRightJustify
        Caption = 'Bevel &Outer:'
        FocusControl = CBBevelOuter
      end
      object BBackImage: TButton
        Left = 4
        Top = 2
        Width = 137
        Height = 25
        Caption = 'Clear &Back Image'
        TabOrder = 0
        OnClick = BBackImageClick
      end
      object CBImageStyle: TComboFlat
        Left = 36
        Top = 35
        Width = 109
        TabOrder = 1
        OnChange = CBImageStyleChange
        Items.Strings = (
          'Stretched'
          'Tiled'
          'Centered')
      end
      object CBBevelInner: TComboFlat
        Left = 350
        Top = 3
        Width = 73
        TabOrder = 2
        OnChange = CBBevelInnerChange
        Items.Strings = (
          'None'
          'Lowered'
          'Raised'
          'Space')
      end
      object CBBevelOuter: TComboFlat
        Left = 350
        Top = 27
        Width = 73
        TabOrder = 3
        OnChange = CBBevelOuterChange
        Items.Strings = (
          'None'
          'Lowered'
          'Raised'
          'Space')
      end
      object CBBorder: TCheckBox
        Left = 174
        Top = 36
        Width = 83
        Height = 17
        Caption = '&Border'
        TabOrder = 4
        OnClick = CBBorderClick
      end
      object ButtonColor1: TButtonColor
        Left = 172
        Top = 2
        Caption = '&Color...'
        TabOrder = 5
        OnClick = ButtonColor1Click
      end
      object BGradPanel: TButton
        Left = 440
        Top = 3
        Width = 75
        Height = 25
        Caption = '&Gradient...'
        TabOrder = 6
        OnClick = PanelGradientClick
      end
    end
    object TabSheet5: TTabSheet
      Caption = 'Align'
      ParentShowHint = False
      ShowHint = True
      object SpeedButton1: TSpeedButton
        Left = 192
        Top = 8
        Width = 25
        Height = 25
        Hint = 'Align to left'
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000010000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333333333333333333333333333333333333333333333333FF333333333333
          3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00
          E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0
          E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0
          E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00
          000033333373FF77777733333330003333333333333777333333333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
        OnClick = SpeedButton1Click
      end
      object SpeedButton2: TSpeedButton
        Left = 224
        Top = 8
        Width = 25
        Height = 25
        Hint = 'Align to right'
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000010000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333333333333FFF333333333333000333333333
          3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
          3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
          0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
          BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
          33337777773FF733333333333300033333333333337773333333333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
        OnClick = SpeedButton2Click
      end
      object SpeedButton3: TSpeedButton
        Left = 16
        Top = 8
        Width = 25
        Height = 25
        Hint = 'Align to top'
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000010000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
          333333777777777F33333330B00000003333337F7777777F3333333000000000
          333333777777777F333333330EEEEEE033333337FFFFFF7F3333333300000000
          333333377777777F3333333330BFBFB03333333373333373F33333330BFBFBFB
          03333337F33333F7F33333330FBFBF0F03333337F33337F7F33333330BFBFB0B
          03333337F3F3F7F7333333330F0F0F0033333337F7F7F773333333330B0B0B03
          3333333737F7F7F333333333300F0F03333333337737F7F33333333333300B03
          333333333377F7F33333333333330F03333333333337F7F33333333333330B03
          3333333333373733333333333333303333333333333373333333}
        NumGlyphs = 2
        OnClick = SpeedButton3Click
      end
      object SpeedButton4: TSpeedButton
        Left = 48
        Top = 8
        Width = 25
        Height = 25
        Hint = 'Align to bottom'
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000010000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333033333
          33333333373F33333333333330B03333333333337F7F33333333333330F03333
          333333337F7FF3333333333330B00333333333337F773FF33333333330F0F003
          333333337F7F773F3333333330B0B0B0333333337F7F7F7F3333333300F0F0F0
          333333377F73737F33333330B0BFBFB03333337F7F33337F33333330F0FBFBF0
          3333337F7333337F33333330BFBFBFB033333373F3333373333333330BFBFB03
          33333337FFFFF7FF3333333300000000333333377777777F333333330EEEEEE0
          33333337FFFFFF7FF3333333000000000333333777777777F33333330000000B
          03333337777777F7F33333330000000003333337777777773333}
        NumGlyphs = 2
        OnClick = SpeedButton4Click
      end
      object SpeedButton5: TSpeedButton
        Left = 264
        Top = 8
        Width = 25
        Height = 25
        Hint = 'Min. Width'
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          333333333333333333333000003333033333337777733337333330FFF0333033
          333333733373337FFFF330FFF03300000003337FFF7337777773300000333033
          3333337777733373333333333333330333333333333333373333333333333333
          3333333333333333333333333333333333333333333333333333300000000003
          3333337777777777333330FFFFFFFF033333337333333337333330FFFFFFFF03
          3333337FFFFFFFF7333330000000000333333377777777773333333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
        OnClick = SpeedButton5Click
      end
      object SpeedButton6: TSpeedButton
        Left = 296
        Top = 8
        Width = 25
        Height = 25
        Hint = 'Max. Width'
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          333333333333333333333000003333330333337777733333733330FFF0333333
          303333733373333FF7F330FFF03300000003337FFF7337777773300000333333
          3033337777733333373333333333333303333333333333337333333333333333
          3333333333333333333333333333333333333333333333333333300000000003
          3333337777777777333330FFFFFFFF033333337333333337333330FFFFFFFF03
          3333337FFFFFFFF7333330000000000333333377777777773333333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
        OnClick = SpeedButton5Click
      end
      object SpeedButton7: TSpeedButton
        Left = 84
        Top = 8
        Width = 25
        Height = 25