importfromfolderf.dfm

来自「极具实用价值的文件管理系统」· DFM 代码 · 共 65 行

inherited fmImportFromFolder: TfmImportFromFolder
  Caption = 'Import From Folder'
  ClientHeight = 287
  PixelsPerInch = 96
  TextHeight = 13
  inherited lblTitle: TCycLabel
    Width = 90
    Caption = 'Select import folder'
  end
  inherited pnlFooter: TPanel
    Top = 240
  end
  object edtPath: TCycLabeledLookupEdit
    Left = 44
    Top = 56
    Width = 361
    Height = 21
    EditLabel.Width = 22
    EditLabel.Height = 13
    EditLabel.Caption = 'Path'
    EditLabel.Transparent = True
    LabelPosition = lpLeft
    LabelSpacing = 5
    TabOrder = 1
    LookupButton.Left = 407
    LookupButton.Top = 56
    LookupButton.Width = 23
    LookupButton.Height = 22
    LookupButton.Flat = True
    LookupButton.Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000CE0E0000C40E00001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      77777777777777777777000000000007777700333333333077770B0333333333
      07770FB03333333330770BFB0333333333070FBFB000000000000BFBFBFBFB07
      77770FBFBFBFBF0777770BFB0000000777777000777777770007777777777777
      7007777777770777070777777777700077777777777777777777}
    LookupButton.OnClick = edtPathSubButtonClick
    ButtonSpacing = 2
  end
  object rdgAction: TRadioGroup
    Left = 44
    Top = 116
    Width = 361
    Height = 113
    Caption = 'Actions upon the file exists'
    ItemIndex = 0
    Items.Strings = (
      'Add prefix with document type'
      'Link original file'
      'Overwrite original file'
      'Skip')
    TabOrder = 2
  end
  object chkIncludeSubDir: TCheckBox
    Left = 44
    Top = 89
    Width = 357
    Height = 17
    Caption = 'Include Sub-Directory'
    TabOrder = 3
  end
end