home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / psetting / pseval.exe / _SETUP.1 / Main.dfm / Main.txt
Encoding:
Text File  |  1997-11-03  |  3.1 KB  |  161 lines

  1. object Form1: TForm1
  2.   Left = 251
  3.   Top = 280
  4.   Width = 411
  5.   Height = 264
  6.   Caption = 'Database Sample'
  7.   Font.Charset = DEFAULT_CHARSET
  8.   Font.Color = clWindowText
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   OnClose = FormClose
  13.   OnShow = FormShow
  14.   PixelsPerInch = 96
  15.   TextHeight = 13
  16.   object Label1: TLabel
  17.     Left = 7
  18.     Top = 3
  19.     Width = 30
  20.     Height = 13
  21.     Caption = 'Users:'
  22.   end
  23.   object Label2: TLabel
  24.     Left = 170
  25.     Top = 3
  26.     Width = 41
  27.     Height = 13
  28.     Caption = 'Settings:'
  29.   end
  30.   object Panel1: TPanel
  31.     Left = 170
  32.     Top = 20
  33.     Width = 225
  34.     Height = 160
  35.     BevelInner = bvRaised
  36.     BevelOuter = bvLowered
  37.     TabOrder = 0
  38.     object CheckBox1: TCheckBox
  39.       Left = 9
  40.       Top = 10
  41.       Width = 143
  42.       Height = 17
  43.       Caption = 'Is this checked?'
  44.       TabOrder = 0
  45.     end
  46.     object Edit1: TEdit
  47.       Left = 9
  48.       Top = 32
  49.       Width = 59
  50.       Height = 21
  51.       TabOrder = 1
  52.       Text = '0'
  53.     end
  54.     object UpDown1: TUpDown
  55.       Left = 68
  56.       Top = 32
  57.       Width = 12
  58.       Height = 21
  59.       Associate = Edit1
  60.       Min = 0
  61.       Position = 0
  62.       TabOrder = 2
  63.       Wrap = False
  64.     end
  65.     object Memo1: TMemo
  66.       Left = 8
  67.       Top = 61
  68.       Width = 200
  69.       Height = 89
  70.       Lines.Strings = (
  71.         'Memo1')
  72.       ScrollBars = ssBoth
  73.       TabOrder = 3
  74.       WordWrap = False
  75.     end
  76.   end
  77.   object Button1: TButton
  78.     Left = 8
  79.     Top = 188
  80.     Width = 120
  81.     Height = 22
  82.     Caption = 'Add User'
  83.     TabOrder = 1
  84.     Visible = False
  85.   end
  86.   object Button2: TButton
  87.     Left = 137
  88.     Top = 188
  89.     Width = 120
  90.     Height = 22
  91.     Caption = 'Save User Settings'
  92.     TabOrder = 2
  93.     OnClick = Button2Click
  94.   end
  95.   object Button3: TButton
  96.     Left = 265
  97.     Top = 188
  98.     Width = 120
  99.     Height = 22
  100.     Caption = 'Restore User Settings'
  101.     TabOrder = 3
  102.     OnClick = Button3Click
  103.   end
  104.   object DBGrid1: TDBGrid
  105.     Left = 8
  106.     Top = 20
  107.     Width = 155
  108.     Height = 160
  109.     DataSource = dtsPreferences
  110.     Options = [dgEditing, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
  111.     TabOrder = 4
  112.     TitleFont.Charset = DEFAULT_CHARSET
  113.     TitleFont.Color = clWindowText
  114.     TitleFont.Height = -11
  115.     TitleFont.Name = 'MS Sans Serif'
  116.     TitleFont.Style = []
  117.     Columns = <
  118.       item
  119.         FieldName = 'UserName'
  120.       end>
  121.   end
  122.   object fstMain: TPFormSettings
  123.     RegistryRootKey = prkCurrentUser
  124.     FormSaveOpt = []
  125.     SaveLocation = pslStream
  126.     MRULength = 0
  127.     Left = 319
  128.     Top = 207
  129.     Settings = (
  130.       ''
  131.       'CheckBox1.Checked'
  132.       ''
  133.       False
  134.       ''
  135.       'UpDown1.Position'
  136.       ''
  137.       False
  138.       ''
  139.       'Memo1.Lines'
  140.       ''
  141.       False)
  142.   end
  143.   object tblPreferences: TTable
  144.     TableName = 'prefs.db'
  145.     Left = 263
  146.     Top = 207
  147.     object tblPreferencesUserName: TStringField
  148.       FieldName = 'UserName'
  149.     end
  150.     object tblPreferencesPreferences: TBlobField
  151.       FieldName = 'Preferences'
  152.       BlobType = ftBlob
  153.     end
  154.   end
  155.   object dtsPreferences: TDataSource
  156.     DataSet = tblPreferences
  157.     Left = 291
  158.     Top = 207
  159.   end
  160. end
  161.