Chip: Shareware for Win 95/Chip-Shareware-Win95.bin/ostatni/space/_setup.1/PKDUse32.exe/0/RCDATA/TFRMMAIN/TFRMMAIN.txt

Text File | 1997-03-06 | 8KB | 327 lines

object frmMain: TfrmMain
  Left = 231
  Top = 109
  ActiveControl = cboPath
  BorderStyle = bsNone
  ClientHeight = 290
  ClientWidth = 528
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  Icon.Data = {<image000.ico>}
  KeyPreview = True
  Menu = MainMenu
  Position = poDefault
  Visible = True
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyUp = FormKeyUp
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object pnlAvailableDirectories: TGroupBox
    Left = 8
    Top = 8
    Width = 225
    Height = 273
    Caption = 'Available Folders'
    TabOrder = 0
    object lblPath: TLabel
      Left = 8
      Top = 21
      Width = 25
      Height = 13
      Caption = '&Path:'
      FocusControl = cboPath
    end
    object lblFilter: TLabel
      Left = 8
      Top = 46
      Width = 29
      Height = 13
      AutoSize = False
      Caption = 'Fi<er:'
      FocusControl = FilterComboBox1
    end
    object DirectoryListBox1: TDirectoryListBox
      Left = 8
      Top = 68
      Width = 209
      Height = 101
      FileList = FileListBox1
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 16
      ParentFont = False
      TabOrder = 2
      OnMouseDown = DirectoryListBox1MouseDown
    end
    object FileListBox1: TFileListBox
      Left = 8
      Top = 198
      Width = 209
      Height = 67
      FileType = [ftReadOnly, ftHidden, ftSystem, ftArchive, ftNormal]
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 16
      ParentFont = False
      ShowGlyphs = True
      TabOrder = 4
      OnDblClick = FileListBox1DblClick
    end
    object DriveComboBox1: TDriveComboBox
      Left = 8
      Top = 174
      Width = 209
      Height = 19
      DirList = DirectoryListBox1
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
    object FilterComboBox1: TFilterComboBox
      Left = 40
      Top = 42
      Width = 177
      Height = 21
      FileList = FileListBox1
      Filter =
        'All files (*.*)|*.*|Text files (*.TXT)|*.TXT|Temp files (*.TMP)|' +
        '*.TMP|Backup files (*.BAK)|*.BAK|Batch files (*.BAT)|*.BAT|Progr' +
        'ams|*.EXE;*.COM|Bitmaps (*.BMP)|*.BMP'
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnChange = FilterComboBox1Change
    end
    object cboPath: TMRUList
      Left = 40
      Top = 16
      Width = 177
      Height = 21
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 13
      ParentFont = False
      TabOrder = 0
      OnClick = cboPathClick
      OnKeyPress = cboPathKeyPress
      MRUMax = 20
    end
  end
  object pnlSelectedDirectories: TGroupBox
    Left = 296
    Top = 8
    Width = 225
    Height = 273
    Caption = 'Selected Folders'
    TabOrder = 2
    object lblDescription: TLabel
      Left = 8
      Top = 20
      Width = 56
      Height = 13
      Caption = 'D&escription:'
      FocusControl = edtDescription
    end
    object lstSelectedDirs: TListBox
      Left = 8
      Top = 41
      Width = 209
      Height = 193
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 13
      ParentFont = False
      TabOrder = 1
      OnClick = lstSelectedDirsClick
      OnDblClick = cmdRemoveClick
      OnDragDrop = lstSelectedDirsDragDrop
      OnDragOver = lstSelectedDirsDragOver
    end
    object cmdClearList: TButton
      Left = 40
      Top = 240
      Width = 65
      Height = 25
      Caption = '&Clear List'
      TabOrder = 2
      OnClick = cmdClearListClick
    end
    object cmdRemove: TButton
      Left = 120
      Top = 240
      Width = 65
      Height = 25
      Caption = '&Remove'
      TabOrder = 3
      OnClick = cmdRemoveClick
    end
    object edtDescription: TEdit
      Left = 72
      Top = 16
      Width = 145
      Height = 21
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnChange = edtDescriptionChange
    end
  end
  object cmdAdd: TBitBtn
    Left = 240
    Top = 104
    Width = 49
    Height = 65
    Caption = '&Add'
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = cmdAddClick
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333FFF333333333333000333333333
      3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
      3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
      0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
      BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
      33337777773FF733333333333300033333333333337773333333333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      33333333333333333333333333333333333333333333333333330000}
    Layout = blGlyphBottom
    NumGlyphs = 2
  end
  object MainMenu: TMainMenu
    Left = 348
    Top = 56
    object mnuFile: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object mnuFNew: TMenuItem
        Caption = '&New'
        Hint = 'Create a new file'
        ShortCut = 16462
        OnClick = mnuFNewClick
      end
      object mnuFOpen: TMenuItem
        Caption = '&Open...'
        Hint = 'Open an existing file'
        ShortCut = 16463
        OnClick = mnuFOpenClick
      end
      object mnuFSave: TMenuItem
        Caption = '&Save Folder Selection'
        Hint = 'Save current file'
        ShortCut = 16467
        OnClick = mnuFSaveClick
      end
      object mnuFSaveAs: TMenuItem
        Caption = 'Save Folder Selection &As...'
        ShortCut = 0
        OnClick = mnuFSaveAsClick
      end
      object mnuFClose: TMenuItem
        Caption = '&Close'
        ShortCut = 0
        Visible = False
      end
      object mnuFPrint: TMenuItem
        Caption = '&Print'
        Hint = 'Print current file'
        ShortCut = 16464
        Visible = False
        OnClick = mnuFPrintClick
      end
      object mnuFPrintSetup: TMenuItem
        Caption = 'P&rint Setup...'
        Hint = 'Change printer setup'
        ShortCut = 0
        Visible = False
        OnClick = mnuFPrintSetupClick
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mnuFExit: TMenuItem
        Caption = 'E&xit'
        Hint = 'Exit this application'
        ShortCut = 16472
        OnClick = mnuFExitClick
      end
    end
    object mnuDirectory: TMenuItem
      Caption = 'F&older'
      GroupIndex = 2
      ShortCut = 0
      object mnuDCalculateSizes: TMenuItem
        Caption = 'Ca&lculate Sizes'
        ShortCut = 16460
        OnClick = mnuDCalculateSizesClick
      end
      object mnuDAddToList: TMenuItem
        Caption = '&Add to Selection'
        ShortCut = 16449
        OnClick = cmdAddClick
      end
      object mnuDRemovefromList: TMenuItem
        Caption = '&Remove from Selection'
        ShortCut = 16466
        OnClick = cmdRemoveClick
      end
    end
  end
  object SaveDialog: TSaveDialog
    FileEditStyle = fsEdit
    Left = 376
    Top = 56
  end
  object OpenDialog: TOpenDialog
    FileEditStyle = fsEdit
    Left = 324
    Top = 56
  end
  object PrintDialog: TPrintDialog
    Left = 452
    Top = 56
  end
  object PrinterSetupDialog: TPrinterSetupDialog
    Left = 424
    Top = 56
  end
  object MRUFiles: TRecentFiles
    Menu = mnuFile
    MaxFiles = 9
    OnClick = MRUFilesClick
    Left = 400
    Top = 56
  end
end