home *** CD-ROM | disk | FTP | other *** search
/ PC Expert 29 / Pce29cd.iso / RUNIMAGE / DELPHI40 / DEMOS / TEECHART / USHAPES.DFM / USHAPES.txt
Text File  |  1998-06-16  |  6KB  |  222 lines
  1. object ShapesForm: TShapesForm
  2.   Left = 125
  3.   Top = 49
  4.   Width = 592
  5.   Height = 398
  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 = poDefault
  13.   WindowState = wsMaximized
  14.   OnCreate = FormCreate
  15.   TextHeight = 13
  16.   object Chart1: TChart
  17.     Left = 153
  18.     Top = 57
  19.     Width = 431
  20.     Height = 314
  21.     BottomWall.Color = clWhite
  22.     Foot.Font.Color = clRed
  23.     Foot.Font.Height = -11
  24.     Foot.Font.Name = 'Arial'
  25.     Foot.Font.Style = [fsItalic]
  26.     Foot.Frame.Color = clScrollBar
  27.     LeftWall.Color = 8454143
  28.     Title.Frame.Color = clScrollBar
  29.     Title.Text.Strings = (
  30.       'TChart Component')
  31.     BottomAxis.Grid.Color = clScrollBar
  32.     LeftAxis.Grid.Color = clScrollBar
  33.     Legend.Alignment = laTop
  34.     Legend.Visible = False
  35.     RightAxis.Grid.Color = clScrollBar
  36.     TopAxis.Grid.Color = clScrollBar
  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.       OnClick = ChartShape3Click
  62.       Brush.Style = bsDiagCross
  63.       Font.Color = clBlack
  64.       Font.Height = -11
  65.       Font.Name = 'Arial'
  66.       Font.Style = []
  67.       Style = chasRectangle
  68.       X0 = 729090.000000000000000000
  69.       X1 = 729108.000000000000000000
  70.       Y0 = 549.500000000000000000
  71.       Y1 = 1742.000000000000000000
  72.       XValues.DateTime = False
  73.       XValues.Name = 'X'
  74.       XValues.Multiplier = 1.000000000000000000
  75.       XValues.Order = loAscending
  76.       YValues.DateTime = False
  77.       YValues.Name = 'Y'
  78.       YValues.Multiplier = 1.000000000000000000
  79.       YValues.Order = loNone
  80.       Left = 161
  81.       Top = 206
  82.     end
  83.     object LineSeries2: TLineSeries
  84.       Marks.ArrowLength = 8
  85.       Marks.Visible = False
  86.       SeriesColor = clYellow
  87.       Pointer.InflateMargins = True
  88.       Pointer.Style = psRectangle
  89.       Pointer.Visible = False
  90.       XValues.DateTime = True
  91.       XValues.Name = 'X'
  92.       XValues.Multiplier = 1.000000000000000000
  93.       XValues.Order = loAscending
  94.       YValues.DateTime = False
  95.       YValues.Name = 'Y'
  96.       YValues.Multiplier = 1.000000000000000000
  97.       YValues.Order = loNone
  98.       Left = 345
  99.       Top = 130
  100.     end
  101.     object ChartShape2: TChartShape
  102.       Marks.ArrowLength = 8
  103.       Marks.Visible = False
  104.       Brush.Color = clRed
  105.       Font.Color = clBlack
  106.       Font.Height = -11
  107.       Font.Name = 'Arial'
  108.       Font.Style = []
  109.       Pen.Color = clLime
  110.       Style = chasLine
  111.       X0 = 729090.000000000000000000
  112.       X1 = 729108.000000000000000000
  113.       Y0 = 692.750000000000000000
  114.       Y1 = 2915.500000000000000000
  115.       XValues.DateTime = False
  116.       XValues.Name = 'X'
  117.       XValues.Multiplier = 1.000000000000000000
  118.       XValues.Order = loAscending
  119.       YValues.DateTime = False
  120.       YValues.Name = 'Y'
  121.       YValues.Multiplier = 1.000000000000000000
  122.       YValues.Order = loNone
  123.       Left = 161
  124.       Top = 158
  125.     end
  126.     object ChartShape1: TChartShape
  127.       Marks.ArrowLength = 8
  128.       Marks.Visible = False
  129.       Brush.Color = 8454016
  130.       Font.Color = clBlack
  131.       Font.Height = -21
  132.       Font.Name = 'Arial'
  133.       Font.Style = []
  134.       Text.Strings = (
  135.         'Hello'
  136.         'Tee'
  137.         'World !')
  138.       Pen.Color = clNavy
  139.       Pen.Width = 2
  140.       X0 = 729090.000000000000000000
  141.       X1 = 729108.000000000000000000
  142.       Y0 = 737.250000000000000000
  143.       Y1 = 3803.500000000000000000
  144.       XValues.DateTime = False
  145.       XValues.Name = 'X'
  146.       XValues.Multiplier = 1.000000000000000000
  147.       XValues.Order = loAscending
  148.       YValues.DateTime = False
  149.       YValues.Name = 'Y'
  150.       YValues.Multiplier = 1.000000000000000000
  151.       YValues.Order = loNone
  152.       Left = 157
  153.       Top = 108
  154.     end
  155.   end
  156.   object Panel1: TPanel
  157.     Left = 0
  158.     Top = 0
  159.     Width = 584
  160.     Height = 57
  161.     Align = alTop
  162.     TabOrder = 1
  163.     object Label1: TLabel
  164.       Left = 19
  165.       Top = 4
  166.       Width = 402
  167.       Height = 19
  168.       Caption = 'The Line and Ellipse are TChartShape components.'
  169.       Font.Color = clNavy
  170.       Font.Height = -17
  171.       Font.Name = 'Arial'
  172.       Font.Style = [fsBold]
  173.       ParentFont = False
  174.     end
  175.     object Label2: TLabel
  176.       Left = 19
  177.       Top = 28
  178.       Width = 426
  179.       Height = 19
  180.       Caption = 'Zoom or Scroll to see how shapes follow Chart Series.'
  181.       Font.Color = clNavy
  182.       Font.Height = -17
  183.       Font.Name = 'Arial'
  184.       Font.Style = [fsBold]
  185.       ParentFont = False
  186.     end
  187.   end
  188.   object Panel2: TPanel
  189.     Left = 0
  190.     Top = 57
  191.     Width = 153
  192.     Height = 314
  193.     Align = alLeft
  194.     TabOrder = 2
  195.     object BitBtn2: TBitBtn
  196.       Left = 26
  197.       Top = 256
  198.       Width = 89
  199.       Height = 33
  200.       Caption = 'Close'
  201.       TabOrder = 0
  202.       Kind = bkClose
  203.     end
  204.     object Memo1: TMemo
  205.       Left = 16
  206.       Top = 44
  207.       Width = 121
  208.       Height = 161
  209.       Lines.Strings = (
  210.         'Shapes are simple '
  211.         'Series components '
  212.         'with special formatting '
  213.         'attributes.'
  214.         ''
  215.         'Zoom and scrolling'
  216.         'is also possible with'
  217.         'Shapes.')
  218.       TabOrder = 1
  219.     end
  220.   end
  221. end
  222.