home *** CD-ROM | disk | FTP | other *** search
- object BackWall3DForm: TBackWall3DForm
- Left = 94
- Top = 57
- Width = 565
- Height = 455
- Caption = 'New BackWall 3D '
- 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 = 557
- Height = 89
- Align = alTop
- TabOrder = 0
- object Label1: TLabel
- Left = 296
- Top = 60
- Width = 23
- Height = 13
- Caption = '&Size:'
- FocusControl = ScrollBar1
- end
- object Memo1: TMemo
- Left = 8
- Top = 8
- Width = 265
- Height = 73
- Lines.Strings = (
- 'This example shows the new Chart BackWall object.'
- 'Each wall ( Left, Bottom and Back ) has properties'
- 'to customize the Border, Color, Pattern, Dark sides and'
- 'depth Size.')
- TabOrder = 0
- end
- object Button1: TButton
- Left = 455
- Top = 12
- Width = 75
- Height = 25
- Caption = 'Close'
- Default = True
- TabOrder = 1
- OnClick = Button1Click
- end
- object ShowBackWall: TCheckBox
- Left = 296
- Top = 8
- Width = 97
- Height = 17
- Caption = 'Show BackWall '
- State = cbChecked
- TabOrder = 2
- OnClick = ShowBackWallClick
- end
- object CheckBox1: TCheckBox
- Left = 296
- Top = 32
- Width = 97
- Height = 17
- Caption = '&Dark 3D'
- State = cbChecked
- TabOrder = 3
- OnClick = CheckBox1Click
- end
- object ScrollBar1: TScrollBar
- Left = 328
- Top = 59
- Width = 121
- Height = 16
- Position = 15
- TabOrder = 4
- OnChange = ScrollBar1Change
- end
- end
- object Chart1: TChart
- Left = 0
- Top = 122
- Width = 557
- Height = 306
- BackWall.Brush.Color = 16744703
- BackWall.Color = 16777088
- BackWall.Size = 15
- BottomWall.Size = 15
- LeftWall.Size = 15
- MarginTop = 15
- Title.Text.Strings = (
- 'TChart')
- Title.Visible = False
- BackColor = 16777088
- View3DOptions.Elevation = 320
- View3DOptions.Orthogonal = False
- Align = alClient
- TabOrder = 1
- object Series1: TBarSeries
- 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
- end
- object TeeCommander1: TTeeCommander
- Left = 0
- Top = 89
- Width = 557
- Height = 33
- Panel = Chart1
- Align = alTop
- TabOrder = 2
- end
- end
-