home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 January / Pcwk0198.iso / Dcomplib / ALPHAPNL.LZH / AP_TESTM.DFM / AP_TESTM.txt
Text File  |  1995-05-22  |  4KB  |  174 lines
  1. object Mainform: TMainform
  2.   Left = 272
  3.   Top = 96
  4.   Width = 456
  5.   Height = 452
  6.   BorderIcons = [biSystemMenu, biMinimize]
  7.   Caption = 'TAlphaPanel-Demo'
  8.   Font.Color = clWindowText
  9.   Font.Height = -13
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   PixelsPerInch = 96
  13.   Position = poScreenCenter
  14.   TextHeight = 16
  15.   object Bevel1: TBevel
  16.     Left = 2
  17.     Top = 2
  18.     Width = 444
  19.     Height = 25
  20.     Style = bsRaised
  21.   end
  22.   object Bevel2: TBevel
  23.     Left = 2
  24.     Top = 354
  25.     Width = 444
  26.     Height = 25
  27.     Style = bsRaised
  28.   end
  29.   object Label1: TLabel
  30.     Left = 8
  31.     Top = 6
  32.     Width = 399
  33.     Height = 16
  34.     Caption = 'You can use an AlphaPanel to navigate through a data table...'
  35.   end
  36.   object Label2: TLabel
  37.     Left = 8
  38.     Top = 358
  39.     Width = 235
  40.     Height = 16
  41.     Caption = '...or you can use it like a keyboard...'
  42.   end
  43.   object DBGrid1: TDBGrid
  44.     Left = 12
  45.     Top = 120
  46.     Width = 425
  47.     Height = 225
  48.     TabStop = False
  49.     DataSource = DataSource1
  50.     Font.Color = clBlack
  51.     Font.Height = -13
  52.     Font.Name = 'System'
  53.     Font.Style = [fsBold]
  54.     Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
  55.     ParentFont = False
  56.     ReadOnly = True
  57.     TabOrder = 0
  58.     TitleFont.Color = clWindowText
  59.     TitleFont.Height = -13
  60.     TitleFont.Name = 'System'
  61.     TitleFont.Style = []
  62.   end
  63.   object PanelKind: TRadioGroup
  64.     Left = 4
  65.     Top = 34
  66.     Width = 440
  67.     Height = 43
  68.     Hint = 'choose the panel type here or use the panel'#39's popup'
  69.     Caption = 'Panel type'
  70.     Columns = 2
  71.     ItemIndex = 0
  72.     Items.Strings = (
  73.       'Index panel'
  74.       'Filter panel')
  75.     ParentShowHint = False
  76.     ShowHint = True
  77.     TabOrder = 1
  78.     OnClick = PanelKindClick
  79.   end
  80.   object SymbolEdit: TEdit
  81.     Left = 188
  82.     Top = 394
  83.     Width = 249
  84.     Height = 25
  85.     AutoSize = False
  86.     Font.Color = clBlack
  87.     Font.Height = -16
  88.     Font.Name = 'Wingdings'
  89.     Font.Style = []
  90.     ParentFont = False
  91.     TabOrder = 2
  92.   end
  93.   object SymbolPanel: TAlphaPanel
  94.     Left = 12
  95.     Top = 392
  96.     Width = 167
  97.     Height = 28
  98.     Hint = 'click to add symbols to the edit line'
  99.     ParentShowHint = False
  100.     ShowHint = True
  101.     AlphaButtons.Strings = (
  102.       'JKL!$()')
  103.     ButtonFont.Color = clBlack
  104.     ButtonFont.Height = -16
  105.     ButtonFont.Name = 'Wingdings'
  106.     ButtonFont.Style = []
  107.     ButtonHeight = 24
  108.     ButtonWidth = 24
  109.     CatchButtons = False
  110.     OnValueChange = SymbolPanelValueChange
  111.   end
  112.   object AlphaPanel: TAlphaPanel
  113.     Left = 0
  114.     Top = 88
  115.     Hint = 'click to move the table cursor'
  116.     ParentShowHint = False
  117.     PopupMenu = PopupMenu1
  118.     ShowHint = True
  119.     AllowAllUp = True
  120.     AlphaButtons.Strings = (
  121.       'ABCDEFGHIJKLMNOPQRSTUVWXYZ')
  122.     ButtonFont.Color = clWindowText
  123.     ButtonFont.Height = -13
  124.     ButtonFont.Name = 'System'
  125.     ButtonFont.Style = []
  126.     CatchButtons = False
  127.     OnValueChange = AlphaPanelValueChange
  128.   end
  129.   object EmployeeTable: TTable
  130.     Active = True
  131.     DatabaseName = 'DBDEMOS'
  132.     IndexName = 'ByName'
  133.     ReadOnly = True
  134.     TableName = 'EMPLOYEE.DB'
  135.     Left = 272
  136.     Top = 40
  137.     object EmployeeTableLastName: TStringField
  138.       DisplayLabel = 'Last Name'
  139.       DisplayWidth = 20
  140.       FieldName = 'LastName'
  141.     end
  142.     object EmployeeTableFirstName: TStringField
  143.       DisplayLabel = 'First Name'
  144.       DisplayWidth = 15
  145.       FieldName = 'FirstName'
  146.       Size = 15
  147.     end
  148.     object EmployeeTableSalary: TFloatField
  149.       DisplayWidth = 12
  150.       FieldName = 'Salary'
  151.       Currency = True
  152.     end
  153.   end
  154.   object DataSource1: TDataSource
  155.     AutoEdit = False
  156.     DataSet = EmployeeTable
  157.     Left = 304
  158.     Top = 40
  159.   end
  160.   object PopupMenu1: TPopupMenu
  161.     Left = 336
  162.     Top = 40
  163.     object pomIndexPanel: TMenuItem
  164.       Caption = 'Index panel'
  165.       Checked = True
  166.       OnClick = pomIndexPanelClick
  167.     end
  168.     object pomFilterPanel: TMenuItem
  169.       Caption = 'Filter panel'
  170.       OnClick = pomFilterPanelClick
  171.     end
  172.   end
  173. end
  174.