home *** CD-ROM | disk | FTP | other *** search
/ Delphi 4 Bible / Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso / source / WinesChart / Main.dfm / Main.txt
Text File  |  1998-03-24  |  3KB  |  130 lines
  1. object MainForm: TMainForm
  2.   Left = 205
  3.   Top = 132
  4.   Width = 564
  5.   Height = 345
  6.   Caption = 'Wines Chart'
  7.   Font.Charset = DEFAULT_CHARSET
  8.   Font.Color = clWindowText
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   PixelsPerInch = 96
  13.   TextHeight = 13
  14.   object DBChart1: TDBChart
  15.     Left = 16
  16.     Top = 16
  17.     Width = 513
  18.     Height = 233
  19.     AllowPanning = pmNone
  20.     BottomWall.Color = clWhite
  21.     Foot.Font.Charset = DEFAULT_CHARSET
  22.     Foot.Font.Color = clRed
  23.     Foot.Font.Height = -11
  24.     Foot.Font.Name = 'Arial'
  25.     Foot.Font.Style = [fsItalic]
  26.     LeftWall.Color = 8454143
  27.     Title.Text.Strings = (
  28.       'Wine Cellar')
  29.     LeftAxis.Labels = False
  30.     TabOrder = 0
  31.     object Series1: THorizBarSeries
  32.       ColorEachPoint = True
  33.       Marks.ArrowLength = 8
  34.       Marks.Visible = True
  35.       DataSource = Table1
  36.       XLabelsSource = 'Name'
  37.       SeriesColor = clRed
  38.       XValues.DateTime = False
  39.       XValues.Name = 'Bar'
  40.       XValues.Multiplier = 1.000000000000000000
  41.       XValues.Order = loNone
  42.       XValues.ValueSource = 'Number'
  43.       YValues.DateTime = False
  44.       YValues.Name = 'Y'
  45.       YValues.Multiplier = 1.000000000000000000
  46.       YValues.Order = loAscending
  47.     end
  48.   end
  49.   object BitBtn1: TBitBtn
  50.     Left = 432
  51.     Top = 272
  52.     Width = 75
  53.     Height = 25
  54.     TabOrder = 1
  55.     Kind = bkClose
  56.   end
  57.   object BitBtn2: TBitBtn
  58.     Left = 296
  59.     Top = 272
  60.     Width = 107
  61.     Height = 25
  62.     Caption = 'Print Preview...'
  63.     TabOrder = 2
  64.     OnClick = BitBtn2Click
  65.     Glyph.Data = {
  66.       76010000424D7601000000000000760000002800000020000000100000000100
  67.       04000000000000010000120B0000120B00001000000000000000000000000000
  68.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  69.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
  70.       0003377777777777777308888888888888807F33333333333337088888888888
  71.       88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
  72.       8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
  73.       8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
  74.       03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
  75.       03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
  76.       33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
  77.       33333337FFFF7733333333300000033333333337777773333333}
  78.     NumGlyphs = 2
  79.   end
  80.   object Table1: TTable
  81.     Active = True
  82.     DatabaseName = 'WINES'
  83.     FieldDefs = <
  84.       item
  85.         Name = 'Name'
  86.         DataType = ftString
  87.         Precision = 0
  88.         Required = False
  89.         Size = 32
  90.       end
  91.       item
  92.         Name = 'Number'
  93.         DataType = ftFloat
  94.         Precision = 0
  95.         Required = False
  96.         Size = 0
  97.       end
  98.       item
  99.         Name = 'Source'
  100.         DataType = ftString
  101.         Precision = 0
  102.         Required = False
  103.         Size = 32
  104.       end
  105.       item
  106.         Name = 'Vintage'
  107.         DataType = ftString
  108.         Precision = 0
  109.         Required = False
  110.         Size = 4
  111.       end
  112.       item
  113.         Name = 'Purchased'
  114.         DataType = ftDate
  115.         Precision = 0
  116.         Required = False
  117.         Size = 0
  118.       end>
  119.     StoreDefs = True
  120.     TableName = 'Wines.DB'
  121.     Left = 112
  122.     Top = 264
  123.   end
  124.   object DataSource1: TDataSource
  125.     DataSet = Table1
  126.     Left = 48
  127.     Top = 264
  128.   end
  129. end
  130.