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