teecursoredit.xfm

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

inherited CursorToolEditor: TCursorToolEditor
  ClientHeight = 205
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel [1]
    Left = 48
    Top = 43
    Width = 26
    Height = 13
    Alignment = taRightJustify
    Caption = 'S&tyle:'
    FocusControl = CBStyle
  end
  object Label3: TLabel [2]
    Left = 48
    Top = 178
    Width = 73
    Height = 13
    Caption = 'Click &tolerance:'
    FocusControl = EPixels
  end
  object Label4: TLabel [3]
    Left = 181
    Top = 178
    Width = 26
    Height = 13
    Caption = 'pixels'
  end
  inherited CBSeries: TComboFlat
    HelpContext = 1229
    TabOrder = 4
  end
  object BPen: TButtonPen
    Left = 48
    Top = 144
    HelpContext = 1275
    Caption = '&Pen...'
    TabOrder = 0
  end
  object CBStyle: TComboFlat
    Left = 78
    Top = 40
    Width = 145
    HelpContext = 1277
    TabOrder = 1
    OnChange = CBStyleChange
    Items.Strings = (
      'Horizontal'
      'Vertical'
      'Both')
  end
  object CBSnap: TCheckBox
    Left = 48
    Top = 72
    Width = 145
    Height = 17
    HelpContext = 1276
    Caption = 'S&nap'
    TabOrder = 2
    OnClick = CBSnapClick
  end
  object CBFollow: TCheckBox
    Left = 48
    Top = 95
    Width = 145
    Height = 17
    HelpContext = 1274
    Caption = '&Follow mouse'
    TabOrder = 3
    OnClick = CBFollowClick
  end
  object CBZ: TCheckBox
    Left = 48
    Top = 118
    Width = 145
    Height = 17
    HelpContext = 1276
    Caption = 'Use Series &Z'
    TabOrder = 5
    OnClick = CBZClick
  end
  object EPixels: TEdit
    Left = 128
    Top = 175
    Width = 33
    Height = 21
    TabOrder = 6
    Text = '0'
    OnChange = EPixelsChange
  end
  object UDClick: TUpDown
    Left = 161
    Top = 175
    Width = 15
    Height = 21
    Associate = EPixels
    Max = 1000
    TabOrder = 7
  end
end