home *** CD-ROM | disk | FTP | other *** search
- object DrawPointerForm: TDrawPointerForm
- Left = 200
- Top = 105
- Width = 544
- Height = 361
- ActiveControl = Every
- Caption = 'TeeChart Pro -- Drawing Series pointers at specific intervals'
- 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 = 280
- Width = 100
- Height = 13
- Caption = 'Draw pointers every: '
- end
- object Label2: TLabel
- Left = 112
- Top = 280
- Width = 6
- Height = 13
- Caption = '5'
- end
- object Label3: TLabel
- Left = 144
- Top = 280
- Width = 31
- Height = 13
- Caption = 'points.'
- end
- object Label4: TLabel
- Left = 8
- Top = 304
- Width = 66
- Height = 13
- Caption = 'Start at point: '
- end
- object Label5: TLabel
- Left = 136
- Top = 304
- Width = 6
- Height = 13
- Caption = '0'
- end
- object Chart1: TChart
- Left = 4
- Top = 2
- Width = 525
- Height = 271
- 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
- TabOrder = 0
- object Series1: TLineSeries
- Marks.ArrowLength = 8
- Marks.Visible = False
- SeriesColor = clRed
- OnGetPointerStyle = Series1GetPointerStyle
- Pointer.InflateMargins = True
- Pointer.Style = psRectangle
- Pointer.Visible = True
- 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 Every: TScrollBar
- Left = 192
- Top = 280
- Width = 121
- Height = 18
- Max = 50
- Min = 1
- Position = 5
- TabOrder = 1
- OnChange = EveryChange
- end
- object Button1: TButton
- Left = 456
- Top = 280
- Width = 75
- Height = 25
- Caption = '&Close'
- TabOrder = 2
- OnClick = Button1Click
- end
- object StartAt: TScrollBar
- Left = 192
- Top = 304
- Width = 121
- Height = 18
- Max = 50
- TabOrder = 3
- OnChange = EveryChange
- end
- object Colorize: TCheckBox
- Left = 336
- Top = 304
- Width = 97
- Height = 17
- Caption = 'Colorize pointers'
- State = cbChecked
- TabOrder = 4
- OnClick = ColorizeClick
- end
- end
-