home *** CD-ROM | disk | FTP | other *** search
- object LooksForm: TLooksForm
- Left = 60
- Top = 57
- Width = 675
- Height = 479
- BorderIcons = [biSystemMenu]
- Caption = 'Different TeeChart "looks" example'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PixelsPerInch = 96
- Position = poScreenCenter
- Scaled = False
- OnCreate = FormCreate
- TextHeight = 13
- object Chart1: TChart
- Left = 0
- Top = 43
- Width = 345
- Height = 201
- BackWall.Brush.Color = clWhite
- BackWall.Color = clWhite
- BottomWall.Size = 8
- LeftWall.Color = clWhite
- LeftWall.Size = 8
- MarginBottom = 10
- MarginLeft = 10
- MarginRight = 10
- MarginTop = 13
- Title.Text.Strings = (
- 'TChart')
- Title.Visible = False
- BackColor = clWhite
- BottomAxis.Axis.Width = 1
- BottomAxis.Grid.Visible = False
- BottomAxis.LabelsFont.Color = clRed
- BottomAxis.LabelsFont.Height = -11
- BottomAxis.LabelsFont.Name = 'Arial'
- BottomAxis.LabelsFont.Style = []
- BottomAxis.MinorTickCount = 0
- BottomAxis.EndPosition = 100.000000000000000000
- Chart3DPercent = 70
- LeftAxis.Axis.Width = 1
- LeftAxis.Grid.Visible = False
- LeftAxis.MinorTickCount = 0
- LeftAxis.EndPosition = 100.000000000000000000
- Legend.Visible = False
- RightAxis.EndPosition = 100.000000000000000000
- TopAxis.EndPosition = 100.000000000000000000
- View3DOptions.Orthogonal = False
- TabOrder = 0
- object Series2: TBarSeries
- Marks.ArrowLength = 20
- Marks.Visible = False
- SeriesColor = clBlue
- MultiBar = mbNone
- 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 Series1: TBarSeries
- Marks.ArrowLength = 20
- Marks.Visible = False
- SeriesColor = clLime
- MultiBar = mbNone
- 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 Chart2: TChart
- Left = 0
- Top = 251
- Width = 345
- Height = 201
- BackWall.Brush.Color = clWhite
- BackWall.Brush.Style = bsClear
- BottomWall.Size = 8
- LeftWall.Color = clWhite
- LeftWall.Size = 8
- MarginTop = 18
- Title.Text.Strings = (
- 'TChart')
- Title.Visible = False
- BottomAxis.Axis.Width = 1
- BottomAxis.Grid.Color = clBlack
- BottomAxis.Grid.Style = psSolid
- BottomAxis.GridCentered = True
- BottomAxis.LabelsFont.Color = clBlack
- BottomAxis.LabelsFont.Height = -16
- BottomAxis.LabelsFont.Name = 'Arial'
- BottomAxis.LabelsFont.Style = [fsBold]
- BottomAxis.MinorTickCount = 0
- BottomAxis.EndPosition = 100.000000000000000000
- Chart3DPercent = 70
- LeftAxis.Axis.Width = 1
- LeftAxis.Grid.Color = clBlack
- LeftAxis.Grid.Style = psSolid
- LeftAxis.LabelsFont.Color = clBlack
- LeftAxis.LabelsFont.Height = -16
- LeftAxis.LabelsFont.Name = 'Arial'
- LeftAxis.LabelsFont.Style = [fsBold]
- LeftAxis.MinorTickCount = 0
- LeftAxis.EndPosition = 100.000000000000000000
- Legend.Visible = False
- RightAxis.EndPosition = 100.000000000000000000
- TopAxis.EndPosition = 100.000000000000000000
- View3D = False
- TabOrder = 1
- object Series3: TBarSeries
- Marks.ArrowLength = 20
- Marks.Visible = False
- SeriesColor = clRed
- BarPen.Visible = False
- BarWidthPercent = 85
- 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 Series5: TBarSeries
- Marks.ArrowLength = 20
- Marks.Visible = False
- SeriesColor = clLime
- BarPen.Visible = False
- BarWidthPercent = 85
- 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 Series6: TBarSeries
- Marks.ArrowLength = 20
- Marks.Visible = False
- SeriesColor = clBlue
- BarPen.Visible = False
- BarWidthPercent = 85
- 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 Series4: TBarSeries
- Marks.ArrowLength = 20
- Marks.Visible = False
- SeriesColor = clYellow
- BarPen.Visible = False
- BarWidthPercent = 85
- 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 Chart3: TChart
- Left = 353
- Top = 43
- Width = 313
- Height = 201
- BackWall.Brush.Color = clWhite
- BackWall.Brush.Style = bsClear
- BackWall.Pen.Visible = False
- MarginTop = 9
- Title.Text.Strings = (
- 'TChart')
- Title.Visible = False
- BottomAxis.Grid.Visible = False
- BottomAxis.MinorTickCount = 0
- BottomAxis.EndPosition = 100.000000000000000000
- Frame.Visible = False
- LeftAxis.Axis.Width = 1
- LeftAxis.Grid.Visible = False
- LeftAxis.MinorTickCount = 0
- LeftAxis.EndPosition = 100.000000000000000000
- LeftAxis.TickInnerLength = 3
- LeftAxis.TickLength = 3
- Legend.Visible = False
- RightAxis.EndPosition = 100.000000000000000000
- TopAxis.EndPosition = 100.000000000000000000
- View3D = False
- BevelOuter = bvNone
- BorderStyle = bsSingle
- Color = clWhite
- TabOrder = 2
- object Series7: TBarSeries
- ColorEachPoint = True
- Marks.ArrowLength = 20
- Marks.Visible = False
- SeriesColor = clRed
- BarPen.Visible = False
- BarWidthPercent = 95
- SideMargins = False
- 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 Panel1: TPanel
- Left = 353
- Top = 251
- Width = 313
- Height = 201
- BevelOuter = bvLowered
- Color = clNavy
- TabOrder = 3
- object Memo1: TMemo
- Left = 1
- Top = 104
- Width = 311
- Height = 96
- Align = alBottom
- Alignment = taCenter
- BorderStyle = bsNone
- Color = clNavy
- Font.Color = clYellow
- Font.Height = -24
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- Lines.Strings = (
- 'No lines of code !'
- 'Change the look !'
- '3 in 1 !')
- ParentFont = False
- TabOrder = 0
- end
- object Panel2: TPanel
- Left = 82
- Top = 32
- Width = 144
- Height = 48
- TabOrder = 1
- object Image1: TImage
- Left = 1
- Top = 1
- Width = 142
- Height = 46
- Align = alClient
- AutoSize = True
- Picture.Data = {<image000.bmp>}
- end
- end
- end
- object Panel3: TPanel
- Left = 0
- Top = 0
- Width = 667
- Height = 41
- Align = alTop
- TabOrder = 4
- object Label1: TLabel
- Left = 136
- Top = 16
- Width = 369
- Height = 13
- Caption =
- 'The three TeeCharts below are just three combinations of TeeChar' +
- 't properties.'
- end
- object Button1: TButton
- Left = 16
- Top = 4
- Width = 89
- Height = 33
- Caption = 'Close'
- TabOrder = 0
- OnClick = Button1Click
- end
- end
- end
-