home *** CD-ROM | disk | FTP | other *** search
- object FormMoveBars: TFormMoveBars
- Left = 125
- Top = 118
- Width = 624
- Height = 319
- ActiveControl = ScrollBar1
- Caption = 'TeeChart Pro -- Customizing Bar series Widths and Moving Bars'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PixelsPerInch = 96
- Position = poScreenCenter
- Scaled = False
- OnCreate = FormCreate
- TextHeight = 13
- object Label1: TLabel
- Left = 8
- Top = 248
- Width = 83
- Height = 13
- Caption = 'Bar widh percent:'
- end
- object Label2: TLabel
- Left = 224
- Top = 248
- Width = 20
- Height = 13
- Caption = '70%'
- end
- object Label3: TLabel
- Left = 24
- Top = 272
- Width = 66
- Height = 13
- Caption = 'Custom width:'
- end
- object Label4: TLabel
- Left = 224
- Top = 272
- Width = 27
- Height = 13
- Caption = '(auto)'
- end
- object Label5: TLabel
- Left = 376
- Top = 256
- Width = 156
- Height = 13
- Caption = 'Left mouse: Click and drag Bars !'
- end
- object Label6: TLabel
- Left = 376
- Top = 272
- Width = 128
- Height = 13
- Caption = 'Right mouse: Scroll all Bars'
- end
- object Chart1: TChart
- Left = 4
- Top = 2
- Width = 605
- Height = 239
- AllowZoom = False
- BackWall.Brush.Color = clWhite
- BackWall.Brush.Style = bsClear
- Title.Text.Strings = (
- 'TChart')
- BottomAxis.EndPosition = 100.000000000000000000
- LeftAxis.EndPosition = 100.000000000000000000
- Legend.Visible = False
- RightAxis.EndPosition = 100.000000000000000000
- TopAxis.EndPosition = 100.000000000000000000
- View3D = False
- OnGetAxisLabel = Chart1GetAxisLabel
- TabOrder = 0
- OnMouseDown = Chart1MouseDown
- OnMouseMove = Chart1MouseMove
- OnMouseUp = Chart1MouseUp
- object Series1: TBarSeries
- Cursor = 2020
- Marks.ArrowLength = 20
- Marks.Visible = True
- SeriesColor = clRed
- XValues.DateTime = False
- XValues.Name = 'X'
- XValues.Multiplier = 1.000000000000000000
- XValues.Order = loAscending
- YValues.DateTime = False
- YValues.Name = 'Bar'
- YValues.Multiplier = 1.000000000000000000
- YValues.Order = loNone
- end
- object Series2: TFastLineSeries
- Marks.ArrowLength = 8
- Marks.Visible = False
- SeriesColor = clGreen
- LinePen.Color = clGreen
- XValues.DateTime = False
- XValues.Name = 'X'
- XValues.Multiplier = 1.000000000000000000
- XValues.Order = loAscending
- YValues.DateTime = False
- YValues.Name = 'Y'
- YValues.Multiplier = 1.000000000000000000
- YValues.Order = loNone
- end
- end
- object CheckBox1: TCheckBox
- Left = 280
- Top = 248
- Width = 89
- Height = 17
- Caption = 'Side Margins'
- State = cbChecked
- TabOrder = 1
- OnClick = CheckBox1Click
- end
- object ScrollBar1: TScrollBar
- Left = 96
- Top = 248
- Width = 121
- Height = 18
- Min = 1
- Position = 1
- TabOrder = 2
- OnChange = ScrollBar1Change
- end
- object ScrollBar2: TScrollBar
- Left = 96
- Top = 272
- Width = 121
- Height = 18
- TabOrder = 3
- OnChange = ScrollBar2Change
- end
- object Button1: TButton
- Left = 544
- Top = 264
- Width = 65
- Height = 25
- Caption = '&Close'
- TabOrder = 4
- OnClick = Button1Click
- end
- object CheckBox2: TCheckBox
- Left = 280
- Top = 272
- Width = 65
- Height = 17
- Caption = '&View 3D'
- TabOrder = 5
- OnClick = CheckBox2Click
- end
- end
-