home *** CD-ROM | disk | FTP | other *** search
- object ContourForm: TContourForm
- Left = 122
- Top = 19
- Width = 549
- Height = 489
- Caption = 'Contour Series Example'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PixelsPerInch = 96
- Position = poScreenCenter
- Scaled = False
- OnCreate = FormCreate
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 541
- Height = 97
- Align = alTop
- TabOrder = 0
- object Memo1: TMemo
- Left = 8
- Top = 8
- Width = 337
- Height = 81
- Lines.Strings = (
- 'The Contour Series displays lines corresponding to "Level" '
- 'values on 3D XYZ data.'
- 'The number of levels, the Level intervals, the Levels positions,'
-
- 'colors and Legend can be fully customized. It can also be viewe' +
- 'd'
- 'in 2D from a "top view", or rotated in 3D mode.')
- TabOrder = 0
- end
- object Button1: TButton
- Left = 455
- Top = 8
- Width = 75
- Height = 25
- Caption = 'Close'
- Default = True
- TabOrder = 1
- OnClick = Button1Click
- end
- object CheckBox1: TCheckBox
- Left = 356
- Top = 8
- Width = 49
- Height = 17
- Caption = '2&D'
- TabOrder = 2
- OnClick = CheckBox1Click
- end
- object CheckBox2: TCheckBox
- Left = 356
- Top = 48
- Width = 137
- Height = 17
- Caption = '&Color Each Level'
- State = cbChecked
- TabOrder = 3
- OnClick = CheckBox2Click
- end
- object CheckBox4: TCheckBox
- Left = 356
- Top = 69
- Width = 113
- Height = 17
- Caption = 'Levels at each Y'
- TabOrder = 4
- OnClick = CheckBox4Click
- end
- object CheckBox5: TCheckBox
- Left = 356
- Top = 28
- Width = 97
- Height = 17
- Caption = 'Show Walls'
- State = cbChecked
- TabOrder = 5
- OnClick = CheckBox5Click
- end
- end
- object TeeCommander1: TTeeCommander
- Left = 0
- Top = 97
- Width = 541
- Height = 33
- Panel = Chart1
- Align = alTop
- TabOrder = 1
- object CheckBox3: TCheckBox
- Left = 440
- Top = 8
- Width = 97
- Height = 17
- Caption = 'Show Surface'
- TabOrder = 3
- OnClick = CheckBox3Click
- end
- end
- object Chart1: TChart
- Left = 0
- Top = 130
- Width = 509
- Height = 332
- BackWall.Brush.Color = clWhite
- BackWall.Color = 8454143
- BackWall.Size = 10
- BottomWall.Color = 16777088
- BottomWall.Size = 10
- LeftWall.Color = clWhite
- LeftWall.Size = 10
- MarginLeft = 5
- MarginTop = 5
- Title.Text.Strings = (
- 'TChart')
- Title.Visible = False
- BackColor = 8454143
- BottomAxis.EndPosition = 100.000000000000000000
- Chart3DPercent = 80
- DepthAxis.Visible = True
- LeftAxis.EndPosition = 100.000000000000000000
- Legend.Alignment = laLeft
- Legend.ColorWidth = 30
- Legend.LegendStyle = lsValues
- RightAxis.EndPosition = 100.000000000000000000
- TopAxis.EndPosition = 100.000000000000000000
- View3DOptions.Elevation = 342
- View3DOptions.Orthogonal = False
- View3DOptions.Rotation = 317
- View3DOptions.Zoom = 72
- Align = alClient
- TabOrder = 2
- object SurfaceSeries: TSurfaceSeries
- Active = False
- Marks.ArrowLength = 8
- Marks.Visible = False
- SeriesColor = clGreen
- ShowInLegend = False
- NumXValues = 15
- NumZValues = 15
- XValues.DateTime = False
- XValues.Name = 'X'
- XValues.Multiplier = 1.000000000000000000
- XValues.Order = loNone
- YValues.DateTime = False
- YValues.Name = 'Y'
- YValues.Multiplier = 1.000000000000000000
- YValues.Order = loNone
- end
- object ContourSeries: TContourSeries
- Marks.ArrowLength = 8
- Marks.Visible = False
- SeriesColor = clRed
- NumXValues = 15
- NumZValues = 15
- XValues.DateTime = False
- XValues.Name = 'X'
- XValues.Multiplier = 1.000000000000000000
- XValues.Order = loNone
- YPosition = 0.206876466725847200
- YValues.DateTime = False
- YValues.Name = 'Y'
- YValues.Multiplier = 1.000000000000000000
- YValues.Order = loNone
- OnGetLevel = ContourSeriesGetLevel
- end
- end
- object Panel2: TPanel
- Left = 509
- Top = 130
- Width = 32
- Height = 332
- Align = alRight
- TabOrder = 3
- object ScrollBar1: TScrollBar
- Left = 8
- Top = 8
- Width = 16
- Height = 311
- Kind = sbVertical
- LargeChange = 100
- Max = 1000
- SmallChange = 10
- TabOrder = 0
- OnChange = ScrollBar1Change
- end
- end
- end
-