home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / EXTENDED / UTIPS.DFM / UTIPS.txt
Encoding:
Text File  |  1998-10-24  |  2.2 KB  |  88 lines
  1. object FormMarkTips: TFormMarkTips
  2.   Left = 200
  3.   Top = 96
  4.   Width = 422
  5.   Height = 385
  6.   ActiveControl = Chart1
  7.   Caption = 'TeeChart Pro 4 - Showing Marks as Tips'
  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 = 8
  19.     Top = 64
  20.     Width = 400
  21.     Height = 250
  22.     BackWall.Brush.Color = clWhite
  23.     BackWall.Brush.Style = bsClear
  24.     Title.Font.Color = clBlue
  25.     Title.Font.Height = -13
  26.     Title.Font.Name = 'Arial'
  27.     Title.Font.Style = [fsBold]
  28.     Title.Text.Strings = (
  29.       'Click on a Bar...')
  30.     BottomAxis.EndPosition = 100.000000000000000000
  31.     LeftAxis.EndPosition = 100.000000000000000000
  32.     Legend.Font.Color = clBlack
  33.     Legend.Font.Height = -13
  34.     Legend.Font.Name = 'Arial'
  35.     Legend.Font.Style = [fsItalic]
  36.     RightAxis.EndPosition = 100.000000000000000000
  37.     TopAxis.EndPosition = 100.000000000000000000
  38.     OnAfterDraw = Chart1AfterDraw
  39.     TabOrder = 0
  40.     OnMouseMove = Chart1MouseMove
  41.     object Series1: TBarSeries
  42.       ColorEachPoint = True
  43.       Marks.ArrowLength = 20
  44.       Marks.Visible = True
  45.       SeriesColor = clRed
  46.       OnClick = Series1Click
  47.       OnGetMarkText = Series1GetMarkText
  48.       XValues.DateTime = False
  49.       XValues.Name = 'X'
  50.       XValues.Multiplier = 1.000000000000000000
  51.       XValues.Order = loAscending
  52.       YValues.DateTime = False
  53.       YValues.Name = 'Bar'
  54.       YValues.Multiplier = 1.000000000000000000
  55.       YValues.Order = loNone
  56.     end
  57.   end
  58.   object Button1: TButton
  59.     Left = 328
  60.     Top = 328
  61.     Width = 75
  62.     Height = 25
  63.     Caption = '&Close'
  64.     TabOrder = 1
  65.     OnClick = Button1Click
  66.   end
  67.   object CheckBox1: TCheckBox
  68.     Left = 16
  69.     Top = 328
  70.     Width = 97
  71.     Height = 17
  72.     Caption = 'Follow mouse'
  73.     TabOrder = 2
  74.   end
  75.   object Memo1: TMemo
  76.     Left = 8
  77.     Top = 8
  78.     Width = 401
  79.     Height = 49
  80.     Lines.Strings = (
  81.       'This example shows how to customize Series Marks and display a '
  82.       'single mark when user clicks on a Series point.'
  83.       'It also shows custom drawing and automatic point selection.'
  84.       '')
  85.     TabOrder = 3
  86.   end
  87. end
  88.