home *** CD-ROM | disk | FTP | other *** search
/ PC Expert 29 / Pce29cd.iso / RUNIMAGE / DELPHI40 / DEMOS / TEECHART / UCOLOR.DFM / UCOLOR.txt
Text File  |  1998-06-16  |  3KB  |  114 lines
  1. object ColoredForm: TColoredForm
  2.   Left = 83
  3.   Top = 51
  4.   Width = 574
  5.   Height = 439
  6.   Caption = 'TeeChart Custom Coloring Example'
  7.   Font.Color = clWindowText
  8.   Font.Height = -11
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   Position = poDefault
  13.   Scaled = False
  14.   WindowState = wsMaximized
  15.   OnCreate = FormCreate
  16.   TextHeight = 13
  17.   object Chart1: TChart
  18.     Left = 137
  19.     Top = 0
  20.     Width = 429
  21.     Height = 412
  22.     BottomWall.Color = clWhite
  23.     Foot.Font.Color = clRed
  24.     Foot.Font.Height = -12
  25.     Foot.Font.Name = 'Arial'
  26.     Foot.Font.Style = [fsItalic]
  27.     LeftWall.Color = 8454143
  28.     Title.Alignment = taRightJustify
  29.     Title.Text.Strings = (
  30.       'Each Point has it'#39's own Color')
  31.     Chart3DPercent = 10
  32.     LeftAxis.Inverted = True
  33.     Legend.Alignment = laBottom
  34.     Align = alClient
  35.     TabOrder = 0
  36.     object LineSeries1: TLineSeries
  37.       Marks.ArrowLength = 8
  38.       Marks.Visible = False
  39.       SeriesColor = clRed
  40.       Pointer.InflateMargins = True
  41.       Pointer.Style = psRectangle
  42.       Pointer.Visible = False
  43.       Stairs = True
  44.       XValues.DateTime = True
  45.       XValues.Name = 'X'
  46.       XValues.Multiplier = 1.000000000000000000
  47.       XValues.Order = loAscending
  48.       YValues.DateTime = False
  49.       YValues.Name = 'Y'
  50.       YValues.Multiplier = 1.000000000000000000
  51.       YValues.Order = loNone
  52.     end
  53.     object PointSeries1: TPointSeries
  54.       Marks.ArrowLength = 8
  55.       Marks.Visible = False
  56.       SeriesColor = clGreen
  57.       Pointer.InflateMargins = True
  58.       Pointer.Style = psRectangle
  59.       Pointer.Visible = True
  60.       XValues.DateTime = True
  61.       XValues.Name = 'X'
  62.       XValues.Multiplier = 1.000000000000000000
  63.       XValues.Order = loAscending
  64.       YValues.DateTime = False
  65.       YValues.Name = 'Y'
  66.       YValues.Multiplier = 1.000000000000000000
  67.       YValues.Order = loNone
  68.     end
  69.   end
  70.   object Panel1: TPanel
  71.     Left = 0
  72.     Top = 0
  73.     Width = 137
  74.     Height = 412
  75.     Align = alLeft
  76.     TabOrder = 1
  77.     object CheckBox1: TCheckBox
  78.       Left = 7
  79.       Top = 20
  80.       Width = 114
  81.       Height = 17
  82.       Caption = 'Left Axis Inverted'
  83.       State = cbChecked
  84.       TabOrder = 0
  85.       OnClick = CheckBox1Click
  86.     end
  87.     object BitBtn2: TBitBtn
  88.       Left = 19
  89.       Top = 316
  90.       Width = 89
  91.       Height = 33
  92.       TabOrder = 1
  93.       Kind = bkClose
  94.     end
  95.     object Memo1: TMemo
  96.       Left = 8
  97.       Top = 72
  98.       Width = 121
  99.       Height = 161
  100.       Lines.Strings = (
  101.         'This demo shows how '
  102.         'to set a different color '
  103.         'for each point after'
  104.         'points have been added '
  105.         'to the Series.'
  106.         ''
  107.         'It shows too how to '
  108.         'invert Axis using the axis'
  109.         'Inverted property.')
  110.       TabOrder = 2
  111.     end
  112.   end
  113. end
  114.