home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / STANDARD / SQLBARS.DFM / SQLBARS.txt
Encoding:
Text File  |  1998-10-24  |  6.5 KB  |  256 lines
  1. object SQLBarsForm: TSQLBarsForm
  2.   Left = 77
  3.   Top = 33
  4.   Width = 580
  5.   Height = 479
  6.   ActiveControl = ComboBox1
  7.   Caption = 'TeeChart SQL 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 DBChart1: TDBChart
  18.     Left = 0
  19.     Top = 85
  20.     Width = 572
  21.     Height = 214
  22.     Hint = 'Click on a Bar to see an example of event handling.'
  23.     BackWall.Brush.Color = clWhite
  24.     BackWall.Color = 8454016
  25.     BackWall.Size = 10
  26.     BottomWall.Color = clRed
  27.     BottomWall.Size = 10
  28.     Foot.Font.Color = clRed
  29.     Foot.Font.Height = -15
  30.     Foot.Font.Name = 'Arial'
  31.     Foot.Font.Style = [fsBold]
  32.     Foot.Frame.Color = clScrollBar
  33.     LeftWall.Color = 16777088
  34.     LeftWall.Size = 10
  35.     Title.Alignment = taLeftJustify
  36.     Title.Brush.Color = 16777088
  37.     Title.Color = clSilver
  38.     Title.Font.Color = clBlue
  39.     Title.Font.Height = -19
  40.     Title.Font.Name = 'Arial'
  41.     Title.Font.Style = [fsBold, fsItalic]
  42.     Title.Frame.Color = 8421440
  43.     Title.Frame.Width = 4
  44.     Title.Text.Strings = (
  45.       'Pyramid Bar Chart built from SQL Query.')
  46.     OnClickLegend = DBChart1ClickLegend
  47.     BackColor = 8454016
  48.     BottomAxis.Grid.Color = clScrollBar
  49.     BottomAxis.EndPosition = 100.000000000000000000
  50.     Chart3DPercent = 90
  51.     ClipPoints = False
  52.     LeftAxis.Grid.Color = clScrollBar
  53.     LeftAxis.EndPosition = 100.000000000000000000
  54.     Legend.Color = clAqua
  55.     Legend.Font.Color = clBlack
  56.     Legend.Font.Height = -16
  57.     Legend.Font.Name = 'Arial'
  58.     Legend.Font.Style = [fsBold, fsItalic]
  59.     Legend.Frame.Color = clTeal
  60.     Legend.Frame.Width = 4
  61.     Legend.ShadowSize = 11
  62.     Legend.TextStyle = ltsRightValue
  63.     Legend.TopPos = 5
  64.     RightAxis.Grid.Color = clScrollBar
  65.     RightAxis.EndPosition = 100.000000000000000000
  66.     TopAxis.Grid.Color = clScrollBar
  67.     TopAxis.EndPosition = 100.000000000000000000
  68.     View3DOptions.Elevation = 357
  69.     View3DOptions.Orthogonal = False
  70.     View3DOptions.Perspective = 35
  71.     View3DOptions.Zoom = 95
  72.     Align = alClient
  73.     ParentShowHint = False
  74.     ShowHint = True
  75.     TabOrder = 0
  76.     object BarSeries1: TBarSeries
  77.       ColorEachPoint = True
  78.       Cursor = crUpArrow
  79.       Marks.ArrowLength = 20
  80.       Marks.Style = smsPercent
  81.       Marks.Visible = True
  82.       DataSource = Query1
  83.       SeriesColor = clRed
  84.       XLabelsSource = 'NAME'
  85.       OnClick = BarSeries1Click
  86.       BarStyle = bsPyramid
  87.       BarWidthPercent = 80
  88.       XValues.DateTime = False
  89.       XValues.Name = 'X'
  90.       XValues.Multiplier = 1.000000000000000000
  91.       XValues.Order = loAscending
  92.       YValues.DateTime = False
  93.       YValues.Name = 'Y'
  94.       YValues.Multiplier = 1.000000000000000000
  95.       YValues.Order = loNone
  96.       YValues.ValueSource = 'WEIGHT'
  97.       OnGetBarStyle = BarSeries1GetBarStyle
  98.       Left = 82
  99.       Top = 118
  100.     end
  101.   end
  102.   object Panel1: TPanel
  103.     Left = 0
  104.     Top = 411
  105.     Width = 572
  106.     Height = 41
  107.     Align = alBottom
  108.     Alignment = taLeftJustify
  109.     Font.Color = clRed
  110.     Font.Height = -12
  111.     Font.Name = 'Arial'
  112.     Font.Style = [fsItalic]
  113.     ParentFont = False
  114.     TabOrder = 1
  115.   end
  116.   object Panel2: TPanel
  117.     Left = 0
  118.     Top = 0
  119.     Width = 572
  120.     Height = 85
  121.     Align = alTop
  122.     TabOrder = 2
  123.     object Label1: TLabel
  124.       Left = 286
  125.       Top = 54
  126.       Width = 45
  127.       Height = 13
  128.       Caption = 'Bar &Style:'
  129.     end
  130.     object Memo1: TMemo
  131.       Left = 16
  132.       Top = 10
  133.       Width = 261
  134.       Height = 67
  135.       Lines.Strings = (
  136.         'select Name,Weight from ":dbdemos:animals.dbf"'
  137.         'where Weight < 20'
  138.         '')
  139.       TabOrder = 0
  140.     end
  141.     object BitBtn2: TBitBtn
  142.       Left = 286
  143.       Top = 10
  144.       Width = 111
  145.       Height = 33
  146.       Caption = 'Run Query !!'
  147.       TabOrder = 1
  148.       OnClick = BitBtn2Click
  149.       Glyph.Data = {
  150.         76010000424D7601000000000000760000002800000020000000100000000100
  151.         0400000000000001000000000000000000001000000010000000000000000000
  152.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  153.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
  154.         555555555555555555555555555555555555555555FF55555555555559055555
  155.         55555555577FF5555555555599905555555555557777F5555555555599905555
  156.         555555557777FF5555555559999905555555555777777F555555559999990555
  157.         5555557777777FF5555557990599905555555777757777F55555790555599055
  158.         55557775555777FF5555555555599905555555555557777F5555555555559905
  159.         555555555555777FF5555555555559905555555555555777FF55555555555579
  160.         05555555555555777FF5555555555557905555555555555777FF555555555555
  161.         5990555555555555577755555555555555555555555555555555}
  162.       NumGlyphs = 2
  163.     end
  164.     object ComboBox1: TComboBox
  165.       Left = 342
  166.       Top = 50
  167.       Width = 127
  168.       Height = 21
  169.       Style = csDropDownList
  170.       ItemHeight = 13
  171.       Items.Strings = (
  172.         'Rectangle'
  173.         'Pyramid'
  174.         'InvPyramid'
  175.         'Cilinder'
  176.         'Ellipse'
  177.         'Arrow')
  178.       TabOrder = 2
  179.       OnChange = ComboBox1Change
  180.     end
  181.     object CBRandomBar: TCheckBox
  182.       Left = 477
  183.       Top = 53
  184.       Width = 88
  185.       Height = 17
  186.       Caption = '<-- &Random'
  187.       TabOrder = 3
  188.       OnClick = CBRandomBarClick
  189.     end
  190.     object BitBtn1: TBitBtn
  191.       Left = 473
  192.       Top = 10
  193.       Width = 89
  194.       Height = 33
  195.       Font.Color = clBlack
  196.       Font.Height = -13
  197.       Font.Name = 'Arial'
  198.       Font.Style = []
  199.       ParentFont = False
  200.       TabOrder = 4
  201.       OnClick = BitBtn1Click
  202.       Kind = bkClose
  203.     end
  204.   end
  205.   object Panel3: TPanel
  206.     Left = 0
  207.     Top = 299
  208.     Width = 572
  209.     Height = 112
  210.     Align = alBottom
  211.     TabOrder = 3
  212.     object Label2: TLabel
  213.       Left = 184
  214.       Top = 22
  215.       Width = 204
  216.       Height = 18
  217.       Caption = '<--- Try to change values !!!'
  218.       Font.Color = clNavy
  219.       Font.Height = -16
  220.       Font.Name = 'Arial'
  221.       Font.Style = [fsBold, fsItalic]
  222.       ParentFont = False
  223.     end
  224.     object DBGrid1: TDBGrid
  225.       Left = 1
  226.       Top = 1
  227.       Width = 176
  228.       Height = 110
  229.       Align = alLeft
  230.       DataSource = DataSource1
  231.       TabOrder = 0
  232.       TitleFont.Color = clBlack
  233.       TitleFont.Height = -11
  234.       TitleFont.Name = 'MS Sans Serif'
  235.       TitleFont.Style = []
  236.     end
  237.   end
  238.   object DataSource1: TDataSource
  239.     DataSet = Query1
  240.     Left = 215
  241.     Top = 36
  242.   end
  243.   object Query1: TQuery
  244.     Active = True
  245.     DatabaseName = 'DBDEMOS'
  246.     SQL.Strings = (
  247.       'select Name,Weight from '
  248.       '":dbdemos:animals.dbf"'
  249.       'where Weight<20'
  250.       '')
  251.     RequestLive = True
  252.     Left = 150
  253.     Top = 42
  254.   end
  255. end
  256.