⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 treeed.xfm

📁 第三方控件:PaintGrid.pas 网格型仪表控件源文件 Mymeter.pas 圆型仪表控件源文件 Project1是这两个控件的使用范例。 该
💻 XFM
📖 第 1 页 / 共 5 页
字号:
    end
  end
  object PanelTools: TPanel
    Left = 0
    Top = 145
    Width = 562
    Height = 50
    Align = alTop
    BevelOuter = bvNone
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    object PanelFont: TPanel
      Left = 0
      Top = 0
      Width = 562
      Height = 26
      Align = alTop
      BevelOuter = bvNone
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      object FontBold: TSpeedButton
        Left = 216
        Top = 3
        Width = 23
        Height = 22
        Hint = 'Bold'
        AllowAllUp = True
        GroupIndex = 2
        Flat = True
        OnClick = FontBoldClick
      end
      object FontItalic: TSpeedButton
        Left = 240
        Top = 3
        Width = 23
        Height = 22
        Hint = 'Italic'
        AllowAllUp = True
        GroupIndex = 3
        Flat = True
        OnClick = FontBoldClick
      end
      object FontUnderline: TSpeedButton
        Left = 264
        Top = 3
        Width = 23
        Height = 22
        Hint = 'Underline'
        AllowAllUp = True
        GroupIndex = 4
        Flat = True
        OnClick = FontBoldClick
      end
      object FontStrike: TSpeedButton
        Left = 288
        Top = 3
        Width = 23
        Height = 22
        Hint = 'Strike out'
        AllowAllUp = True
        GroupIndex = 5
        Flat = True
        OnClick = FontBoldClick
      end
      object FontLeftAlign: TSpeedButton
        Left = 312
        Top = 3
        Width = 23
        Height = 22
        Hint = 'Left justify'
        GroupIndex = 6
        Flat = True
        OnClick = FontLeftAlignClick
      end
      object FontCenterAlign: TSpeedButton
        Left = 336
        Top = 3
        Width = 23
        Height = 22
        Hint = 'Centered'
        GroupIndex = 6
        Flat = True
        OnClick = FontLeftAlignClick
      end
      object FontRightAlign: TSpeedButton
        Left = 360
        Top = 3
        Width = 23
        Height = 22
        Hint = 'Right justify'
        GroupIndex = 6
        Flat = True
        OnClick = FontLeftAlignClick
      end
      object ShapeFontColor: TShape
        Left = 7
        Top = 6
        Width = 17
        Height = 17
        Cursor = crHandPoint
        Hint = 'Font Color'
        OnMouseUp = ShapeFontColorMouseUp
      end
      object SBOutline: TSpeedButton
        Left = 436
        Top = 2
        Width = 54
        Height = 24
        Caption = 'Outline...'
        Flat = True
        OnClick = SBOutlineClick
      end
      object PaintBox1: TPaintBox
        Left = 495
        Top = 4
        Width = 20
        Height = 19
        Cursor = crHandPoint
        Hint = 'Font Gradient'
        OnClick = SBFontGradClick
        OnPaint = PaintBox1Paint
      end
      object ComboFonts: TComboFlat
        Left = 29
        Top = 4
        Width = 132
        Hint = 'Font Name'
        Style = csDropDown

        DropDownCount = 15

        TabOrder = 0
        OnChange = ComboFontsChange
      end
      object ComboFontSize: TComboFlat
        Left = 165
        Top = 4
        Width = 45
        Hint = 'Font Size'
        Style = csDropDown


        TabOrder = 1
        OnChange = ComboFontSizeChange
        OnExit = ComboFontSizeExit
        OnKeyDown = ComboFontSizeKeyDown
        Items.Strings = (
          '8'
          '9'
          '10'
          '11'
          '12'
          '14'
          '16'
          '18'
          '20'
          '22'
          '24'
          '26'
          '28'
          '36'
          '48'
          '72'
          '96')
      end
      object EditFontInter: TEdit
        Left = 388
        Top = 3
        Width = 29
        Height = 21
        Hint = 'Inter-char size'
        TabOrder = 2
        Text = '0'
        OnChange = EditFontInterChange
      end
      object UDFontInter: TUpDown
        Left = 417
        Top = 3
        Width = 15
        Height = 21
        Hint = 'Inter-char size'
        Associate = EditFontInter
        Min = -25
        Max = 25
        TabOrder = 3
      end
    end
    object PanelShape: TPanel
      Left = 0
      Top = 26
      Width = 562
      Height = 24
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 1
      object ShapeBorderColor: TShape
        Left = 7
        Top = 2
        Width = 17
        Height = 17
        Cursor = crHandPoint
        Hint = 'Border Color'
        OnMouseUp = ShapeBorderColorMouseUp
      end
      object Bevel1: TBevel
        Left = 112
        Top = 0
        Width = 3
        Height = 20
        Style = bsRaised
      end
      object ShapeBrush: TShape
        Left = 124
        Top = 2
        Width = 17
        Height = 17
        Cursor = crHandPoint
        Hint = 'Color'
        OnMouseUp = ShapeBrushMouseUp
      end
      object Bevel2: TBevel
        Left = 431
        Top = 5
        Width = 6
        Height = 16
        Shape = bsLeftLine
      end
      object ComboPenStyle: TComboFlat
        Left = 29
        Top = 1
        Width = 45
        Height = 19
        Hint = 'Border Style'
        Style = csOwnerDrawFixed


        TabOrder = 0
        OnChange = ComboPenStyleChange
        OnDrawItem = ComboPenStyleDrawItem
        Items.Strings = (
          'Clear'
          'Solid'
          'Dash'
          'Dot'
          'Dash Dot'
          'Dash Dot Dot')
      end
      object BorderWidth: TScrollBar
        Left = 78
        Top = 2
        Width = 26
        Height = 16
        Hint = 'Border width'

        Max = 10
        Min = 1


        Position = 1
        TabOrder = 1
        OnChange = BorderWidthChange
      end
      object ComboBrush: TComboFlat
        Left = 152
        Top = -1
        Width = 49
        Height = 25
        Hint = 'Image'
        Style = csOwnerDrawFixed
        DropDownCount = 12
        ItemHeight = 19
        TabOrder = 2
        OnChange = ComboBrushChange
        OnDrawItem = ComboBrushDrawItem
      end
      object ComboText: TComboFlat
        Left = 210
        Top = 1
        Width = 145
        Hint = 'Text'
        Style = csDropDown
        TabOrder = 3
        OnChange = ComboTextChange
        OnDropDown = ComboTextDropDown
      end
      object CBTransp: TCheckBox
        Left = 360
        Top = 4
        Width = 65
        Height = 17
        Caption = 'Transp.'
        TabOrder = 4
        OnClick = CBTranspClick
      end
      object TreePageNavigator1: TTreePageNavigator
        Left = 436
        Top = 4
        Width = 80
        Height = 18
        Enabled = False
        TabOrder = 5
      end
    end
  end
  object PanelTree: TPanel
    Left = 148
    Top = 195
    Width = 414
    Height = 259
    Align = alClient
    TabOrder = 5
    object TabControl1: TTabControl
      Left = 1
      Top = 236
      Width = 412
      Height = 22
      Align = alBottom
      HotTrack = True
      TabOrder = 0

      OnChange = TabControl1Change
    end
    object HorizRuler: TTreeRuler
      Left = 1
      Top = 1
      Width = 412
      Height = 16
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -9
      Font.Name = 'Microsoft Sans Serif'
      Font.Style = []
      Marker.Color = clRed
      Align = alTop
      BorderStyle = bsNone
      Color = clBtnFace
      TabOrder = 1
    end
    object VertRuler: TTreeRuler
      Left = 1
      Top = 17
      Width = 16
      Height = 219
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -9
      Font.Name = 'Microsoft Sans Serif'
      Font.Style = []
      Marker.Color = clRed
      Align = alLeft
      BorderStyle = bsNone
      Color = clBtnFace
      TabOrder = 2
    end
  end
  object PopupNode: TPopupMenu
    AutoPopup = False
    Images = ImageList1
    OnPopup = PopupNodePopup
    Left = 277
    Top = 256
    object Edit1: TMenuItem
      Caption = '&Edit...'
      OnClick = Edit1Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object Cut1: TMenuItem
      Caption = 'C&ut'
      ImageIndex = 9
      OnClick = Cut1Click
    end
    object Copy1: TMenuItem
      Caption = '&Copy'
      ImageIndex = 10
      OnClick = Copy1Click
    end
    object Paste1: TMenuItem
      Caption = '&Paste'
      ImageIndex = 11
      OnClick = Paste1Click
    end
    object Delete1: TMenuItem
      Caption = '&Delete'
      ImageIndex = 13
      OnClick = Delete1Click
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object AddChild1: TMenuItem
      Caption = '&Add Child'
      OnClick = AddChild1Click
    end
    object AddBrother1: TMenuItem
      Caption = 'Add Br&other'
      OnClick = AddBrother1Click
    end
    object AddnewRoot2: TMenuItem
      Caption = 'Add new &Root'
      OnClick = AddnewRoot2Click
    end
    object Prune1: TMenuItem
      Caption = '&Prune'
      OnClick = Prune1Click
    end
    object N21: TMenuItem
      Caption = '-'
    end
    object BringtoFront1: TMenuItem
      Caption = 'Bring to &Front'
      OnClick = BringtoFront1Click
    e

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -