home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Expert 29
/
Pce29cd.iso
/
RUNIMAGE
/
DELPHI40
/
DEMOS
/
TEECHART
/
TEEBASIC.DFM
/
TEEBASIC.txt
< prev
Wrap
Text File
|
1998-06-16
|
46KB
|
1,437 lines
object DemoForm: TDemoForm
Left = 63
Top = 100
Width = 628
Height = 440
ActiveControl = ListBox1
Caption = 'DemoForm'
Color = clNavy
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = True
Position = poScreenCenter
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Label4: TLabel
Left = 121
Top = 260
Width = 23
Height = 13
Alignment = taRightJustify
Caption = 'Slow'
end
object Label5: TLabel
Left = 12
Top = 260
Width = 20
Height = 13
Caption = 'Fast'
end
object Panel2: TPanel
Left = 0
Top = 374
Width = 620
Height = 39
Align = alBottom
TabOrder = 1
object SpeedButton1: TSpeedButton
Left = 312
Top = 7
Width = 25
Height = 25
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333FF3333333333333003333333333333F77F33333333333009033
333333333F7737F333333333009990333333333F773337FFFFFF330099999000
00003F773333377777770099999999999990773FF33333FFFFF7330099999000
000033773FF33777777733330099903333333333773FF7F33333333333009033
33333333337737F3333333333333003333333333333377333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 344
Top = 7
Width = 25
Height = 25
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
3333333333777F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
3333333777737777F333333099999990333333373F3333373333333309999903
333333337F33337F33333333099999033333333373F333733333333330999033
3333333337F337F3333333333099903333333333373F37333333333333090333
33333333337F7F33333333333309033333333333337373333333333333303333
333333333337F333333333333330333333333333333733333333}
NumGlyphs = 2
OnClick = SpeedButton2Click
end
object SpeedButton3: TSpeedButton
Left = 376
Top = 7
Width = 25
Height = 25
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
333333333337F33333333333333033333333333333373F333333333333090333
33333333337F7F33333333333309033333333333337373F33333333330999033
3333333337F337F33333333330999033333333333733373F3333333309999903
333333337F33337F33333333099999033333333373333373F333333099999990
33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
33333333337F7F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333300033333333333337773333333}
NumGlyphs = 2
OnClick = SpeedButton3Click
end
object SpeedButton4: TSpeedButton
Left = 408
Top = 7
Width = 25
Height = 25
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333FF3333333333333003333
3333333333773FF3333333333309003333333333337F773FF333333333099900
33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
33333333337F3F77333333333309003333333333337F77333333333333003333
3333333333773333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
OnClick = SpeedButton4Click
end
object Button2: TButton
Left = 492
Top = 7
Width = 75
Height = 25
Caption = '< Back'
TabOrder = 0
OnClick = Button2Click
end
object BitBtn1: TBitBtn
Left = 16
Top = 7
Width = 81
Height = 25
Caption = 'Zoom In'
TabOrder = 1
OnClick = BitBtn1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33033333333333333F7F3333333333333000333333333333F777333333333333
000333333333333F777333333333333000333333333333F77733333333333300
033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
33333377333777733333307F8F8F7033333337F333F337F3333377F8F9F8F773
3333373337F3373F3333078F898F870333337F33F7FFF37F333307F99999F703
33337F377777337F3333078F898F8703333373F337F33373333377F8F9F8F773
333337F3373337F33333307F8F8F70333333373FF333F7333333330777770333
333333773FF77333333333370007333333333333777333333333}
NumGlyphs = 2
end
object BitBtn2: TBitBtn
Left = 110
Top = 7
Width = 85
Height = 25
Caption = 'Zoom Out'
TabOrder = 2
OnClick = BitBtn2Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33033333333333333F7F3333333333333000333333333333F777333333333333
000333333333333F777333333333333000333333333333F77733333333333300
033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
333333773337777333333078F8F87033333337F3333337F33333778F8F8F8773
333337333333373F333307F8F8F8F70333337F33FFFFF37F3333078999998703
33337F377777337F333307F8F8F8F703333373F3333333733333778F8F8F8773
333337F3333337F333333078F8F870333333373FF333F7333333330777770333
333333773FF77333333333370007333333333333777333333333}
NumGlyphs = 2
end
object Button3: TButton
Left = 204
Top = 7
Width = 75
Height = 25
Caption = 'Reset Zoom'
Enabled = False
TabOrder = 3
OnClick = Button3Click
end
end
object Panel3: TPanel
Left = 453
Top = 0
Width = 167
Height = 374
Align = alRight
TabOrder = 2
object Image1: TImage
Left = 14
Top = 6
Width = 141
Height = 45
AutoSize = True
Picture.Data = {<image000.bmp>}
OnClick = Image1Click
end
object Label1: TLabel
Left = 12
Top = 66
Width = 64
Height = 13
Caption = '&Series Types:'
FocusControl = ListBox1
end
object Label2: TLabel
Left = 17
Top = 247
Width = 20
Height = 13
Caption = 'Fast'
end
object Label3: TLabel
Left = 126
Top = 247
Width = 23
Height = 13
Alignment = taRightJustify
Caption = 'Slow'
end
object Label6: TLabel
Left = 17
Top = 300
Width = 14
Height = 13
Caption = '2D'
end
object Label7: TLabel
Left = 135
Top = 300
Width = 14
Height = 13
Alignment = taRightJustify
Caption = '3D'
end
object Label8: TLabel
Left = 8
Top = 346
Width = 43
Height = 13
Caption = '&Rotation:'
FocusControl = ScrollBar3
end
object ListBox1: TListBox
Left = 12
Top = 82
Width = 145
Height = 152
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ItemHeight = 13
Items.Strings = (
'Line / Strip'
'Bar / Stacked'
'Horizontal Bar /Stacked'
'Area / Step'
'Point XY / Scatter'
'Pie'
'Fast Line'
'Arrow'
'Bubble'
'Gantt'
'Shapes')
ParentFont = False
TabOrder = 0
OnClick = ListBox1Click
end
object CheckBox1: TCheckBox
Left = 53
Top = 292
Width = 37
Height = 17
Caption = '3&D:'
Checked = True
State = cbChecked
TabOrder = 1
OnClick = CheckBox1Click
end
object CheckBox2: TCheckBox
Left = 53
Top = 239
Width = 57
Height = 17
Caption = '&Animate'
Checked = True
State = cbChecked
TabOrder = 2
OnClick = CheckBox2Click
end
object ScrollBar1: TScrollBar
Left = 17
Top = 263
Width = 133
Height = 16
LargeChange = 100
Max = 1000
Min = 1
PageSize = 0
Position = 1
SmallChange = 25
TabOrder = 3
OnChange = ScrollBar1Change
end
object ScrollBar2: TScrollBar
Left = 17
Top = 316
Width = 133
Height = 16
Min = 1
PageSize = 0
Position = 15
TabOrder = 4
OnChange = ScrollBar2Change
end
object ScrollBar3: TScrollBar
Left = 56
Top = 344
Width = 94
Height = 16
Max = 360
Min = 270
PageSize = 0
Position = 360
TabOrder = 5
OnChange = ScrollBar3Change
end
end
object Notebook1: TNotebook
Left = 0
Top = 0
Width = 453
Height = 374
Align = alClient
PageIndex = 2
TabOrder = 0
object TPage
Left = 0
Top = 0
Caption = 'Line'
object Chart1: TChart
Left = 0
Top = 0
Width = 453
Height = 374
BackWall.Color = clWhite
BottomWall.Color = 16777088
BottomWall.Size = 9
LeftWall.Color = 8454016
LeftWall.Size = 9
Title.Brush.Color = 8388863
Title.Font.Charset = DEFAULT_CHARSET
Title.Font.Color = clWhite
Title.Font.Height = -19
Title.Font.Name = 'Arial'
Title.Font.Style = [fsBold, fsItalic]
Title.Frame.Width = 3
Title.Frame.Visible = True
Title.Text.Strings = (
'Worldwide Fuel Consumption'
'( in millions of liters )')
BackColor = clWhite
BottomAxis.Axis.Color = clBlue
BottomAxis.Grid.Visible = False
BottomAxis.LabelsFont.Charset = DEFAULT_CHARSET
BottomAxis.LabelsFont.Color = clBlack
BottomAxis.LabelsFont.Height = -11
BottomAxis.LabelsFont.Name = 'Courier New'
BottomAxis.LabelsFont.Style = [fsBold]
BottomAxis.TickInnerLength = 6
BottomAxis.TicksInner.Width = 2
BottomAxis.Title.Caption = 'Measure Station'
BottomAxis.Title.Font.Charset = DEFAULT_CHARSET
BottomAxis.Title.Font.Color = clBlue
BottomAxis.Title.Font.Height = -13
BottomAxis.Title.Font.Name = 'Arial'
BottomAxis.Title.Font.Style = [fsBold]
LeftAxis.Grid.Color = clBlue
LeftAxis.MinorTickCount = 2
LeftAxis.MinorTickLength = 4
LeftAxis.TickInnerLength = 9
LeftAxis.TickLength = 7
LeftAxis.Ticks.Width = 2
LeftAxis.Title.Caption = 'Liters'
LeftAxis.Title.Font.Charset = DEFAULT_CHARSET
LeftAxis.Title.Font.Color = clNavy
LeftAxis.Title.Font.Height = -16
LeftAxis.Title.Font.Name = 'Arial'
LeftAxis.Title.Font.Style = [fsBold, fsItalic]
Legend.Color = clBlue
Legend.ColorWidth = 27
Legend.Font.Charset = DEFAULT_CHARSET
Legend.Font.Color = clWhite
Legend.Font.Height = -13
Legend.Font.Name = 'Arial'
Legend.Font.Style = [fsBold]
Align = alClient
Color = 8454143
TabOrder = 0
object Series1: TLineSeries
Marks.ArrowLength = 8
Marks.Visible = False
Title = 'Europe'
SeriesColor = 65408
Pointer.Brush.Color = clRed
Pointer.HorizSize = 6
Pointer.InflateMargins = False
Pointer.Style = psCircle
Pointer.VertSize = 6
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
object Series2: TLineSeries
Marks.ArrowLength = 8
Marks.Visible = False
Title = 'America'
SeriesColor = clAqua
Pointer.Brush.Color = clLime
Pointer.HorizSize = 6
Pointer.InflateMargins = False
Pointer.Style = psTriangle
Pointer.VertSize = 6
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
object Series3: TLineSeries
Marks.ArrowLength = 8
Marks.Visible = False
Title = 'Asia'
SeriesColor = clYellow
LinePen.Visible = False
Pointer.Brush.Color = clBlue
Pointer.HorizSize = 6
Pointer.InflateMargins = False
Pointer.Style = psDownTriangle
Pointer.VertSize = 6
Pointer.Visible = True
Stairs = 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
object Series4: TLineSeries
Marks.ArrowLength = 8
Marks.Visible = False
Title = 'Africa'
SeriesColor = clBlue
Pointer.Brush.Color = 8454143
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
end
object TPage
Left = 0
Top = 0
Caption = 'Bar'
object Chart2: TChart
Left = 0
Top = 0
Width = 453
Height = 374
BackWall.Color = 8454143
BackWall.Pen.Color = clRed
BottomWall.Size = 4
LeftWall.Color = 16777088
LeftWall.Size = 4
Title.Alignment = taRightJustify
Title.Font.Charset = DEFAULT_CHARSET
Title.Font.Color = clBlue
Title.Font.Height = -16
Title.Font.Name = 'Arial'
Title.Font.Style = []
Title.Text.Strings = (
'American Charting Suppliers, Inc.'
'1997 Production Volume')
BackColor = 8454143
Frame.Color = clRed
LeftAxis.Grid.Visible = False
LeftAxis.Title.Caption = 'Millions of $'
LeftAxis.Title.Font.Charset = DEFAULT_CHARSET
LeftAxis.Title.Font.Color = clBlack
LeftAxis.Title.Font.Height = -15
LeftAxis.Title.Font.Name = 'Arial'
LeftAxis.Title.Font.Style = []
Legend.Alignment = laTop
Legend.ColorWidth = 22
Legend.DividingLines.Color = clSilver
Legend.DividingLines.Visible = True
Legend.ShadowColor = clGray
Legend.ShadowSize = 5
Align = alClient
TabOrder = 0
object ComboBox1: TComboBox
Left = 12
Top = 8
Width = 109
Height = 21
Style = csDropDownList
ItemHeight = 13
Items.Strings = (
'None'
'Side to Side'
'Stacked'
'Stacked 100%')
TabOrder = 0
OnChange = ComboBox1Change
end
object Series5: TBarSeries
Marks.ArrowLength = 20
Marks.Visible = False
Title = 'San Francisco'
MultiBar = mbNone
SeriesColor = clNavy
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 Series7: TBarSeries
Marks.ArrowLength = 20
Marks.BackColor = 16777088
Marks.Visible = False
Title = 'Hong Kong'
MultiBar = mbNone
SeriesColor = clYellow
XValues.DateTime = True
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.BackColor = 65408
Marks.Visible = True
Title = 'Paris'
MultiBar = mbNone
SeriesColor = clBlue
XValues.DateTime = True
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
end
object TPage
Left = 0
Top = 0
Caption = 'Horizontal Bar'
object Chart3: TChart
Left = 0
Top = 0
Width = 453
Height = 374
BackWall.Color = 12615935
BottomWall.Size = 8
Foot.Font.Charset = DEFAULT_CHARSET
Foot.Font.Color = clRed
Foot.Font.Height = -19
Foot.Font.Name = 'Arial'
Foot.Font.Style = [fsItalic]
Foot.Text.Strings = (
'Ethernet Protocol Statistics')
LeftWall.Size = 8
MarginLeft = 4
MarginRight = 4
MarginTop = 9
Title.Text.Strings = (
'')
Title.Visible = False
BackColor = 12615935
Chart3DPercent = 40
Legend.Alignment = laTop
Legend.TopPos = 19
RightAxis.Title.Caption = 'Hub'
TopAxis.Title.Caption = 'Packets ( in thousands )'
TopAxis.Title.Font.Charset = DEFAULT_CHARSET
TopAxis.Title.Font.Color = clNavy
TopAxis.Title.Font.Height = -15
TopAxis.Title.Font.Name = 'Arial'
TopAxis.Title.Font.Style = [fsBold, fsItalic]
Align = alClient
TabOrder = 0
object ComboBox2: TComboBox
Left = 12
Top = 8
Width = 109
Height = 21
Style = csDropDownList
ItemHeight = 13
Items.Strings = (
'None'
'Side to Side'
'Stacked'
'Stacked 100%')
TabOrder = 0
OnChange = ComboBox1Change
end
object Series8: THorizBarSeries
Marks.ArrowLength = 20
Marks.Visible = False
Title = 'IP'
MultiBar = mbStacked
SeriesColor = clRed
VertAxis = aRightAxis
XValues.DateTime = False
XValues.Name = 'Bar'
XValues.Multiplier = 1.000000000000000000
XValues.Order = loNone
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1.000000000000000000
YValues.Order = loNone
end
object Series10: THorizBarSeries
Marks.ArrowLength = 20
Marks.Visible = False
Title = 'Netware'
MultiBar = mbStacked
SeriesColor = clYellow
VertAxis = aRightAxis
XValues.DateTime = False
XValues.Name = 'Bar'
XValues.Multiplier = 1.000000000000000000
XValues.Order = loNone
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1.000000000000000000
YValues.Order = loNone
end
object Series9: THorizBarSeries
Marks.ArrowLength = 20
Marks.BackColor = clBlue
Marks.Font.Charset = DEFAULT_CHARSET
Marks.Font.Color = clAqua
Marks.Font.Height = -11
Marks.Font.Name = 'Arial'
Marks.Font.Style = []
Marks.Frame.Color = clWhite
Marks.Visible = True
Title = 'ARP'
MultiBar = mbStacked
SeriesColor = 8454016
VertAxis = aRightAxis
XValues.DateTime = False
XValues.Name = 'Bar'
XValues.Multiplier = 1.000000000000000000
XValues.Order = loNone
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1.000000000000000000
YValues.Order = loNone
end
end
end
object TPage
Left = 0
Top = 0
Caption = 'Area'
object Chart4: TChart
Left = 0
Top = 0
Width = 453
Height = 374
BackWall.Brush.Style = bsClear
BottomWall.Color = clNavy
BottomWall.Size = 8
Foot.Text.Strings = (
''
'number of users')
LeftWall.Color = clWhite
LeftWall.Size = 8
MarginBottom = 6
MarginLeft = 6
Title.Font.Charset = DEFAULT_CHARSET
Title.Font.Color = clBlue
Title.Font.Height = -13
Title.Font.Name = 'Arial'
Title.Font.Style = [fsBold]
Title.Text.Strings = (
'Database licences policy'
'Cost per user')
BottomAxis.Grid.Style = psSolid
Chart3DPercent = 30
LeftAxis.Grid.Style = psSolid
Legend.Color = 8454143
Legend.Font.Charset = DEFAULT_CHARSET
Legend.Font.Color = clBlack
Legend.Font.Height = -12
Legend.Font.Name = 'Arial'
Legend.Font.Style = [fsBold]
Legend.Frame.Width = 2
RightAxis.Grid.Color = clYellow
RightAxis.Grid.Style = psSolid
RightAxis.LabelsFont.Charset = DEFAULT_CHARSET
RightAxis.LabelsFont.Color = clBlack
RightAxis.LabelsFont.Height = -11
RightAxis.LabelsFont.Name = 'Arial'
RightAxis.LabelsFont.Style = [fsBold]
RightAxis.Title.Caption = 'Price'
TopAxis.Grid.Style = psSolid
TopAxis.Grid.Visible = False
TopAxis.LabelsFont.Charset = DEFAULT_CHARSET
TopAxis.LabelsFont.Color = clPurple
TopAxis.LabelsFont.Height = -12
TopAxis.LabelsFont.Name = 'Arial'
TopAxis.LabelsFont.Style = []
Align = alClient
TabOrder = 0
object CheckBox4: TCheckBox
Left = 8
Top = 8
Width = 57
Height = 17
Caption = 'Steps'
TabOrder = 0
OnClick = CheckBox4Click
end
object Series11: TAreaSeries
Marks.ArrowLength = 8
Marks.Visible = False
Title = 'SQL-Provider 1.2'
HorizAxis = aTopAxis
SeriesColor = clAqua
VertAxis = aRightAxis
AreaColor = clAqua
AreaLinesPen.Color = clGray
DrawArea = 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
object Series12: TAreaSeries
Marks.ArrowLength = 8
Marks.Visible = False
Title = 'Super-OLAP 2.0'
HorizAxis = aTopAxis
SeriesColor = clTeal
VertAxis = aRightAxis
AreaColor = clTeal
DrawArea = 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
end
object TPage
Left = 0
Top = 0
Caption = 'Point XY'
object Chart5: TChart
Left = 0
Top = 0
Width = 453
Height = 374
BackWall.Color = clGray
BottomWall.Color = clSilver
BottomWall.Size = 6
Gradient.Direction = gdRightLeft
Gradient.Visible = True
LeftWall.Color = clSilver
LeftWall.Size = 6
Title.Font.Charset = DEFAULT_CHARSET
Title.Font.Color = clTeal
Title.Font.Height = -16
Title.Font.Name = 'Arial'
Title.Font.Style = [fsBold]
Title.Text.Strings = (
'Fuel Consumption')
BackColor = clGray
BottomAxis.Grid.Visible = False
LeftAxis.Grid.Visible = False
LeftAxis.LabelsFont.Charset = DEFAULT_CHARSET
LeftAxis.LabelsFont.Color = clOlive
LeftAxis.LabelsFont.Height = -11
LeftAxis.LabelsFont.Name = 'Arial'
LeftAxis.LabelsFont.Style = [fsBold]
Legend.Alignment = laTop
Legend.Color = clBlack
Legend.ColorWidth = 32
Legend.Font.Charset = DEFAULT_CHARSET
Legend.Font.Color = clAqua
Legend.Font.Height = -12
Legend.Font.Name = 'Arial'
Legend.Font.Style = []
Legend.Frame.Color = clRed
Legend.Frame.Width = 2
Legend.ShadowColor = clWhite
Legend.ShadowSize = 1
RightAxis.Grid.Style = psSolid
RightAxis.LabelsFont.Charset = DEFAULT_CHARSET
RightAxis.LabelsFont.Color = clNavy
RightAxis.LabelsFont.Height = -12
RightAxis.LabelsFont.Name = 'Arial'
RightAxis.LabelsFont.Style = [fsItalic]
TopAxis.Grid.Style = psSolid
TopAxis.LabelsFont.Charset = DEFAULT_CHARSET
TopAxis.LabelsFont.Color = clBlue
TopAxis.LabelsFont.Height = -12
TopAxis.LabelsFont.Name = 'Arial'
TopAxis.LabelsFont.Style = []
Align = alClient
TabOrder = 0
object Series13: TPointSeries
Marks.ArrowLength = 0
Marks.Visible = False
Title = 'Cars'
SeriesColor = clRed
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
object Series14: TPointSeries
Marks.ArrowLength = 0
Marks.Visible = False
Title = 'Bikes'
SeriesColor = clGreen
Pointer.HorizSize = 6
Pointer.InflateMargins = True
Pointer.Style = psCircle
Pointer.VertSize = 6
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
object Series15: TPointSeries
Marks.ArrowLength = 0
Marks.Visible = False
Title = 'Trucks'
SeriesColor = clYellow
Pointer.HorizSize = 6
Pointer.InflateMargins = True
Pointer.Style = psTriangle
Pointer.VertSize = 6
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
object Series16: TPointSeries
Marks.ArrowLength = 0
Marks.Visible = False
Title = 'Boats'
HorizAxis = aTopAxis
SeriesColor = clBlue
VertAxis = aRightAxis
Pointer.HorizSize = 8
Pointer.InflateMargins = True
Pointer.Style = psDownTriangle
Pointer.VertSize = 8
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
object Series17: TPointSeries
Marks.ArrowLength = 0
Marks.Visible = False
Title = 'Planes'
SeriesColor = clWhite
Pointer.HorizSize = 7
Pointer.InflateMargins = True
Pointer.Style = psDiagCross
Pointer.VertSize = 2
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
object Series18: TPointSeries
Marks.ArrowLength = 0
Marks.Visible = False
Title = 'Rockets'
HorizAxis = aTopAxis
SeriesColor = clGray
VertAxis = aRightAxis
Pointer.InflateMargins = True
Pointer.Style = psDiamond
Pointer.VertSize = 9
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
end
object TPage
Left = 0
Top = 0
Caption = 'Pie'
object Chart6: TChart
Left = 0
Top = 0
Width = 453
Height = 374
AllowPanning = pmNone
AllowZoom = False
BackWall.Brush.Style = bsClear
BackWall.Pen.Visible = False
Foot.Text.Strings = (
'The Furniture Specialists Intl.')
Gradient.Direction = gdRightLeft
Gradient.Visible = True
Title.Font.Charset = DEFAULT_CHARSET
Title.Font.Color = clBlue
Title.Font.Height = -16
Title.Font.Name = 'Arial'
Title.Font.Style = []
Title.Text.Strings = (
'% Growth Rate ')
AxisVisible = False
ClipPoints = False
Frame.Visible = False
Legend.Alignment = laLeft
Legend.Color = 8453888
Legend.Frame.Color = clBlue
Legend.Frame.Style = psDot
Legend.Frame.Width = 2
Legend.ShadowColor = clGray
Legend.ShadowSize = 4
Legend.TextStyle = ltsLeftPercent
Legend.TopPos = 59
View3DOptions.Elevation = 315
View3DOptions.Orthogonal = False
View3DOptions.Rotation = 360
View3DWalls = False
Align = alClient
TabOrder = 0
object CheckBox3: TCheckBox
Left = 16
Top = 20
Width = 53
Height = 17
Caption = 'Circled'
Color = clWhite
ParentColor = False
TabOrder = 0
OnClick = CheckBox3Click
end
object Series19: TPieSeries
Marks.Arrow.Color = clBlack
Marks.ArrowLength = 8
Marks.BackColor = clBlack
Marks.Font.Charset = DEFAULT_CHARSET
Marks.Font.Color = clWhite
Marks.Font.Height = -11
Marks.Font.Name = 'Arial'
Marks.Font.Style = []
Marks.Visible = True
OtherSlice.Text = 'Other'
PieValues.DateTime = False
PieValues.Name = 'Pie'
PieValues.Multiplier = 1.000000000000000000
PieValues.Order = loNone
end
end
end
object TPage
Left = 0
Top = 0
Caption = 'Fast Line'
object Chart7: TChart
Left = 0
Top = 0
Width = 453
Height = 374
BackWall.Brush.Style = bsClear
Title.AdjustFrame = False
Title.Brush.Color = clBlue
Title.Font.Charset = DEFAULT_CHARSET
Title.Font.Color = clAqua
Title.Font.Height = -19
Title.Font.Name = 'Arial'
Title.Font.Style = []
Title.Frame.Width = 2
Title.Frame.Visible = True
Title.Text.Strings = (
'Traded Volume from 1990 to 1996')
BottomAxis.Title.Caption = 'Trading Sessions'
LeftAxis.Title.Caption = 'Number of Shares'
Legend.Alignment = laTop
Legend.Color = clGray
Legend.Font.Charset = DEFAULT_CHARSET
Legend.Font.Color = clWhite
Legend.Font.Height = -11
Legend.Font.Name = 'Arial'
Legend.Font.Style = []
View3D = False
Align = alClient
TabOrder = 0
object Series20: TFastLineSeries
Marks.ArrowLength = 8
Marks.Visible = False
Title = 'New York'
LinePen.Color = clRed
SeriesColor = clRed
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
object Series21: TFastLineSeries
Marks.ArrowLength = 8
Marks.Visible = False
Title = 'Chicago'
LinePen.Color = clGreen
SeriesColor = clGreen
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1.000000000000000000
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1.000000000000000000
YValues.Order = loNone
end
object Series22: TFastLineSeries
Marks.ArrowLength = 8
Marks.Visible = False
Title = 'Copenhague'
LinePen.Color = clYellow
SeriesColor = clYellow
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1.000000000000000000
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1.000000000000000000
YValues.Order = loNone
end
object Series23: TFastLineSeries
Marks.ArrowLength = 8
Marks.Visible = False
Title = 'Barcelona'
LinePen.Color = clBlue
SeriesColor = clBlue
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1.000000000000000000
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1.000000000000000000
YValues.Order = loNone
end
object Series24: TFastLineSeries
Marks.ArrowLength = 8
Marks.Visible = False
Title = 'Montreal'
LinePen.Color = clWhite
SeriesColor = clWhite
XValues.DateTime = True
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
end
object TPage
Left = 0
Top = 0
Caption = 'Arrow'
object Chart8: TChart
Left = 0
Top = 0
Width = 453
Height = 374
BackWall.Brush.Style = bsClear
Title.Font.Charset = DEFAULT_CHARSET
Title.Font.Color = clBlue
Title.Font.Height = -16
Title.Font.Name = 'Arial'
Title.Font.Style = []
Title.Text.Strings = (
'Weather in Japan')
Align = alClient
TabOrder = 0
object Series26: TArrowSeries
Marks.ArrowLength = 0
Marks.Frame.Visible = False
Marks.Transparent = True
Marks.Visible = False
SeriesColor = clRed
Pointer.InflateMargins = False
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
EndXValues.DateTime = True
EndXValues.Name = 'EndX'
EndXValues.Multiplier = 1.000000000000000000
EndXValues.Order = loNone
EndYValues.DateTime = False
EndYValues.Name = 'EndY'
EndYValues.Multiplier = 1.000000000000000000
EndYValues.Order = loNone
StartXValues.DateTime = False
StartXValues.Name = 'X'
StartXValues.Multiplier = 1.000000000000000000
StartXValues.Order = loAscending
StartYValues.DateTime = False
StartYValues.Name = 'Y'
StartYValues.Multiplier = 1.000000000000000000
StartYValues.Order = loNone
end
object Series27: TArrowSeries
Marks.ArrowLength = 0
Marks.Frame.Visible = False
Marks.Transparent = True
Marks.Visible = False
SeriesColor = clGreen
Pointer.InflateMargins = False
Pointer.Style = psRectangle
Pointer.Visible = True
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1.000000000000000000
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1.000000000000000000
YValues.Order = loNone
EndXValues.DateTime = True
EndXValues.Name = 'EndX'
EndXValues.Multiplier = 1.000000000000000000
EndXValues.Order = loNone
EndYValues.DateTime = False
EndYValues.Name = 'EndY'
EndYValues.Multiplier = 1.000000000000000000
EndYValues.Order = loNone
StartXValues.DateTime = True
StartXValues.Name = 'X'
StartXValues.Multiplier = 1.000000000000000000
StartXValues.Order = loAscending
StartYValues.DateTime = False
StartYValues.Name = 'Y'
StartYValues.Multiplier = 1.000000000000000000
StartYValues.Order = loNone
end
end
end
object TPage
Left = 0
Top = 0
Caption = 'Bubble'
object Chart9: TChart
Left = 0
Top = 0
Width = 453
Height = 374
BackWall.Brush.Style = bsClear
Title.Text.Strings = (
'TChart')
Legend.Visible = False
Align = alClient
TabOrder = 0
object Series28: TBubbleSeries
Marks.ArrowLength = 0
Marks.Frame.Visible = False
Marks.Transparent = True
Marks.Visible = True
OnGetMarkText = Series28GetMarkText
HorizAxis = aTopAxis
SeriesColor = clRed
VertAxis = aRightAxis
Pointer.HorizSize = 20
Pointer.InflateMargins = False
Pointer.Style = psCircle
Pointer.VertSize = 20
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
RadiusValues.DateTime = False
RadiusValues.Name = 'Radius'
RadiusValues.Multiplier = 1.000000000000000000
RadiusValues.Order = loNone
end
end
end
object TPage
Left = 0
Top = 0
Caption = 'Gantt'
object Chart10: TChart
Left = 0
Top = 0
Width = 453
Height = 374
BackWall.Brush.Style = bsClear
Title.Text.Strings = (
'TChart')
Chart3DPercent = 5
Legend.Visible = False
Align = alClient
TabOrder = 0
object Series29: TGanttSeries
ColorEachPoint = True
Marks.ArrowLength = 0
Marks.Visible = False
SeriesColor = clRed
Pointer.InflateMargins = True
Pointer.Style = psRectangle
Pointer.Visible = True
XValues.DateTime = True
XValues.Name = 'Start'
XValues.Multiplier = 1.000000000000000000
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1.000000000000000000
YValues.Order = loNone
StartValues.DateTime = True
StartValues.Name = 'Start'
StartValues.Multiplier = 1.000000000000000000
StartValues.Order = loAscending
EndValues.DateTime = False
EndValues.Name = 'End'
EndValues.Multiplier = 1.000000000000000000
EndValues.Order = loNone
NextTask.DateTime = False
NextTask.Name = 'NextTask'
NextTask.Multiplier = 1.000000000000000000
NextTask.Order = loNone
end
end
end
object TPage
Left = 0
Top = 0
Caption = 'Shapes'
object Chart11: TChart
Left = 0
Top = 0
Width = 453
Height = 374
BackWall.Brush.Style = bsClear
Title.Text.Strings = (
'TChart')
Align = alClient
TabOrder = 0
object Series30: TChartShape
Marks.ArrowLength = 8
Marks.Visible = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
X0 = 20.000000000000000000
X1 = 100.000000000000000000
Y0 = 20.000000000000000000
Y1 = 100.000000000000000000
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
object Series31: TChartShape
Marks.ArrowLength = 8
Marks.Visible = False
Brush.Color = clYellow
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
Style = chasDiamond
X0 = 30.000000000000000000
X1 = 90.000000000000000000
Y0 = 30.500000000000000000
Y1 = 114.000000000000000000
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
object Series32: TChartShape
Marks.ArrowLength = 8
Marks.Visible = False
Brush.Color = clAqua
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
Style = chasTriangle
X0 = 30.000000000000000000
X1 = 90.000000000000000000
Y0 = 47.500000000000000000
Y1 = 102.000000000000000000
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
end
end
object Timer1: TTimer
Enabled = False
Interval = 300
OnTimer = Timer1Timer
Left = 404
Top = 18
end
end