Chip 2000 February/CHIPCD_2_2000.iso/software/shareware/executefilelocker/Locker32.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1999-09-08 | 2KB | 112 lines

object Form1: TForm1
  Left = 198
  Top = 138
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Execute File Locker 32 (v2.0)'
  ClientHeight = 233
  ClientWidth = 401
  Color = clSilver
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 0
    Top = 0
    Width = 401
    Height = 233
    Align = alClient
  end
  object filebox: TFileListBox
    Left = 200
    Top = 8
    Width = 193
    Height = 193
    ItemHeight = 13
    Mask = '*.exe'
    TabOrder = 0
    OnDblClick = fileboxDblClick
  end
  object list: TDirectoryListBox
    Left = 8
    Top = 8
    Width = 185
    Height = 193
    FileList = filebox
    ItemHeight = 16
    TabOrder = 1
  end
  object DriveComboBox1: TDriveComboBox
    Left = 8
    Top = 208
    Width = 185
    Height = 19
    DirList = list
    TabOrder = 2
  end
  object FilterComboBox1: TFilterComboBox
    Left = 200
    Top = 208
    Width = 193
    Height = 21
    FileList = filebox
    Filter = 'Execute File |*.exe'
    TabOrder = 3
  end
  object lz: Tlzrw1
    Left = 136
    Top = 160
    Width = 49
    Height = 41
    CompressMode = Fast
    TabOrder = 4
    Visible = False
  end
  object op1: TOpenDialog
    Filter = '*.EXE|*.EXE'
    Left = 344
    Top = 120
  end
  object MainMenu1: TMainMenu
    Left = 344
    Top = 152
    object Action1: TMenuItem
      Caption = '&Option'
      object OpenExecuteShareware1: TMenuItem
        Caption = 'Compress Mode'
        OnClick = OpenExecuteShareware1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object QuitProgram1: TMenuItem
        Caption = '&Quit Program'
        OnClick = QuitProgram1Click
      end
    end
    object About1: TMenuItem
      Caption = '&Help'
      object HelpTopic1: TMenuItem
        Caption = '&Order Full version'
        OnClick = HelpTopic1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object About2: TMenuItem
        Caption = '&About...'
        OnClick = About2Click
      end
    end
  end
end