home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / EXTENDED / UDRAG.DFM / UDRAG.txt
Encoding:
Text File  |  1998-10-24  |  4.7 KB  |  184 lines
  1. object DragBarForm: TDragBarForm
  2.   Left = 97
  3.   Top = 60
  4.   Width = 496
  5.   Height = 413
  6.   ActiveControl = Chart1
  7.   Caption = 'TeeChart -- Drag Bar Example'
  8.   Font.Color = clWindowText
  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 = 0
  19.     Top = 33
  20.     Width = 488
  21.     Height = 291
  22.     AllowPanning = pmNone
  23.     AllowZoom = False
  24.     BackWall.Brush.Color = clWhite
  25.     BackWall.Color = clBlack
  26.     BottomWall.Color = 8454143
  27.     BottomWall.Size = 8
  28.     Foot.Font.Color = clRed
  29.     Foot.Font.Height = -13
  30.     Foot.Font.Name = 'Arial'
  31.     Foot.Font.Style = [fsItalic]
  32.     Foot.Text.Strings = (
  33.       'Red Line is a Trend Function.')
  34.     LeftWall.Color = 16777088
  35.     LeftWall.Size = 8
  36.     MarginTop = 5
  37.     Title.AdjustFrame = False
  38.     Title.Brush.Color = 8454016
  39.     Title.Color = clFuchsia
  40.     Title.Font.Color = clNavy
  41.     Title.Font.Height = -19
  42.     Title.Font.Name = 'Arial'
  43.     Title.Font.Style = [fsItalic]
  44.     Title.Frame.Width = 3
  45.     Title.Frame.Visible = True
  46.     Title.Text.Strings = (
  47.       'Drag the Pyramids...')
  48.     BackColor = clBlack
  49.     BottomAxis.GridCentered = True
  50.     BottomAxis.LabelsFont.Color = clNavy
  51.     BottomAxis.LabelsFont.Height = -16
  52.     BottomAxis.LabelsFont.Name = 'Arial'
  53.     BottomAxis.LabelsFont.Style = [fsBold, fsItalic]
  54.     BottomAxis.EndPosition = 100.000000000000000000
  55.     Chart3DPercent = 25
  56.     LeftAxis.LabelsFont.Color = clPurple
  57.     LeftAxis.LabelsFont.Height = -16
  58.     LeftAxis.LabelsFont.Name = 'Arial'
  59.     LeftAxis.LabelsFont.Style = [fsBold]
  60.     LeftAxis.EndPosition = 100.000000000000000000
  61.     Legend.Alignment = laBottom
  62.     Legend.Font.Color = clBlack
  63.     Legend.Font.Height = -13
  64.     Legend.Font.Name = 'Arial'
  65.     Legend.Font.Style = [fsBold]
  66.     Legend.Visible = False
  67.     RightAxis.EndPosition = 100.000000000000000000
  68.     TopAxis.EndPosition = 100.000000000000000000
  69.     View3DOptions.VertOffset = 20
  70.     View3DOptions.Zoom = 80
  71.     Align = alClient
  72.     BevelInner = bvRaised
  73.     BevelOuter = bvLowered
  74.     BorderWidth = 5
  75.     Color = clSilver
  76.     TabOrder = 0
  77.     object Series2: TBarSeries
  78.       Cursor = 2020
  79.       Marks.ArrowLength = 20
  80.       Marks.Visible = False
  81.       SeriesColor = 16711808
  82.       BarStyle = bsPyramid
  83.       BarWidthPercent = 80
  84.       XValues.DateTime = False
  85.       XValues.Name = 'X'
  86.       XValues.Multiplier = 1.000000000000000000
  87.       XValues.Order = loAscending
  88.       YValues.DateTime = False
  89.       YValues.Name = 'Bar'
  90.       YValues.Multiplier = 1.000000000000000000
  91.       YValues.Order = loNone
  92.     end
  93.     object Series1: TLineSeries
  94.       Marks.Arrow.Color = 4227072
  95.       Marks.Arrow.Width = 4
  96.       Marks.ArrowLength = 31
  97.       Marks.BackColor = clGray
  98.       Marks.Font.Color = clWhite
  99.       Marks.Font.Height = -19
  100.       Marks.Font.Name = 'Arial'
  101.       Marks.Font.Style = []
  102.       Marks.Frame.Color = clBlue
  103.       Marks.Frame.Style = psDot
  104.       Marks.Style = smsPercent
  105.       Marks.Visible = True
  106.       DataSource = Series2
  107.       SeriesColor = 8388863
  108.       LinePen.Color = clWhite
  109.       LinePen.Style = psDot
  110.       LinePen.Width = 2
  111.       Pointer.Draw3D = False
  112.       Pointer.HorizSize = 6
  113.       Pointer.InflateMargins = False
  114.       Pointer.Style = psCircle
  115.       Pointer.VertSize = 6
  116.       Pointer.Visible = True
  117.       XValues.DateTime = False
  118.       XValues.Name = 'X'
  119.       XValues.Multiplier = 1.000000000000000000
  120.       XValues.Order = loAscending
  121.       YValues.DateTime = False
  122.       YValues.Name = 'Y'
  123.       YValues.Multiplier = 1.000000000000000000
  124.       YValues.Order = loNone
  125.       object TeeFunction1: TTrendFunction
  126.       end
  127.     end
  128.   end
  129.   object TeeCommander1: TTeeCommander
  130.     Left = 0
  131.     Top = 0
  132.     Width = 488
  133.     Height = 33
  134.     OnChartMouseDown = Chart1MouseDown
  135.     OnChartMouseMove = Chart1MouseMove
  136.     OnChartMouseUp = Chart1MouseUp
  137.     Panel = Chart1
  138.     Align = alTop
  139.     TabOrder = 1
  140.     object Button1: TButton
  141.       Left = 385
  142.       Top = 4
  143.       Width = 75
  144.       Height = 25
  145.       Caption = 'Close'
  146.       TabOrder = 3
  147.       OnClick = Button1Click
  148.     end
  149.   end
  150.   object Panel1: TPanel
  151.     Left = 0
  152.     Top = 324
  153.     Width = 488
  154.     Height = 62
  155.     Align = alBottom
  156.     TabOrder = 2
  157.     object RadioGroup1: TRadioGroup
  158.       Left = 12
  159.       Top = 8
  160.       Width = 341
  161.       Height = 45
  162.       Caption = 'Bar Style:'
  163.       Columns = 4
  164.       ItemIndex = 1
  165.       Items.Strings = (
  166.         'Bar'
  167.         'Pyramid'
  168.         'Inv. Pyramid'
  169.         'Cylinder')
  170.       TabOrder = 0
  171.       OnClick = RadioGroup1Click
  172.     end
  173.     object CheckBox1: TCheckBox
  174.       Left = 372
  175.       Top = 24
  176.       Width = 97
  177.       Height = 17
  178.       Caption = 'ColorEach'
  179.       TabOrder = 1
  180.       OnClick = CheckBox1Click
  181.     end
  182.   end
  183. end
  184.