home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / Runimage / Delphi50 / Demos / Teechart / udbhoriz.dfm / udbhoriz.txt
Encoding:
Text File  |  1999-08-11  |  10.0 KB  |  296 lines
  1. object DBHorizBarForm: TDBHorizBarForm
  2.   Left = -4
  3.   Top = -4
  4.   Width = 808
  5.   Height = 580
  6.   Caption = 'TeeChart Example. Horizontal and Vertical Bars with DBChart'
  7.   Font.Color = clBlack
  8.   Font.Height = -11
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   Position = poDefault
  13.   Scaled = False
  14.   WindowState = wsMaximized
  15.   OnShow = FormShow
  16.   TextHeight = 13
  17.   object DBChart1: TDBChart
  18.     Left = 145
  19.     Top = 0
  20.     Width = 655
  21.     Height = 553
  22.     AnimatedZoom = True
  23.     BottomWall.Color = 16777088
  24.     Foot.Brush.Color = clBlue
  25.     Foot.Font.Color = clLime
  26.     Foot.Font.Height = -13
  27.     Foot.Font.Name = 'Arial'
  28.     Foot.Font.Style = [fsBold, fsItalic]
  29.     Foot.Frame.Color = clWhite
  30.     Foot.Frame.Width = 5
  31.     Foot.Frame.Visible = True
  32.     Foot.Text.Strings = (
  33.       'Who has all of them ?')
  34.     LeftWall.Color = 8454143
  35.     Title.Alignment = taLeftJustify
  36.     Title.Brush.Color = clNavy
  37.     Title.Font.Color = clYellow
  38.     Title.Font.Height = -19
  39.     Title.Font.Name = 'Arial'
  40.     Title.Font.Style = [fsBold, fsItalic]
  41.     Title.Frame.Color = clBlue
  42.     Title.Frame.Width = 5
  43.     Title.Frame.Visible = True
  44.     Title.Text.Strings = (
  45.       'Animal Comparison'
  46.       'Size vs. Weight')
  47.     BackColor = clWhite
  48.     BottomAxis.LabelsFont.Color = clGreen
  49.     BottomAxis.LabelsFont.Height = -13
  50.     BottomAxis.LabelsFont.Name = 'Arial'
  51.     BottomAxis.LabelsFont.Style = [fsBold, fsItalic]
  52.     BottomAxis.LabelStyle = talValue
  53.     BottomAxis.Title.Caption = 'Size in Inches'
  54.     BottomAxis.Title.Font.Color = clYellow
  55.     BottomAxis.Title.Font.Height = -16
  56.     BottomAxis.Title.Font.Name = 'Arial'
  57.     BottomAxis.Title.Font.Style = [fsBold]
  58.     Chart3DPercent = 90
  59.     LeftAxis.Inverted = True
  60.     LeftAxis.LabelsFont.Color = clNavy
  61.     LeftAxis.LabelsFont.Height = -13
  62.     LeftAxis.LabelsFont.Name = 'Arial'
  63.     LeftAxis.LabelsFont.Style = [fsBold]
  64.     LeftAxis.LabelsSeparation = 5
  65.     LeftAxis.LabelStyle = talText
  66.     LeftAxis.Title.Caption = 'Animal Name'
  67.     LeftAxis.Title.Font.Color = clRed
  68.     LeftAxis.Title.Font.Height = -19
  69.     LeftAxis.Title.Font.Name = 'Arial'
  70.     LeftAxis.Title.Font.Style = [fsBold, fsItalic]
  71.     Legend.ColorWidth = 60
  72.     TopAxis.LabelsFont.Color = clRed
  73.     TopAxis.LabelsFont.Height = -13
  74.     TopAxis.LabelsFont.Name = 'Arial'
  75.     TopAxis.LabelsFont.Style = [fsItalic]
  76.     TopAxis.Title.Caption = 'Weight in Kg'
  77.     TopAxis.Title.Font.Color = clBlue
  78.     TopAxis.Title.Font.Height = -16
  79.     TopAxis.Title.Font.Name = 'Arial'
  80.     TopAxis.Title.Font.Style = []
  81.     Align = alClient
  82.     TabOrder = 0
  83.     object HorizBarSeries1: THorizBarSeries
  84.       Marks.Arrow.Color = clLime
  85.       Marks.ArrowLength = 20
  86.       Marks.BackColor = clWhite
  87.       Marks.Font.Color = clRed
  88.       Marks.Font.Height = -13
  89.       Marks.Font.Name = 'Arial'
  90.       Marks.Font.Style = [fsBold]
  91.       Marks.Style = smsXValue
  92.       Marks.Visible = True
  93.       DataSource = Table1
  94.       Title = 'Weight'
  95.       XLabelsSource = 'NAME'
  96.       MultiBar = mbNone
  97.       HorizAxis = aTopAxis
  98.       SeriesColor = clRed
  99.       XValues.DateTime = False
  100.       XValues.Name = 'Bar'
  101.       XValues.Multiplier = 1.000000000000000000
  102.       XValues.Order = loNone
  103.       XValues.ValueSource = 'WEIGHT'
  104.       YValues.DateTime = False
  105.       YValues.Name = 'Y'
  106.       YValues.Multiplier = 1.000000000000000000
  107.       YValues.Order = loNone
  108.     end
  109.     object HorizBarSeries2: THorizBarSeries
  110.       Marks.Arrow.Color = clYellow
  111.       Marks.ArrowLength = 20
  112.       Marks.BackColor = clWhite
  113.       Marks.Font.Color = clGreen
  114.       Marks.Font.Height = -13
  115.       Marks.Font.Name = 'Arial'
  116.       Marks.Font.Style = [fsBold, fsItalic]
  117.       Marks.Style = smsXValue
  118.       Marks.Visible = True
  119.       DataSource = Table1
  120.       Title = 'Size'
  121.       XLabelsSource = 'NAME'
  122.       MultiBar = mbNone
  123.       SeriesColor = clBlue
  124.       XValues.DateTime = False
  125.       XValues.Name = 'Bar'
  126.       XValues.Multiplier = 1.000000000000000000
  127.       XValues.Order = loNone
  128.       XValues.ValueSource = 'SIZE'
  129.       YValues.DateTime = False
  130.       YValues.Name = 'Y'
  131.       YValues.Multiplier = 1.000000000000000000
  132.       YValues.Order = loNone
  133.     end
  134.   end
  135.   object Panel1: TPanel
  136.     Left = 0
  137.     Top = 0
  138.     Width = 145
  139.     Height = 553
  140.     Align = alLeft
  141.     TabOrder = 1
  142.     object CheckBox1: TCheckBox
  143.       Left = 42
  144.       Top = 155
  145.       Width = 47
  146.       Height = 17
  147.       Caption = '3&D'
  148.       State = cbChecked
  149.       TabOrder = 0
  150.       OnClick = CheckBox1Click
  151.     end
  152.     object RadioGroup1: TRadioGroup
  153.       Left = 6
  154.       Top = 44
  155.       Width = 123
  156.       Height = 101
  157.       Caption = 'MultiBar Style'
  158.       ItemIndex = 0
  159.       Items.Strings = (
  160.         '&None'
  161.         'S&ide to Side'
  162.         '&Stacked'
  163.         'S&tacked 100%')
  164.       TabOrder = 1
  165.       OnClick = RadioGroup1Click
  166.     end
  167.     object BitBtn2: TBitBtn
  168.       Left = 22
  169.       Top = 400
  170.       Width = 95
  171.       Height = 35
  172.       Font.Color = clBlack
  173.       Font.Height = -11
  174.       Font.Name = 'MS Sans Serif'
  175.       Font.Style = []
  176.       ParentFont = False
  177.       TabOrder = 2
  178.       Kind = bkClose
  179.     end
  180.     object BitBtn3: TBitBtn
  181.       Left = 8
  182.       Top = 359
  183.       Width = 121
  184.       Height = 34
  185.       Caption = 'Swap Series'
  186.       TabOrder = 3
  187.       OnClick = BitBtn3Click
  188.       Glyph.Data = {
  189.         BE060000424DBE06000000000000360400002800000024000000120000000100
  190.         0800000000008802000000000000000000000001000000000000000000000000
  191.         80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
  192.         A600000000000000000000000000000000000000000000000000000000000000
  193.         0000000000000000000000000000000000000000000000000000000000000000
  194.         0000000000000000000000000000000000000000000000000000000000000000
  195.         0000000000000000000000000000000000000000000000000000000000000000
  196.         0000000000000000000000000000000000000000000000000000000000000000
  197.         0000000000000000000000000000000000000000000000000000000000000000
  198.         0000000000000000000000000000000000000000000000000000000000000000
  199.         0000000000000000000000000000000000000000000000000000000000000000
  200.         0000000000000000000000000000000000000000000000000000000000000000
  201.         0000000000000000000000000000000000000000000000000000000000000000
  202.         0000000000000000000000000000000000000000000000000000000000000000
  203.         0000000000000000000000000000000000000000000000000000000000000000
  204.         0000000000000000000000000000000000000000000000000000000000000000
  205.         0000000000000000000000000000000000000000000000000000000000000000
  206.         0000000000000000000000000000000000000000000000000000000000000000
  207.         0000000000000000000000000000000000000000000000000000000000000000
  208.         0000000000000000000000000000000000000000000000000000000000000000
  209.         0000000000000000000000000000000000000000000000000000000000000000
  210.         0000000000000000000000000000000000000000000000000000000000000000
  211.         0000000000000000000000000000000000000000000000000000000000000000
  212.         0000000000000000000000000000000000000000000000000000000000000000
  213.         0000000000000000000000000000000000000000000000000000000000000000
  214.         0000000000000000000000000000000000000000000000000000000000000000
  215.         0000000000000000000000000000000000000000000000000000000000000000
  216.         0000000000000000000000000000000000000000000000000000000000000000
  217.         0000000000000000000000000000000000000000000000000000000000000000
  218.         0000000000000000000000000000000000000000000000000000000000000000
  219.         0000000000000000000000000000000000000000000000000000000000000000
  220.         0000000000000000000000000000000000000000000000000000000000000000
  221.         000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
  222.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
  223.         0404040404040303030303030303030303FFF8F8F8F8F8F803FF030303030302
  224.         0403030402020202020204040303030303F8F8FF03F8030303030303F8F8FF03
  225.         030303020204040202020202020202020403030303F8FFF8F80303FFFFFFFFFF
  226.         0303F8FF030303020202020202FAFAFAFAFA02020204030303F8FF030303FFF8
  227.         F8F8F8F8FF0303F8FF03030202020202FA0303030303FA020202040303F8FF03
  228.         03FFF80303030303F8FF0303F8FF03020202020203030303030303FA02020403
  229.         03F8FF0303F803030303030303F8FF03F8FF03020202020202030303030303FA
  230.         0404040303F8FFFFFFFFF8FF0303030303F8F8F8F80303FAFAFAFAFAFAFA0303
  231.         030303030303030303F8F8F8F8F8F8F803030303030303030303030303030303
  232.         030303030303030303030303030303030303030303030303FFFFFFFFFFFF0303
  233.         030303030303030303030404040404040303FFFFFFFF030303030303F8F8F8F8
  234.         F8F803FA040404030303030303FA02020202020403F8F8F8F8FF0303030303F8
  235.         FF03030303F803FA02020403030303030303FA020202020403F8FF03F8FF0303
  236.         03030303F803030303F80303FA0202040303030303040402020202040303F803
  237.         03F8FFFFFFFFFFF8F803030303F80303FA020202040404040402020202020204
  238.         0303F8FF0303F8F8F8F8F8030303FFFF03F8030303FA02020202020202020202
  239.         FAFA0204030303F8FFFF030303030303FFFFF8F8FFF803030303FAFA02020202
  240.         0202FAFA0303FA0303030303F8F8FFFFFFFFFFFFF8F80303F803030303030303
  241.         FAFAFAFAFAFA030303030303030303030303F8F8F8F8F8F80303030303030303
  242.         0303030303030303030303030303030303030303030303030303030303030303
  243.         0303}
  244.       NumGlyphs = 2
  245.     end
  246.     object CheckBox2: TCheckBox
  247.       Left = 8
  248.       Top = 8
  249.       Width = 137
  250.       Height = 25
  251.       Caption = '&Animate !!!'
  252.       Font.Color = clBlack
  253.       Font.Height = -19
  254.       Font.Name = 'Arial'
  255.       Font.Style = [fsBold]
  256.       ParentFont = False
  257.       TabOrder = 4
  258.       OnClick = CheckBox2Click
  259.     end
  260.     object Memo1: TMemo
  261.       Left = 8
  262.       Top = 184
  263.       Width = 121
  264.       Height = 161
  265.       Lines.Strings = (
  266.         'Connecting a Series to '
  267.         'a TTable component is '
  268.         'just at few mouse clicks '
  269.         'using the Chart editor '
  270.         'dialog !'
  271.         ''
  272.         'In this example 2 fields '
  273.         'from ANIMALS.DBF '
  274.         'table are connected to '
  275.         '2 Horizontal Bar'
  276.         'Series.')
  277.       TabOrder = 5
  278.     end
  279.   end
  280.   object Table1: TTable
  281.     Active = True
  282.     DatabaseName = 'DBDEMOS'
  283.     ReadOnly = True
  284.     TableName = 'ANIMALS.DBF'
  285.     Left = 431
  286.     Top = 18
  287.   end
  288.   object Timer1: TTimer
  289.     Enabled = False
  290.     Interval = 1
  291.     OnTimer = Timer1Timer
  292.     Left = 382
  293.     Top = 17
  294.   end
  295. end
  296.