home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / EXTENDED / UNEAR.DFM / UNEAR.txt
Encoding:
Text File  |  1998-10-24  |  2.2 KB  |  102 lines
  1. object ClickNearForm: TClickNearForm
  2.   Left = 115
  3.   Top = 80
  4.   Width = 544
  5.   Height = 375
  6.   Caption = 'TeeChart-Pro -- Calculating nearest point to Mouse click'
  7.   Font.Color = clWindowText
  8.   Font.Height = -11
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   Position = poScreenCenter
  13.   Scaled = False
  14.   OnCreate = FormCreate
  15.   TextHeight = 13
  16.   object LabelX: TLabel
  17.     Left = 104
  18.     Top = 272
  19.     Width = 33
  20.     Height = 13
  21.     Caption = 'LabelX'
  22.   end
  23.   object LabelY: TLabel
  24.     Left = 104
  25.     Top = 296
  26.     Width = 33
  27.     Height = 13
  28.     Caption = 'LabelY'
  29.   end
  30.   object LabelNear: TLabel
  31.     Left = 104
  32.     Top = 320
  33.     Width = 49
  34.     Height = 13
  35.     Caption = 'LabelNear'
  36.   end
  37.   object Label4: TLabel
  38.     Left = 16
  39.     Top = 272
  40.     Width = 10
  41.     Height = 13
  42.     Caption = 'X:'
  43.   end
  44.   object Label5: TLabel
  45.     Left = 16
  46.     Top = 296
  47.     Width = 10
  48.     Height = 13
  49.     Caption = 'Y:'
  50.   end
  51.   object Label6: TLabel
  52.     Left = 16
  53.     Top = 320
  54.     Width = 66
  55.     Height = 13
  56.     Caption = 'Nearest point:'
  57.   end
  58.   object Chart1: TChart
  59.     Left = 8
  60.     Top = 8
  61.     Width = 521
  62.     Height = 250
  63.     BackWall.Brush.Color = clWhite
  64.     BackWall.Brush.Style = bsClear
  65.     Title.Text.Strings = (
  66.       'TChart')
  67.     BottomAxis.EndPosition = 100.000000000000000000
  68.     LeftAxis.EndPosition = 100.000000000000000000
  69.     RightAxis.EndPosition = 100.000000000000000000
  70.     TopAxis.EndPosition = 100.000000000000000000
  71.     OnAfterDraw = Chart1AfterDraw
  72.     TabOrder = 0
  73.     OnMouseMove = Chart1MouseMove
  74.     object Series1: TLineSeries
  75.       Marks.ArrowLength = 8
  76.       Marks.Style = smsXValue
  77.       Marks.Visible = True
  78.       SeriesColor = clRed
  79.       Pointer.InflateMargins = True
  80.       Pointer.Style = psRectangle
  81.       Pointer.Visible = True
  82.       XValues.DateTime = False
  83.       XValues.Name = 'X'
  84.       XValues.Multiplier = 1.000000000000000000
  85.       XValues.Order = loAscending
  86.       YValues.DateTime = False
  87.       YValues.Name = 'Y'
  88.       YValues.Multiplier = 1.000000000000000000
  89.       YValues.Order = loNone
  90.     end
  91.   end
  92.   object Button1: TButton
  93.     Left = 440
  94.     Top = 312
  95.     Width = 89
  96.     Height = 25
  97.     Caption = '&Close'
  98.     TabOrder = 1
  99.     OnClick = Button1Click
  100.   end
  101. end
  102.