WDR Computer Club Digital 1998 March/CC9803-2.BIN/SHARE/95CHGNAM/_SETUP.1/Chgname.exe/0/RCDATA/TMAIN/TMAIN.txt

Text File | 1998-01-23 | 4KB | 161 lines

object Main: TMain
  Left = 401
  Top = 107
  HelpContext = 1
  AutoScroll = False
  ClientHeight = 453
  ClientWidth = 596
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  PopupMenu = PopupMenu1
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 10
    Top = 10
    Width = 63
    Height = 13
    Caption = 'Please wait...'
  end
  object ListBox1: TListBox
    Left = 0
    Top = 0
    Width = 596
    Height = 434
    Align = alClient
    DragMode = dmAutomatic
    ItemHeight = 13
    MultiSelect = True
    TabOrder = 1
    OnClick = ListBox1Click
    OnDragDrop = ListBox1DragDrop
    OnDragOver = ListBox1DragOver
    OnKeyDown = ListBox1KeyDown
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 434
    Width = 596
    Height = 19
    Panels = <
      item
        Text = 'Files: 0'
        Width = 64
      end
      item
        Text = 'Marked: 0'
        Width = 81
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object PopupMenu1: TPopupMenu
    Left = 112
    Top = 280
    object Addfiles2: TMenuItem
      Caption = 'S&earch for files'
      Hint = 'Search for and add files to file list'
      OnClick = SearchFilesClick
    end
    object AddFiles1: TMenuItem
      Caption = '&Add files'
      Hint = 'Add files to file list'
      OnClick = OpenFilesClick
    end
    object Deletefiles1: TMenuItem
      Caption = '&Unlist files'
      Hint = 'Unlist files from file list'
      OnClick = RemoveItemsClick
    end
    object Selectall2: TMenuItem
      Caption = '&Select all'
      Hint = 'Select all files in file list'
      OnClick = SelectAllClick
    end
    object Disposeall1: TMenuItem
      Caption = 'U&nlist all'
      Hint = 'Unlist all files in file list'
      OnClick = RemoveAllClick
    end
    object N9: TMenuItem
      Caption = '-'
    end
    object Importfilelist2: TMenuItem
      Caption = '&Import file list'
      Hint = 'Import a file list form a text file'
      OnClick = Importfilelist2Click
    end
    object Addtofilelist2: TMenuItem
      Caption = 'A&dd to file list'
      Hint = 'Add files to file list'
      OnClick = Addtofilelist1Click
    end
    object Savefilelist2: TMenuItem
      Caption = 'S&ave file list'
      Hint = 'Save file list in a text file'
      OnClick = Savefilelist1Click
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object Columns1: TMenuItem
      Caption = '&Columns'
      Hint = 'Set number of columns in file list'
      object N11: TMenuItem
        Caption = '&1'
        Hint = 'Set number of columns in file list'
        OnClick = N11Click
      end
      object N21: TMenuItem
        Caption = '&2'
        Hint = 'Set number of columns in file list'
        OnClick = N21Click
      end
      object N31: TMenuItem
        Caption = '&3'
        Hint = 'Set number of columns in file list'
        OnClick = N31Click
      end
      object N41: TMenuItem
        Caption = '&4'
        Hint = 'Set number of columns in file list'
        OnClick = N41Click
      end
      object N51: TMenuItem
        Caption = '&5'
        Hint = 'Set number of columns in file list'
        OnClick = N51Click
      end
    end
    object Sortlist1: TMenuItem
      Caption = 'S&ort list'
      Hint = 'Sort files in file list'
      OnClick = Sortlist1Click
    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '*.cns'
    Filter = 'Chgname file lists|*.cls|All Files|*.*'
    Options = [ofHideReadOnly, ofFileMustExist]
    Left = 192
    Top = 280
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = '*.cns'
    Filter = 'Chgname sets|*.cns|All files|*.*'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist]
    Left = 264
    Top = 280
  end
end