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