Hot Shareware 35/hot35.iso/ficheros/9APLI/32PSAO31.ZIP/_SETUP.1/ADO30.exe/0/RCDATA/TLOADDBDLG/TLOADDBDLG.txt

Text File | 1998-05-08 | 6KB | 198 lines

object LoadDbDlg: TLoadDbDlg
  Left = 76
  Top = 105
  ActiveControl = OKBtn
  BorderStyle = bsDialog
  Caption = 'Load Database'
  ClientHeight = 341
  ClientWidth = 365
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  ShowHint = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 8
    Top = 8
    Width = 257
    Height = 330
    Shape = bsFrame
    IsControl = True
  end
  object Label1: TLabel
    Left = 16
    Top = 88
    Width = 100
    Height = 13
    Caption = 'Available Databases:'
  end
  object Label2: TLabel
    Left = 16
    Top = 299
    Width = 75
    Height = 13
    Caption = 'Real File Name:'
  end
  object OKBtn: TBitBtn
    Left = 276
    Top = 8
    Width = 77
    Height = 27
    Hint = 'Load Selected Database'
    Caption = '&Load'
    TabOrder = 0
    OnClick = OKBtnClick
    Kind = bkOK
    Margin = 2
    Spacing = -1
    IsControl = True
  end
  object CancelBtn: TBitBtn
    Left = 276
    Top = 40
    Width = 77
    Height = 27
    Hint = 'Close Dialog Box'
    Caption = '&Cancel'
    TabOrder = 1
    OnClick = CancelBtnClick
    Kind = bkCancel
    Margin = 2
    Spacing = -1
    IsControl = True
  end
  object HelpBtn: TBitBtn
    Left = 276
    Top = 72
    Width = 77
    Height = 27
    TabOrder = 2
    Kind = bkHelp
    Margin = 2
    Spacing = -1
    IsControl = True
  end
  object ListBox1: TListBox
    Left = 16
    Top = 104
    Width = 145
    Height = 193
    Hint = 'Click Here To Select Database'
    ExtendedSelect = False
    ItemHeight = 13
    TabOrder = 3
    OnClick = ListBox1Click
    OnDblClick = ListBox1DblClick
  end
  object RadioGroup1: TRadioGroup
    Left = 16
    Top = 16
    Width = 145
    Height = 57
    Hint = 'Click Here To Display Public or Private Databases'
    Caption = 'Database Type'
    Items.Strings = (
      'Private'
      'Public')
    TabOrder = 4
    OnClick = RadioGroup1Click
  end
  object Edit_Btn: TBitBtn
    Left = 175
    Top = 200
    Width = 77
    Height = 27
    Hint = 'Edit Database Information'
    Caption = '&Edit'
    TabOrder = 5
    OnClick = Edit_BtnClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
      000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
      00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
      F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
      0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
      FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
      FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
      0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
      00333377737FFFFF773333303300000003333337337777777333}
    Margin = 2
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object New_Btn: TBitBtn
    Left = 175
    Top = 232
    Width = 77
    Height = 27
    Hint = 'Create A New Database'
    Caption = '&New'
    TabOrder = 6
    OnClick = New_BtnClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
      333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
      0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
      07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
      07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
      0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
      33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
      B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
      3BB33773333773333773B333333B3333333B7333333733333337}
    Margin = 2
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object Delete_Btn: TBitBtn
    Left = 175
    Top = 264
    Width = 77
    Height = 27
    Hint = 'Delete Database'
    Caption = '&Delete'
    TabOrder = 7
    OnClick = Delete_BtnClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
      3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070
      33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
      33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
      333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070
      03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070
      33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777
      0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033
      3333333337FFF7F3333333333000003333333333377777333333}
    Margin = 2
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object Edit1: TEdit
    Left = 15
    Top = 312
    Width = 242
    Height = 21
    Color = clSilver
    ReadOnly = True
    TabOrder = 8
  end
end