home *** CD-ROM | disk | FTP | other *** search
/ Do It Yourself Pak / Do_ItPak1.iso / aftd / _SETUP.1 / FamTree.exe / 0 / RCDATA / TSHIELDFORM / TSHIELDFORM.txt
Text File  |  1999-07-07  |  1KB  |  58 lines
  1. object ShieldForm: TShieldForm
  2.   Left = 400
  3.   Top = 155
  4.   Width = 472
  5.   Height = 528
  6.   Caption = 'Choose Shield'
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -14
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   OldCreateOrder = True
  14.   Position = poScreenCenter
  15.   OnCreate = FormCreate
  16.   OnDestroy = FormDestroy
  17.   OnShow = FormShow
  18.   PixelsPerInch = 120
  19.   TextHeight = 16
  20.   object LShield: TLabel
  21.     Left = 10
  22.     Top = 10
  23.     Width = 41
  24.     Height = 16
  25.     Caption = '&Shield:'
  26.     FocusControl = ShieldList
  27.   end
  28.   object ShieldList: TListBox
  29.     Left = 10
  30.     Top = 30
  31.     Width = 444
  32.     Height = 389
  33.     Columns = 7
  34.     IntegralHeight = True
  35.     ItemHeight = 55
  36.     Style = lbOwnerDrawFixed
  37.     TabOrder = 0
  38.     OnDblClick = ShieldListDblClick
  39.     OnDrawItem = ShieldListDrawItem
  40.   end
  41.   object OK: TBitBtn
  42.     Left = 90
  43.     Top = 453
  44.     Width = 95
  45.     Height = 33
  46.     TabOrder = 1
  47.     Kind = bkOK
  48.   end
  49.   object Cancel: TBitBtn
  50.     Left = 277
  51.     Top = 453
  52.     Width = 95
  53.     Height = 33
  54.     TabOrder = 2
  55.     Kind = bkCancel
  56.   end
  57. end
  58.