Do It Yourself Pak/Do_ItPak1.iso/aftd/_SETUP.1/FamTree.exe/0/RCDATA/TOPENCOATFORM/TOPENCOATFORM.txt

Text File | 1999-07-07 | 3KB | 167 lines

object OpenCoatForm: TOpenCoatForm
  Left = 355
  Top = 288
  Width = 522
  Height = 265
  HelpContext = 4300
  Caption = 'Open Coat Of Arms'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  OldCreateOrder = True
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object TLabel
    Left = 8
    Top = 8
    Width = 59
    Height = 13
    Caption = 'File &name:'
    FocusControl = FileEdit
  end
  object TLabel
    Left = 8
    Top = 145
    Width = 95
    Height = 13
    Caption = 'List files of &type:'
    FocusControl = FilterList
  end
  object TLabel
    Left = 179
    Top = 8
    Width = 46
    Height = 13
    Caption = '&Folders:'
    FocusControl = DirectoryList
  end
  object Directory: TLabel
    Left = 172
    Top = 28
    Width = 111
    Height = 13
    Caption = 'D:\Cosmi\Famtree2'
  end
  object TLabel
    Left = 172
    Top = 145
    Width = 41
    Height = 13
    Caption = 'Dri&ves:'
    FocusControl = DriveList
  end
  object TLabel
    Left = 355
    Top = 8
    Width = 50
    Height = 13
    Caption = 'Preview:'
  end
  object DirectoryList: TDirectoryListBox
    Left = 172
    Top = 52
    Width = 169
    Height = 84
    DirLabel = Directory
    FileList = FileList
    IntegralHeight = True
    ItemHeight = 16
    TabOrder = 2
  end
  object FileEdit: TEdit
    Left = 8
    Top = 24
    Width = 158
    Height = 21
    TabOrder = 0
    Text = '*.coa'
    OnChange = FileEditChange
  end
  object FileList: TFileListBox
    Left = 8
    Top = 52
    Width = 158
    Height = 82
    FileEdit = FileEdit
    IntegralHeight = True
    ItemHeight = 13
    Mask = '*.coa'
    TabOrder = 1
    OnClick = FileListClick
    OnDblClick = FileListDblClick
  end
  object FilterList: TFilterComboBox
    Left = 8
    Top = 161
    Width = 155
    Height = 21
    FileList = FileList
    Filter = 'Coat Of Arms files|*.coa'
    TabOrder = 3
  end
  object DriveList: TDriveComboBox
    Left = 172
    Top = 161
    Width = 169
    Height = 19
    DirList = DirectoryList
    TabOrder = 4
  end
  object Help: TBitBtn
    Left = 202
    Top = 203
    Width = 87
    Height = 23
    TabOrder = 7
    OnClick = HelpClick
    Kind = bkHelp
    Style = bsWin31
  end
  object Cancel: TBitBtn
    Left = 104
    Top = 203
    Width = 88
    Height = 24
    TabOrder = 6
    Kind = bkCancel
    Style = bsWin31
  end
  object OK: TBitBtn
    Left = 7
    Top = 203
    Width = 87
    Height = 24
    TabOrder = 5
    Kind = bkOK
    Style = bsWin31
  end
  object Panel: TPanel
    Left = 351
    Top = 24
    Width = 157
    Height = 208
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Color = clWhite
    TabOrder = 8
    object ZCanvas: TZoomableCanvas
      Left = 0
      Top = 0
      Width = 153
      Height = 204
      Align = alClient
      DrawBackground = False
      ZoomFactor = 56
      OnPaint = ZCanvasPaint
    end
  end
end