Chip 1998 September/Chip_1998-09_cd.bin/sharewar/fmedit/Fmedit95.exe/0/RCDATA/TMAINFORM/TMAINFORM.txt

Text File | 1998-01-18 | 5KB | 231 lines

object MainForm: TMainForm
  Left = 239
  Top = 149
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'FmEdit95 - Multiple File Handling'
  ClientHeight = 381
  ClientWidth = 339
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  Position = poScreenCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 161
    Height = 381
    Align = alLeft
    TabOrder = 0
    OnEnter = Panel2Enter
    OnExit = Panel2Exit
    object DrivesA: TDriveComboBox
      Left = 4
      Top = 5
      Width = 154
      Height = 19
      DirList = FoldersA
      TabOrder = 0
    end
    object StatusA: TStatusBar
      Left = 1
      Top = 357
      Width = 159
      Height = 23
      Panels = <>
      SimplePanel = True
      SizeGrip = False
    end
    object FoldersA: TDirectoryListBox
      Left = 3
      Top = 29
      Width = 156
      Height = 116
      FileList = FilesA
      ItemHeight = 16
      TabOrder = 2
    end
    object FilesA: TFileListBox
      Left = 3
      Top = 149
      Width = 156
      Height = 204
      ItemHeight = 13
      MultiSelect = True
      PopupMenu = PopupMenu
      TabOrder = 3
    end
    object Button1: TButton
      Left = 3
      Top = 360
      Width = 50
      Height = 19
      Caption = 'Copy >'
      TabOrder = 4
      OnClick = CopyFiles
    end
    object Button2: TButton
      Left = 56
      Top = 360
      Width = 50
      Height = 19
      Caption = 'Move >'
      TabOrder = 5
      OnClick = MoveFiles
    end
    object Button3: TButton
      Left = 108
      Top = 360
      Width = 50
      Height = 19
      Caption = 'Delete'
      TabOrder = 6
      OnClick = DeleteFile
    end
    object Newdir: TDirectoryEdit
      Left = 4
      Top = 5
      Width = 154
      Height = 19
      OnAfterDialog = NewdirAfterDialog
      DialogOptions = [sdAllowCreate, sdPerformCreate]
      NumGlyphs = 1
      TabOrder = 7
      Text = 'Create New Folder'
      Visible = False
    end
  end
  object PanelB: TPanel
    Left = 176
    Top = 0
    Width = 163
    Height = 381
    Align = alRight
    TabOrder = 1
    OnEnter = PanelBEnter
    OnExit = PanelBExit
    object StatusB: TStatusBar
      Left = 1
      Top = 357
      Width = 161
      Height = 23
      Panels = <>
      SimplePanel = True
      SizeGrip = False
    end
    object DrivesB: TDriveComboBox
      Left = 5
      Top = 5
      Width = 154
      Height = 19
      DirList = FoldersB
      TabOrder = 1
    end
    object FoldersB: TDirectoryListBox
      Left = 3
      Top = 29
      Width = 156
      Height = 116
      FileList = FilesB
      ItemHeight = 16
      TabOrder = 2
    end
    object FilesB: TFileListBox
      Left = 3
      Top = 149
      Width = 156
      Height = 204
      ItemHeight = 13
      MultiSelect = True
      PopupMenu = PopupMenu
      TabOrder = 3
    end
    object Button4: TButton
      Left = 108
      Top = 360
      Width = 50
      Height = 19
      Caption = '< Copy'
      TabOrder = 4
      OnClick = CopyFiles
    end
    object Button5: TButton
      Left = 56
      Top = 360
      Width = 50
      Height = 19
      Caption = '< Move'
      TabOrder = 5
      OnClick = MoveFiles
    end
    object Button6: TButton
      Left = 3
      Top = 360
      Width = 50
      Height = 19
      Caption = 'Delete'
      TabOrder = 6
      OnClick = DeleteFile
    end
  end
  object MainMenu: TMainMenu
    Left = 191
    Top = 159
    object FileItem: TMenuItem
      Caption = '&Exit'
      ShortCut = 0
      OnClick = FileExitItemClick
    end
    object CreateNewDir1: TMenuItem
      Caption = '&Create New Folder'
      ShortCut = 0
      OnClick = CreateNewDir1Click
    end
  end
  object PopupMenu: TPopupMenu
    Left = 224
    Top = 161
    object CopyItem: TMenuItem
      Caption = '&Copy'
      ShortCut = 116
      OnClick = CopyFiles
    end
    object MoveItem: TMenuItem
      Caption = '&Move'
      ShortCut = 117
      OnClick = MoveFiles
    end
    object DeleteItem: TMenuItem
      Caption = '&Delete'
      ShortCut = 46
      OnClick = DeleteFile
    end
    object N2: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object SelectAllItem: TMenuItem
      Caption = 'Select &All'
      ShortCut = 0
      OnClick = SelectAll
    end
    object InvertSelectionItem: TMenuItem
      Caption = '&Invert Selection'
      ShortCut = 0
      OnClick = InvertSelection
    end
  end
  object FileOperator1: TFileOperator
    ProgressTitle = 'FmEdit - Multiple FIle Handling'
    Left = 259
    Top = 162
    data = Null
  end
end