findcarrier.dfm

wbs43open-src.zip 数字隐藏工具

object Form4: TForm4
  Left = 573
  Top = 296
  Width = 429
  Height = 339
  HorzScrollBar.Range = 425
  VertScrollBar.Range = 337
  ActiveControl = Button2
  Caption = 'Find carrier file ...'
  Color = clButton
  Font.Color = clText
  Font.Height = 11
  Font.Name = 'MS Sans Serif'
  Font.Pitch = fpVariable
  Font.Style = []
  ParentFont = False
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  TextWidth = 5
  object Label1: TLabel
    Left = 8
    Top = 152
    Width = 118
    Height = 13
    Caption = 'Results (smaller files first)'
  end
  object Button2: TButton
    Left = 208
    Top = 312
    Width = 105
    Height = 25
    Caption = '&OK'
    TabOrder = 0
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 320
    Top = 312
    Width = 105
    Height = 25
    Caption = '&Cancel'
    TabOrder = 1
    OnClick = Button3Click
  end
  object Button1: TButton
    Left = 352
    Top = 56
    Width = 73
    Height = 25
    Caption = '&select folder'
    TabOrder = 2
    OnClick = Button1Click
  end
  object Edit1: TEdit
    Left = 8
    Top = 56
    Width = 337
    Height = 21
    TabOrder = 3
    Text = 'C:\'
  end
  object Memo1: TMemo
    Left = 8
    Top = 8
    Width = 417
    Height = 41
    BorderStyle = bsNone
    Color = clButton
    Lines.Strings = (
      
        'wbStego can search for appropriate carrier files starting in a f' +
        'older you specify.')
    ReadOnly = True
    TabOrder = 4
  end
  object Button4: TButton
    Left = 248
    Top = 112
    Width = 177
    Height = 25
    Caption = 'sta&rt searching for files of this type'
    TabOrder = 5
    OnClick = Button4Click
  end
  object ListBox1: TListBox
    Left = 8
    Top = 168
    Width = 417
    Height = 137
    ItemHeight = 13
    TabOrder = 6
  end
  object ComboBox1: TComboBox
    Left = 8
    Top = 112
    Width = 233
    Height = 21
    Style = csDropDownList
    ItemHeight = 15
    Items.Strings = (
      'all types supported'
      'Bitmap images'
      'Plain text files (standard method)'
      'Plain text files (compatible method)'
      'HTML files'
      'Adobe Acrobat files')
    TabOrder = 10
  end
  object Button5: TButton
    Left = 8
    Top = 312
    Width = 105
    Height = 25
    Caption = '&Hilfe'
    TabOrder = 8
    OnClick = Button5Click
  end
  object CheckBox1: TCheckBox
    Left = 8
    Top = 88
    Width = 385
    Height = 17
    Caption = '&inlcude subfolders'
    TabOrder = 9
  end
end