PC World Komputer 1997 May/Pcwk0597.iso/delphi/tenpack.lzh/CRYPDEMO.DFM/CRYPDEMO.txt

Text File | 1995-08-15 | 5KB | 202 lines

object DemoCrypt: TDemoCrypt
  Left = 78
  Top = 70
  BorderStyle = bsSingle
  Caption = 'File Encryption Component'
  ClientHeight = 361
  ClientWidth = 477
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  PixelsPerInch = 96
  Position = poScreenCenter
  Visible = True
  TextHeight = 16
  object Label2: TLabel
    Left = 118
    Top = 9
    Width = 63
    Height = 16
    Caption = 'Password:'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label1: TLabel
    Left = 154
    Top = 38
    Width = 25
    Height = 16
    Caption = 'File:'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 74
    Top = 288
    Width = 343
    Height = 62
    AutoSize = False
    Caption =
      'Encrypt sensitive files with the File Encryption component.  Sup' +
      'ply a password, call the CryptFile method and you'#39're done (and f' +
      'ast too !).  To decrypt the file, call the CryptFile method a se' +
      'cond time with the same password.'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object DriveComboBox1: TDriveComboBox
    Left = 45
    Top = 68
    Width = 145
    Height = 22
    DirList = DirectoryListBox1
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
  end
  object DirectoryListBox1: TDirectoryListBox
    Left = 45
    Top = 93
    Width = 145
    Height = 68
    FileList = FileListBox1
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    TabOrder = 1
  end
  object FileListBox1: TFileListBox
    Left = 45
    Top = 164
    Width = 145
    Height = 119
    FileEdit = Edit1
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    TabOrder = 2
  end
  object Memo1: TMemo
    Left = 194
    Top = 94
    Width = 269
    Height = 189
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Lines.Strings = (
      'Memo1')
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 3
  end
  object Edit1: TEdit
    Left = 184
    Top = 35
    Width = 173
    Height = 24
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 4
    Text = '*.*'
  end
  object Edit2: TEdit
    Left = 184
    Top = 8
    Width = 173
    Height = 24
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
  end
  object BitBtn1: TBitBtn
    Left = 373
    Top = 7
    Width = 89
    Height = 24
    Caption = '&Encrypt'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnClick = BitBtn1Click
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000000
      0EEE333377777777777733330FF00FBFB0EE33337F37733F377733330F0BFB0B
      FB0E33337F73FF73337733330FF000BFBFB033337F377733333733330FFF0BFB
      FBF033337FFF733F333733300000BF0FBFB03FF77777F3733F37000FBFB0F0FB
      0BF077733FF7F7FF7337E0FB00000000BF0077F377777777F377E0BFBFBFBFB0
      F0F077F3333FFFF7F737E0FBFB0000000FF077F3337777777337E0BFBFBFBFB0
      FFF077F3333FFFF73FF7E0FBFB00000F000077FF337777737777E00FBFBFB0FF
      0FF07773FFFFF7337F37003000000FFF0F037737777773337F7333330FFFFFFF
      003333337FFFFFFF7733333300000000033333337777777773330000}
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 373
    Top = 33
    Width = 89
    Height = 24
    Caption = '&View'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    OnClick = BitBtn2Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33033333333333333F7F3333333333333000333333333333F777333333333333
      000333333333333F777333333333333000333333333333F77733333333333300
      033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
      33333377333777733333307F8F8F7033333337F333F337F3333377F8F9F8F773
      3333373337F3373F3333078F898F870333337F33F7FFF37F333307F99999F703
      33337F377777337F3333078F898F8703333373F337F33373333377F8F9F8F773
      333337F3373337F33333307F8F8F70333333373FF333F7333333330777770333
      333333773FF77333333333370007333333333333777333333333}
    NumGlyphs = 2
  end
  object FileCrypt1: TFileCrypt
    Retaindate = False
    Left = 37
    Top = 18
  end
end