treeshed.xfm

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

          OnMouseUp = Shape3MouseUp
        end
        object Shape6: TShape
          Left = 47
          Top = 24
          Width = 27
          Height = 25
          Cursor = crHandPoint
          OnMouseUp = Shape6MouseUp
        end
        object Button4: TButton
          Left = 135
          Top = 24
          Width = 75
          Height = 25
          Caption = 'S&wap'
          TabOrder = 0
          OnClick = Button4Click
        end
        object CheckBox7: TCheckBox
          Left = 136
          Top = 56
          Width = 83
          Height = 17
          Caption = 'No &Middle'
          TabOrder = 1
          OnClick = CheckBox7Click
        end
      end
      object CheckBox2: TCheckBox
        Left = 80
        Top = 24
        Width = 65
        Height = 17
        Caption = '&Visible'
        TabOrder = 0
        OnClick = CheckBox2Click
      end
      object ComboBox2: TComboFlat
        Left = 143
        Top = 50
        Width = 118
        TabOrder = 1
        OnChange = ComboBox2Change
        Items.Strings = (
          'Top Bottom'
          'Bottom Top'
          'Left Right'
          'Right Left'
          'From Center'
          'From Top Left'
          'From Bottom Left'
          'Diagonal Up'
          'Diagonal Down')
      end
      object CheckBox4: TCheckBox
        Left = 224
        Top = 24
        Width = 97
        Height = 17
        Caption = '&Clip'
        Checked = True
        State = cbChecked
        TabOrder = 2
        OnClick = CheckBox4Click
      end
    end
    object TabShadow: TTabSheet
      Caption = 'Shadow'
      object Label5: TLabel
        Left = 100
        Top = 14
        Width = 27
        Height = 13
        Alignment = taRightJustify
        Caption = 'Color:'
      end
      object Label7: TLabel
        Left = 54
        Top = 48
        Width = 73
        Height = 13
        Alignment = taRightJustify
        Caption = '&Horizontal Size:'
        FocusControl = Edit7
      end
      object Shape1: TShape
        Left = 134
        Top = 6
        Width = 25
        Height = 25
        Cursor = crHandPoint
        OnMouseUp = Shape1MouseUp
      end
      object Label17: TLabel
        Left = 66
        Top = 80
        Width = 61
        Height = 13
        Alignment = taRightJustify
        Caption = '&Vertical Size:'
        FocusControl = Edit8
      end
      object Label23: TLabel
        Left = 59
        Top = 131
        Width = 68
        Height = 13
        Alignment = taRightJustify
        Caption = '&Transparency:'
        FocusControl = Edit9
      end
      object Edit7: TEdit
        Left = 134
        Top = 45
        Width = 33
        Height = 21
        TabOrder = 0
        Text = '0'
        OnChange = Edit7Change
      end
      object UpDown7: TUpDown
        Left = 167
        Top = 45
        Width = 15
        Height = 21
        Associate = Edit7
        Min = -99
        Max = 99
        TabOrder = 1
      end
      object Edit8: TEdit
        Left = 134
        Top = 77
        Width = 33
        Height = 21
        TabOrder = 2
        Text = '0'
        OnChange = Edit8Change
      end
      object UpDown8: TUpDown
        Left = 167
        Top = 77
        Width = 15
        Height = 21
        Associate = Edit8
        Min = -99
        Max = 99
        TabOrder = 3
      end
      object CBSmooth: TCheckBox
        Left = 136
        Top = 104
        Width = 97
        Height = 17
        Caption = '&Smooth'
        TabOrder = 4
        OnClick = CBSmoothClick
      end
      object Edit9: TEdit
        Left = 134
        Top = 128
        Width = 33
        Height = 21
        TabOrder = 5
        Text = '0'
        OnChange = Edit9Change
      end
      object UpDown9: TUpDown
        Left = 167
        Top = 128
        Width = 15
        Height = 21
        Associate = Edit9
        Min = -99
        Max = 99
        TabOrder = 6
      end
    end
    object TabPosition: TTabSheet
      Caption = 'Position'
      object Label8: TLabel
        Left = 207
        Top = 11
        Width = 36
        Height = 22
        Alignment = taRightJustify
        AutoSize = False
        Caption = '&Left:'
        FocusControl = Edit1
      end
      object Label9: TLabel
        Left = 207
        Top = 42
        Width = 36
        Height = 23
        Alignment = taRightJustify
        AutoSize = False
        Caption = '&Top:'
        FocusControl = Edit2
      end
      object Label10: TLabel
        Left = 199
        Top = 107
        Width = 44
        Height = 22
        Alignment = taRightJustify
        AutoSize = False
        Caption = '&Right:'
      end
      object Label11: TLabel
        Left = 199
        Top = 136
        Width = 44
        Height = 25
        Alignment = taRightJustify
        AutoSize = False
        Caption = '&Bottom:'
      end
      object Label12: TLabel
        Left = 1
        Top = 11
        Width = 66
        Height = 22
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Move &Horiz:'
      end
      object Label13: TLabel
        Left = 1
        Top = 43
        Width = 66
        Height = 22
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Move &Vert:'
      end
      object Label14: TLabel
        Left = 1
        Top = 107
        Width = 66
        Height = 22
        Alignment = taRightJustify
        AutoSize = False
        Caption = '&Width:'
      end
      object Label15: TLabel
        Left = 1
        Top = 136
        Width = 66
        Height = 17
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'H&eight:'
      end
      object CheckBox1: TCheckBox
        Left = 72
        Top = 80
        Width = 97
        Height = 17
        Caption = 'Auto &Size'
        TabOrder = 0
        OnClick = CheckBox1Click
      end
      object UpDown1: TUpDown
        Left = 288
        Top = 7
        Width = 15
        Height = 21
        Associate = Edit1
        Min = -10000
        Max = 10000
        TabOrder = 1
      end
      object UpDown2: TUpDown
        Left = 288
        Top = 39
        Width = 15
        Height = 21
        Associate = Edit2
        Min = -10000
        Max = 10000
        TabOrder = 2
      end
      object UpDown3: TUpDown
        Left = 288
        Top = 103
        Width = 15
        Height = 21
        Associate = Edit3
        Min = -10000
        Max = 10000
        TabOrder = 3
      end
      object UpDown4: TUpDown
        Left = 288
        Top = 132
        Width = 15
        Height = 21
        Associate = Edit4
        Min = -10000
        Max = 10000
        TabOrder = 4
      end
      object Edit1: TEdit
        Left = 247
        Top = 7
        Width = 41
        Height = 21
        TabOrder = 5
        Text = '0'
        OnChange = Edit1Change
      end
      object Edit2: TEdit
        Left = 247
        Top = 39
        Width = 41
        Height = 21
        TabOrder = 6
        Text = '0'
        OnChange = Edit2Change
      end
      object Edit3: TEdit
        Left = 247
        Top = 103
        Width = 41
        Height = 21
        TabOrder = 7
        Text = '0'
        OnChange = Edit3Change
      end
      object Edit4: TEdit
        Left = 247
        Top = 132
        Width = 41
        Height = 21
        TabOrder = 8
        Text = '0'
        OnChange = Edit4Change
      end
      object ScrollBar2: TScrollBar
        Left = 72
        Top = 10
        Width = 121
        Height = 16
        LargeChange = 10
        Max = 1000
        Min = -1000

        TabOrder = 9
        OnChange = ScrollBar2Change
      end
      object ScrollBar3: TScrollBar
        Left = 72
        Top = 42
        Width = 121
        Height = 16
        Max = 1000
        Min = -1000

        TabOrder = 10
        OnChange = ScrollBar3Change
      end
      object ScrollBar4: TScrollBar
        Left = 72
        Top = 106
        Width = 121
        Height = 16
        LargeChange = 10
        Max = 1000

        TabOrder = 11
        OnChange = ScrollBar4Change
      end
      object ScrollBar5: TScrollBar
        Left = 72
        Top = 135
        Width = 121
        Height = 16
        Max = 1000

        TabOrder = 12
        OnChange = ScrollBar5Change
      end
      object CheckBox5: TCheckBox
        Left = 310
        Top = 8
        Width = 50
        Height = 17
        Caption = '&Auto'
        TabOrder = 13
        OnClick = CheckBox5Click
      end
      object CheckBox6: TCheckBox
        Left = 310
        Top = 40
        Width = 50
        Height = 17
        Caption = 'A&uto'
        TabOrder = 14
        OnClick = CheckBox6Click
      end
    end
  end
end