home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / STANDARD / UCROSSH.DFM / UCROSSH.txt
Encoding:
Text File  |  1998-10-24  |  3.0 KB  |  131 lines
  1. object CrossHairForm: TCrossHairForm
  2.   Left = 200
  3.   Top = 103
  4.   Width = 494
  5.   Height = 409
  6.   ActiveControl = Chart1
  7.   Caption = 'TeeChart Cross Hair Demo'
  8.   Font.Color = clBlack
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   PixelsPerInch = 96
  13.   Position = poScreenCenter
  14.   Scaled = False
  15.   OnCreate = FormCreate
  16.   TextHeight = 13
  17.   object Chart1: TChart
  18.     Left = 145
  19.     Top = 0
  20.     Width = 341
  21.     Height = 382
  22.     Cursor = crCross
  23.     BackWall.Brush.Color = clWhite
  24.     BackWall.Brush.Style = bsClear
  25.     Foot.Font.Color = clRed
  26.     Foot.Font.Height = -12
  27.     Foot.Font.Name = 'Arial'
  28.     Foot.Font.Style = [fsItalic]
  29.     Title.Text.Strings = (
  30.       'TChart Component')
  31.     Title.Visible = False
  32.     BottomAxis.Grid.Visible = False
  33.     BottomAxis.EndPosition = 100.000000000000000000
  34.     Chart3DPercent = 30
  35.     LeftAxis.Grid.Visible = False
  36.     LeftAxis.EndPosition = 100.000000000000000000
  37.     RightAxis.EndPosition = 100.000000000000000000
  38.     TopAxis.EndPosition = 100.000000000000000000
  39.     View3D = False
  40.     Align = alClient
  41.     TabOrder = 0
  42.     OnMouseMove = Chart1MouseMove
  43.     object LineSeries1: TLineSeries
  44.       Marks.ArrowLength = 8
  45.       Marks.Visible = False
  46.       SeriesColor = clRed
  47.       AfterDrawValues = LineSeries1AfterDrawValues
  48.       Pointer.InflateMargins = True
  49.       Pointer.Style = psRectangle
  50.       Pointer.Visible = False
  51.       XValues.DateTime = True
  52.       XValues.Name = 'X'
  53.       XValues.Multiplier = 1.000000000000000000
  54.       XValues.Order = loAscending
  55.       YValues.DateTime = False
  56.       YValues.Name = 'Y'
  57.       YValues.Multiplier = 1.000000000000000000
  58.       YValues.Order = loNone
  59.       Left = 199
  60.       Top = 121
  61.     end
  62.   end
  63.   object Panel1: TPanel
  64.     Left = 0
  65.     Top = 0
  66.     Width = 145
  67.     Height = 382
  68.     Align = alLeft
  69.     TabOrder = 1
  70.     object Label1: TLabel
  71.       Left = 44
  72.       Top = 12
  73.       Width = 15
  74.       Height = 13
  75.       Caption = '0,0'
  76.     end
  77.     object Label2: TLabel
  78.       Left = 16
  79.       Top = 12
  80.       Width = 20
  81.       Height = 13
  82.       Caption = 'X,Y:'
  83.     end
  84.     object BitBtn1: TBitBtn
  85.       Left = 26
  86.       Top = 324
  87.       Width = 89
  88.       Height = 33
  89.       TabOrder = 0
  90.       Kind = bkClose
  91.     end
  92.     object CheckBox1: TCheckBox
  93.       Left = 15
  94.       Top = 44
  95.       Width = 97
  96.       Height = 17
  97.       Caption = 'C&ross Cursor'
  98.       State = cbChecked
  99.       TabOrder = 1
  100.       OnClick = CheckBox1Click
  101.     end
  102.     object BitBtn2: TBitBtn
  103.       Left = 11
  104.       Top = 260
  105.       Width = 118
  106.       Height = 33
  107.       Caption = 'CrossHair C&olor...'
  108.       TabOrder = 2
  109.       OnClick = BitBtn2Click
  110.     end
  111.     object Memo1: TMemo
  112.       Left = 8
  113.       Top = 80
  114.       Width = 121
  115.       Height = 161
  116.       Lines.Strings = (
  117.         'Cross-hair lines are '
  118.         'drawn over a TChart '
  119.         'using the '
  120.         'OnMouseMove event.'
  121.         ''
  122.         'Coordinates for the '
  123.         'cross-hair lines are '
  124.         'calculated using the '
  125.         'Series GetCursorValues '
  126.         'method.')
  127.       TabOrder = 3
  128.     end
  129.   end
  130. end
  131.