home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / STANDARD / USHAPES.DFM / USHAPES.txt
Encoding:
Text File  |  1998-10-24  |  5.7 KB  |  226 lines
  1. object ShapesForm: TShapesForm
  2.   Left = 125
  3.   Top = 49
  4.   Width = 495
  5.   Height = 457
  6.   Caption = 'TeeChart.  TChartShape Component Example'
  7.   Font.Color = clBlack
  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 Chart1: TChart
  17.     Left = 153
  18.     Top = 57
  19.     Width = 334
  20.     Height = 373
  21.     BackWall.Brush.Color = clWhite
  22.     BackWall.Brush.Style = bsClear
  23.     Foot.Frame.Color = clScrollBar
  24.     Title.Frame.Color = clScrollBar
  25.     Title.Text.Strings = (
  26.       'TChart Component')
  27.     BottomAxis.Grid.Color = clScrollBar
  28.     BottomAxis.EndPosition = 100.000000000000000000
  29.     LeftAxis.Grid.Color = clScrollBar
  30.     LeftAxis.EndPosition = 100.000000000000000000
  31.     Legend.Alignment = laTop
  32.     Legend.Visible = False
  33.     RightAxis.Grid.Color = clScrollBar
  34.     RightAxis.EndPosition = 100.000000000000000000
  35.     TopAxis.Grid.Color = clScrollBar
  36.     TopAxis.EndPosition = 100.000000000000000000
  37.     Align = alClient
  38.     TabOrder = 0
  39.     object LineSeries1: TLineSeries
  40.       Marks.ArrowLength = 8
  41.       Marks.Visible = False
  42.       SeriesColor = clRed
  43.       Pointer.InflateMargins = True
  44.       Pointer.Style = psRectangle
  45.       Pointer.Visible = False
  46.       XValues.DateTime = True
  47.       XValues.Name = 'X'
  48.       XValues.Multiplier = 1.000000000000000000
  49.       XValues.Order = loAscending
  50.       YValues.DateTime = False
  51.       YValues.Name = 'Y'
  52.       YValues.Multiplier = 1.000000000000000000
  53.       YValues.Order = loNone
  54.       Left = 391
  55.       Top = 130
  56.     end
  57.     object ChartShape3: TChartShape
  58.       Cursor = crCross
  59.       Marks.ArrowLength = 8
  60.       Marks.Visible = False
  61.       SeriesColor = clWhite
  62.       OnClick = ChartShape3Click
  63.       Brush.Color = clWhite
  64.       Brush.Style = bsDiagCross
  65.       Font.Color = clBlack
  66.       Font.Height = -11
  67.       Font.Name = 'Arial'
  68.       Font.Style = []
  69.       Style = chasRectangle
  70.       X0 = 729602.125000000000000000
  71.       X1 = 729620.875000000000000000
  72.       Y0 = 67.500000000000000000
  73.       Y1 = 147.000000000000000000
  74.       XValues.DateTime = False
  75.       XValues.Name = 'X'
  76.       XValues.Multiplier = 1.000000000000000000
  77.       XValues.Order = loAscending
  78.       YValues.DateTime = False
  79.       YValues.Name = 'Y'
  80.       YValues.Multiplier = 1.000000000000000000
  81.       YValues.Order = loNone
  82.       Left = 161
  83.       Top = 206
  84.     end
  85.     object LineSeries2: TLineSeries
  86.       Marks.ArrowLength = 8
  87.       Marks.Visible = False
  88.       SeriesColor = clYellow
  89.       Pointer.InflateMargins = True
  90.       Pointer.Style = psRectangle
  91.       Pointer.Visible = False
  92.       XValues.DateTime = True
  93.       XValues.Name = 'X'
  94.       XValues.Multiplier = 1.000000000000000000
  95.       XValues.Order = loAscending
  96.       YValues.DateTime = False
  97.       YValues.Name = 'Y'
  98.       YValues.Multiplier = 1.000000000000000000
  99.       YValues.Order = loNone
  100.       Left = 345
  101.       Top = 130
  102.     end
  103.     object ChartShape2: TChartShape
  104.       Marks.ArrowLength = 8
  105.       Marks.Visible = False
  106.       SeriesColor = clWhite
  107.       Brush.Color = clRed
  108.       Font.Color = clBlack
  109.       Font.Height = -11
  110.       Font.Name = 'Arial'
  111.       Font.Style = []
  112.       Pen.Color = clLime
  113.       Style = chasLine
  114.       X0 = 729602.125000000000000000
  115.       X1 = 729620.875000000000000000
  116.       Y0 = 67.500000000000000000
  117.       Y1 = 147.000000000000000000
  118.       XValues.DateTime = False
  119.       XValues.Name = 'X'
  120.       XValues.Multiplier = 1.000000000000000000
  121.       XValues.Order = loAscending
  122.       YValues.DateTime = False
  123.       YValues.Name = 'Y'
  124.       YValues.Multiplier = 1.000000000000000000
  125.       YValues.Order = loNone
  126.       Left = 161
  127.       Top = 158
  128.     end
  129.     object ChartShape1: TChartShape
  130.       Marks.ArrowLength = 8
  131.       Marks.Visible = False
  132.       SeriesColor = clWhite
  133.       Brush.Color = 8454016
  134.       Font.Color = clBlack
  135.       Font.Height = -21
  136.       Font.Name = 'Arial'
  137.       Font.Style = []
  138.       Text.Strings = (
  139.         'Hello'
  140.         'Tee'
  141.         'World !')
  142.       Pen.Color = clNavy
  143.       Pen.Width = 2
  144.       X0 = 729602.125000000000000000
  145.       X1 = 729620.875000000000000000
  146.       Y0 = 67.500000000000000000
  147.       Y1 = 147.000000000000000000
  148.       XValues.DateTime = False
  149.       XValues.Name = 'X'
  150.       XValues.Multiplier = 1.000000000000000000
  151.       XValues.Order = loAscending
  152.       YValues.DateTime = False
  153.       YValues.Name = 'Y'
  154.       YValues.Multiplier = 1.000000000000000000
  155.       YValues.Order = loNone
  156.       Left = 157
  157.       Top = 108
  158.     end
  159.   end
  160.   object Panel1: TPanel
  161.     Left = 0
  162.     Top = 0
  163.     Width = 487
  164.     Height = 57
  165.     Align = alTop
  166.     TabOrder = 1
  167.     object Label1: TLabel
  168.       Left = 19
  169.       Top = 4
  170.       Width = 402
  171.       Height = 19
  172.       Caption = 'The Line and Ellipse are TChartShape components.'
  173.       Font.Color = clNavy
  174.       Font.Height = -17
  175.       Font.Name = 'Arial'
  176.       Font.Style = [fsBold]
  177.       ParentFont = False
  178.     end
  179.     object Label2: TLabel
  180.       Left = 19
  181.       Top = 28
  182.       Width = 426
  183.       Height = 19
  184.       Caption = 'Zoom or Scroll to see how shapes follow Chart Series.'
  185.       Font.Color = clNavy
  186.       Font.Height = -17
  187.       Font.Name = 'Arial'
  188.       Font.Style = [fsBold]
  189.       ParentFont = False
  190.     end
  191.   end
  192.   object Panel2: TPanel
  193.     Left = 0
  194.     Top = 57
  195.     Width = 153
  196.     Height = 373
  197.     Align = alLeft
  198.     TabOrder = 2
  199.     object BitBtn2: TBitBtn
  200.       Left = 26
  201.       Top = 256
  202.       Width = 89
  203.       Height = 33
  204.       Caption = 'Close'
  205.       TabOrder = 0
  206.       Kind = bkClose
  207.     end
  208.     object Memo1: TMemo
  209.       Left = 16
  210.       Top = 44
  211.       Width = 121
  212.       Height = 161
  213.       Lines.Strings = (
  214.         'Shapes are simple '
  215.         'Series components '
  216.         'with special formatting '
  217.         'attributes.'
  218.         ''
  219.         'Zoom and scrolling'
  220.         'is also possible with'
  221.         'Shapes.')
  222.       TabOrder = 1
  223.     end
  224.   end
  225. end
  226.