home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / STANDARD / UTEESCRO.DFM / UTEESCRO.txt
Encoding:
Text File  |  1998-10-24  |  4.1 KB  |  179 lines
  1. object ScrollBarForm: TScrollBarForm
  2.   Left = 127
  3.   Top = 62
  4.   ActiveControl = Chart1
  5.   BorderIcons = [biSystemMenu]
  6.   BorderStyle = bsDialog
  7.   Caption = 'TeeChart-Pro 3.0  -- Scroll Bars Example'
  8.   ClientHeight = 434
  9.   ClientWidth = 541
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   PixelsPerInch = 96
  15.   Position = poScreenCenter
  16.   OnCreate = FormCreate
  17.   TextHeight = 13
  18.   object Chart1: TChart
  19.     Left = 24
  20.     Top = 8
  21.     Width = 505
  22.     Height = 250
  23.     BackWall.Brush.Color = clWhite
  24.     BackWall.Brush.Style = bsClear
  25.     Title.Text.Strings = (
  26.       'TChart')
  27.     BottomAxis.ExactDateTime = False
  28.     BottomAxis.Increment = 10.000000000000000000
  29.     BottomAxis.LabelsSeparation = 0
  30.     LeftAxis.Grid.Visible = False
  31.     TopAxis.ExactDateTime = False
  32.     TopAxis.Grid.Visible = False
  33.     TopAxis.Increment = 10.000000000000000000
  34.     TopAxis.LabelsSeparation = 0
  35.     TabOrder = 0
  36.     object Series1: 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.       XValues.DateTime = False
  44.       XValues.Name = 'X'
  45.       XValues.Multiplier = 1.000000000000000000
  46.       XValues.Order = loAscending
  47.       YValues.DateTime = False
  48.       YValues.Name = 'Y'
  49.       YValues.Multiplier = 1.000000000000000000
  50.       YValues.Order = loNone
  51.     end
  52.     object Series2: TLineSeries
  53.       HorizAxis = aTopAxis
  54.       Marks.ArrowLength = 8
  55.       Marks.Visible = False
  56.       SeriesColor = clGreen
  57.       VertAxis = aRightAxis
  58.       Pointer.InflateMargins = True
  59.       Pointer.Style = psRectangle
  60.       Pointer.Visible = False
  61.       XValues.DateTime = False
  62.       XValues.Name = 'X'
  63.       XValues.Multiplier = 1.000000000000000000
  64.       XValues.Order = loAscending
  65.       YValues.DateTime = False
  66.       YValues.Name = 'Y'
  67.       YValues.Multiplier = 1.000000000000000000
  68.       YValues.Order = loNone
  69.     end
  70.   end
  71.   object ChartScrollBar1: TChartScrollBar
  72.     Left = 24
  73.     Top = 259
  74.     Width = 505
  75.     Height = 18
  76.     Enabled = True
  77.     LargeChange = 3000
  78.     Position = 15000
  79.     SmallChange = 300
  80.     TabOrder = 1
  81.     Chart = Chart1
  82.   end
  83.   object ChartScrollBar2: TChartScrollBar
  84.     Left = 7
  85.     Top = 9
  86.     Width = 16
  87.     Height = 249
  88.     Enabled = True
  89.     Kind = sbVertical
  90.     LargeChange = 3000
  91.     Position = 15000
  92.     SmallChange = 300
  93.     TabOrder = 2
  94.     Chart = Chart1
  95.   end
  96.   object RadioGroup1: TRadioGroup
  97.     Left = 88
  98.     Top = 288
  99.     Width = 73
  100.     Height = 105
  101.     Caption = '&Horizontal:'
  102.     ItemIndex = 2
  103.     Items.Strings = (
  104.       'Red'
  105.       'Green'
  106.       'Both')
  107.     TabOrder = 3
  108.     OnClick = RadioGroup1Click
  109.   end
  110.   object RadioGroup2: TRadioGroup
  111.     Left = 8
  112.     Top = 288
  113.     Width = 65
  114.     Height = 105
  115.     Caption = '&Vertical'
  116.     ItemIndex = 2
  117.     Items.Strings = (
  118.       'Red'
  119.       'Green'
  120.       'Both')
  121.     TabOrder = 4
  122.     OnClick = RadioGroup2Click
  123.   end
  124.   object Button1: TButton
  125.     Left = 456
  126.     Top = 400
  127.     Width = 75
  128.     Height = 25
  129.     Caption = '&Close'
  130.     TabOrder = 5
  131.     OnClick = Button1Click
  132.   end
  133.   object Memo1: TMemo
  134.     Left = 176
  135.     Top = 288
  136.     Width = 265
  137.     Height = 137
  138.     Lines.Strings = (
  139.       'This example shows two TChartScrollBar'
  140.       'components connected to the Chart component.'
  141.       ''
  142.       'The Chart scrolls when the ScrollBar changes, and'
  143.       'the ScrollBar changes when the Chart scrolls'
  144.       'by dragging with right mouse button or by zooming with'
  145.       'left mouse button.'
  146.       ''
  147.       'Optionally control which Axis / Series are affected,'
  148.       'and inverted scrolling.')
  149.     TabOrder = 6
  150.   end
  151.   object Button2: TButton
  152.     Left = 456
  153.     Top = 288
  154.     Width = 75
  155.     Height = 25
  156.     Caption = '&Reset'
  157.     TabOrder = 7
  158.     OnClick = Button2Click
  159.   end
  160.   object VerticalInvert: TCheckBox
  161.     Left = 16
  162.     Top = 400
  163.     Width = 57
  164.     Height = 17
  165.     Caption = '&Invert'
  166.     TabOrder = 8
  167.     OnClick = VerticalInvertClick
  168.   end
  169.   object HorizontalInvert: TCheckBox
  170.     Left = 96
  171.     Top = 400
  172.     Width = 57
  173.     Height = 17
  174.     Caption = 'I&nvert'
  175.     TabOrder = 9
  176.     OnClick = HorizontalInvertClick
  177.   end
  178. end
  179.