home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / Chip_1997-04_cd.bin / prezent / cb / data.z / FRMVIEWS.DFM / FRMVIEWS.txt
Text File  |  1997-01-16  |  4KB  |  129 lines
  1. object FrmViewDemo: TFrmViewDemo
  2.   Left = 330
  3.   Top = 106
  4.   Width = 397
  5.   Height = 331
  6.   Caption = 'Table/View Switcher'
  7.   Font.Color = clWindowText
  8.   Font.Height = -11
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   Position = poScreenCenter
  12.   ShowHint = True
  13.   OnShow = FormShow
  14.   PixelsPerInch = 96
  15.   TextHeight = 13
  16.   object Panel1: TPanel
  17.     Left = 0
  18.     Top = 0
  19.     Width = 389
  20.     Height = 41
  21.     Align = alTop
  22.     TabOrder = 0
  23.     object BtnShowEmployee: TSpeedButton
  24.       Left = 258
  25.       Top = 8
  26.       Width = 25
  27.       Height = 25
  28.       Hint = 'Show Employee Table'
  29.       GroupIndex = 1
  30.       Down = True
  31.       Glyph.Data = {
  32.         90010000424D9001000000000000760000002800000020000000100000000100
  33.         0400000000000001000000000000000000000000000000000000000000000000
  34.         80000080000000808000800000008000800080800000C0C0C000808080000000
  35.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  36.         77777777777777777777778877778877778877FF7777FF7777FF700887700887
  37.         7007787FF77887F7788777008800808800777787FF8878FF8877777000077000
  38.         07777778788778888777778700877800877877F788F77F88F77F707800870700
  39.         8707787F88F78788F7877708008088008087778F88F87F88F8F7770000008800
  40.         0077778888887F88887777700007700007777778888778888777777700887700
  41.         8877777788FF7788FF7777700008700008777778888F78888F77777000077000
  42.         0777777888877888877777770077770077777777887777887777777777777777
  43.         7777777777777777777777777777777777777777777777777777000000000000
  44.         0000000000000000000000000000000000000000}
  45.       NumGlyphs = 2
  46.       OnClick = BtnShowEmployeeClick
  47.     end
  48.     object BtnShowPhoneList: TSpeedButton
  49.       Left = 282
  50.       Top = 8
  51.       Width = 25
  52.       Height = 25
  53.       Hint = 'Show Phone List View'
  54.       GroupIndex = 1
  55.       Glyph.Data = {
  56.         90010000424D9001000000000000760000002800000020000000100000000100
  57.         0400000000000001000000000000000000000000000000000000000000000000
  58.         80000080000000808000800000008000800080800000C0C0C000808080000000
  59.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00707007007700
  60.         7077707007FF77007F77770770070077070777077007F07707F7007007000770
  61.         0007FF7FF7F0077FF0F7F07F07F0770000000F70F70F7F00007F777777777064
  62.         440077777777F077770F0070070006666400FF7FF7FF0777770FF07F07F06640
  63.         74070F70F7F0777FF707777777066400407777777F077F00F077007000664070
  64.         0777FF7FF077F0700777F07F0664077777770F7F077F07777777777066407777
  65.         7777777077F0777777770006640007777777FF0F7707F7777777F00760000777
  66.         77770F0F7770F77777777707644077777777770F7770777777777707C6077777
  67.         77777707FF077777777777700077777777777770007777777777000000000000
  68.         0000000000000000000000000000000000000000}
  69.       NumGlyphs = 2
  70.       OnClick = BtnShowPhoneListClick
  71.     end
  72.     object DBNavigator: TDBNavigator
  73.       Left = 8
  74.       Top = 8
  75.       Width = 240
  76.       Height = 25
  77.       DataSource = VaryingTableSource
  78.       TabOrder = 0
  79.     end
  80.     object BitBtn1: TBitBtn
  81.       Left = 320
  82.       Top = 8
  83.       Width = 60
  84.       Height = 25
  85.       Hint = 'Exit and close this form'
  86.       Caption = 'E&xit'
  87.       TabOrder = 1
  88.       Kind = bkClose
  89.       Spacing = -1
  90.     end
  91.   end
  92.   object Panel2: TPanel
  93.     Left = 0
  94.     Top = 41
  95.     Width = 389
  96.     Height = 263
  97.     Align = alClient
  98.     BevelInner = bvLowered
  99.     BorderWidth = 4
  100.     Caption = 'Panel2'
  101.     TabOrder = 1
  102.     object DBGrid1: TDBGrid
  103.       Left = 6
  104.       Top = 6
  105.       Width = 377
  106.       Height = 251
  107.       Align = alClient
  108.       BorderStyle = bsNone
  109.       DataSource = VaryingTableSource
  110.       TabOrder = 0
  111.       TitleFont.Color = clWindowText
  112.       TitleFont.Height = -11
  113.       TitleFont.Name = 'MS Sans Serif'
  114.       TitleFont.Style = []
  115.     end
  116.   end
  117.   object VaryingTableSource: TDataSource
  118.     DataSet = VaryingTable
  119.     Left = 115
  120.     Top = 48
  121.   end
  122.   object VaryingTable: TTable
  123.     DatabaseName = 'EmployeeDemoDB'
  124.     TableName = 'EMPLOYEE'
  125.     Left = 87
  126.     Top = 48
  127.   end
  128. end
  129.