home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / STANDARD / BUBBLE.DFM / BUBBLE.txt
Encoding:
Text File  |  1998-10-24  |  7.5 KB  |  258 lines

  1. object BubbleForm: TBubbleForm
  2.   Left = 78
  3.   Top = 86
  4.   Width = 602
  5.   Height = 462
  6.   ActiveControl = CheckBox1
  7.   Caption = 'TeeChart Bubble Series Demo'
  8.   Font.Color = clBlack
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   PixelsPerInch = 96
  13.   Position = poScreenCenter
  14.   Scaled = False
  15.   OnCreate = FormCreate
  16.   TextHeight = 13
  17.   object Chart1: TChart
  18.     Left = 153
  19.     Top = 0
  20.     Width = 441
  21.     Height = 435
  22.     AnimatedZoom = True
  23.     AnimatedZoomSteps = 3
  24.     BackWall.Brush.Color = clWhite
  25.     BackWall.Color = clWhite
  26.     Foot.Alignment = taLeftJustify
  27.     Foot.Font.Color = clRed
  28.     Foot.Font.Height = -12
  29.     Foot.Font.Name = 'Arial'
  30.     Foot.Font.Style = [fsItalic]
  31.     Foot.Frame.Color = clScrollBar
  32.     Foot.Visible = False
  33.     Title.Alignment = taRightJustify
  34.     Title.Font.Color = clBlue
  35.     Title.Font.Height = -15
  36.     Title.Font.Name = 'Arial'
  37.     Title.Font.Style = [fsItalic]
  38.     Title.Frame.Color = clScrollBar
  39.     Title.Text.Strings = (
  40.       'This demo shows the Bubble chart Type.'
  41.       'Each Point is a Bubble with a custom Radius, Color and Label.')
  42.     BackColor = clWhite
  43.     BottomAxis.LabelsAngle = 90
  44.     BottomAxis.LabelsFont.Color = clTeal
  45.     BottomAxis.LabelsFont.Height = -12
  46.     BottomAxis.LabelsFont.Name = 'Arial'
  47.     BottomAxis.LabelsFont.Style = []
  48.     BottomAxis.EndPosition = 100.000000000000000000
  49.     BottomAxis.Title.Font.Color = clGreen
  50.     BottomAxis.Title.Font.Height = -16
  51.     BottomAxis.Title.Font.Name = 'Arial'
  52.     BottomAxis.Title.Font.Style = [fsItalic]
  53.     LeftAxis.LabelsFont.Color = clWhite
  54.     LeftAxis.LabelsFont.Height = -13
  55.     LeftAxis.LabelsFont.Name = 'Arial'
  56.     LeftAxis.LabelsFont.Style = []
  57.     LeftAxis.MinorTickLength = 4
  58.     LeftAxis.MinorTicks.Color = 4227327
  59.     LeftAxis.EndPosition = 100.000000000000000000
  60.     LeftAxis.TickLength = 8
  61.     LeftAxis.Title.Caption = 'Stock Price'
  62.     LeftAxis.Title.Font.Color = clNavy
  63.     LeftAxis.Title.Font.Height = -15
  64.     LeftAxis.Title.Font.Name = 'Arial'
  65.     LeftAxis.Title.Font.Style = [fsBold]
  66.     Legend.ColorWidth = 32
  67.     Legend.Visible = False
  68.     RightAxis.EndPosition = 100.000000000000000000
  69.     RightAxis.Title.Angle = 180
  70.     TopAxis.DateTimeFormat = 'dd/MM/yy'
  71.     TopAxis.LabelsAngle = 90
  72.     TopAxis.EndPosition = 100.000000000000000000
  73.     TopAxis.Title.Caption = 'Date'
  74.     View3D = False
  75.     Align = alClient
  76.     BevelWidth = 0
  77.     TabOrder = 0
  78.     object BubbleSeries1: TBubbleSeries
  79.       HorizAxis = aTopAxis
  80.       Marks.ArrowLength = 0
  81.       Marks.Clip = True
  82.       Marks.Font.Color = clWhite
  83.       Marks.Font.Height = -16
  84.       Marks.Font.Name = 'Arial'
  85.       Marks.Font.Style = [fsItalic]
  86.       Marks.Frame.Color = 8454143
  87.       Marks.Frame.Visible = False
  88.       Marks.Transparent = True
  89.       Marks.Visible = False
  90.       SeriesColor = clRed
  91.       OnGetPointerStyle = BubbleSeries1GetPointerStyle
  92.       Pointer.HorizSize = 37
  93.       Pointer.InflateMargins = False
  94.       Pointer.Style = psCircle
  95.       Pointer.VertSize = 37
  96.       Pointer.Visible = True
  97.       XValues.DateTime = True
  98.       XValues.Name = 'X'
  99.       XValues.Multiplier = 1.000000000000000000
  100.       XValues.Order = loAscending
  101.       YValues.DateTime = False
  102.       YValues.Name = 'Y'
  103.       YValues.Multiplier = 1.000000000000000000
  104.       YValues.Order = loNone
  105.       RadiusValues.DateTime = False
  106.       RadiusValues.Name = 'Radius'
  107.       RadiusValues.Multiplier = 1.000000000000000000
  108.       RadiusValues.Order = loNone
  109.     end
  110.   end
  111.   object Panel1: TPanel
  112.     Left = 0
  113.     Top = 0
  114.     Width = 153
  115.     Height = 435
  116.     Align = alLeft
  117.     TabOrder = 1
  118.     object Label1: TLabel
  119.       Left = 6
  120.       Top = 37
  121.       Width = 72
  122.       Height = 17
  123.       Alignment = taRightJustify
  124.       AutoSize = False
  125.       Caption = 'Bubble &Style:'
  126.     end
  127.     object ZoomInButton: TSpeedButton
  128.       Left = 40
  129.       Top = 344
  130.       Width = 25
  131.       Height = 25
  132.       Glyph.Data = {
  133.         76010000424D7601000000000000760000002800000020000000100000000100
  134.         0400000000000001000000000000000000001000000010000000000000000000
  135.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  136.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  137.         33033333333333333F7F3333333333333000333333333333F777333333333333
  138.         000333333333333F777333333333333000333333333333F77733333333333300
  139.         033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
  140.         33333377333777733333307F8F8F7033333337F333F337F3333377F8F9F8F773
  141.         3333373337F3373F3333078F898F870333337F33F7FFF37F333307F99999F703
  142.         33337F377777337F3333078F898F8703333373F337F33373333377F8F9F8F773
  143.         333337F3373337F33333307F8F8F70333333373FF333F7333333330777770333
  144.         333333773FF77333333333370007333333333333777333333333}
  145.       NumGlyphs = 2
  146.       OnClick = ZoomInButtonClick
  147.     end
  148.     object ZoomOutButton: TSpeedButton
  149.       Left = 72
  150.       Top = 344
  151.       Width = 25
  152.       Height = 25
  153.       Glyph.Data = {
  154.         76010000424D7601000000000000760000002800000020000000100000000100
  155.         0400000000000001000000000000000000001000000010000000000000000000
  156.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  157.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  158.         33033333333333333F7F3333333333333000333333333333F777333333333333
  159.         000333333333333F777333333333333000333333333333F77733333333333300
  160.         033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
  161.         333333773337777333333078F8F87033333337F3333337F33333778F8F8F8773
  162.         333337333333373F333307F8F8F8F70333337F33FFFFF37F3333078999998703
  163.         33337F377777337F333307F8F8F8F703333373F3333333733333778F8F8F8773
  164.         333337F3333337F333333078F8F870333333373FF333F7333333330777770333
  165.         333333773FF77333333333370007333333333333777333333333}
  166.       NumGlyphs = 2
  167.       OnClick = ZoomOutButtonClick
  168.     end
  169.     object CheckBox1: TCheckBox
  170.       Left = 17
  171.       Top = 8
  172.       Width = 128
  173.       Height = 17
  174.       Caption = '&Animate !!!'
  175.       Font.Color = clBlack
  176.       Font.Height = -19
  177.       Font.Name = 'Arial'
  178.       Font.Style = [fsBold]
  179.       ParentFont = False
  180.       TabOrder = 0
  181.       OnClick = CheckBox1Click
  182.     end
  183.     object CheckBox2: TCheckBox
  184.       Left = 16
  185.       Top = 104
  186.       Width = 93
  187.       Height = 17
  188.       Caption = 'View &Marks'
  189.       TabOrder = 1
  190.       OnClick = CheckBox2Click
  191.     end
  192.     object ComboBox1: TComboBox
  193.       Left = 14
  194.       Top = 53
  195.       Width = 131
  196.       Height = 21
  197.       Style = csDropDownList
  198.       ItemHeight = 13
  199.       Items.Strings = (
  200.         'Rectangle'
  201.         'Circle'
  202.         'Triangle'
  203.         'DownTriangle'
  204.         'Cross'
  205.         'DiagCross'
  206.         'Star'
  207.         'Diamond')
  208.       TabOrder = 2
  209.       OnChange = ComboBox1Change
  210.     end
  211.     object BitBtn3: TBitBtn
  212.       Left = 28
  213.       Top = 388
  214.       Width = 89
  215.       Height = 33
  216.       TabOrder = 3
  217.       Kind = bkClose
  218.     end
  219.     object CheckBox3: TCheckBox
  220.       Left = 16
  221.       Top = 88
  222.       Width = 97
  223.       Height = 17
  224.       Caption = '&Random'
  225.       TabOrder = 4
  226.       OnClick = CheckBox3Click
  227.     end
  228.     object Memo1: TMemo
  229.       Left = 16
  230.       Top = 136
  231.       Width = 121
  232.       Height = 185
  233.       Lines.Strings = (
  234.         'Each "Bubble" is '
  235.         'represented with a '
  236.         'center position and '
  237.         'Radius.'
  238.         'Each point can have a '
  239.         'different style using the '
  240.         'OnGetPointerStyle '
  241.         'event.'
  242.         ''
  243.         'This example also '
  244.         'shows '
  245.         'Axis labels and title '
  246.         'rotation.')
  247.       TabOrder = 5
  248.     end
  249.   end
  250.   object Timer1: TTimer
  251.     Enabled = False
  252.     Interval = 1
  253.     OnTimer = Timer1Timer
  254.     Left = 82
  255.     Top = 62
  256.   end
  257. end
  258.