Chip 1999 March/Chip_1999-03_cd.bin/sharewar/EClean/EasyClean.exe/0/RCDATA/TFDOUBLE/TFDOUBLE.txt

Text File | 1998-01-15 | 7KB | 308 lines

inherited fDouble: TfDouble
  Left = 394
  Top = 270
  Width = 533
  Height = 411
  Caption = 'Find duplicate files'
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object TwoWaySplitter1: TTwoWaySplitter
    Left = 0
    Top = 0
    Width = 525
    Height = 327
    Align = alClient
    BarPosition = 35
    DragCursor = crHSplit
    object DriveSel: TTree2View
      Tag = 111
      Left = 1
      Top = 1
      Width = 181
      Height = 325
      ReadOnly = True
      HideSelection = False
      Indent = 19
      ParentColor = False
      TabOrder = 0
      Images = fMain.DriveList
      StateImages = fMain.ImageList1
    end
    object TwoWaySplitter2: TTwoWaySplitter
      Left = 187
      Top = 1
      Width = 337
      Height = 325
      BevelOuter = bvNone
      DragCursor = crVSplit
      SplitDirection = sdHorizontal
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 337
        Height = 161
        BevelOuter = bvNone
        TabOrder = 0
        object Panel3: TPanel
          Left = 0
          Top = 0
          Width = 337
          Height = 24
          Align = alTop
          TabOrder = 0
          object Label5: TLabel
            Left = 5
            Top = 6
            Width = 142
            Height = 13
            Caption = 'Name of duplicate'
          end
        end
        object MasterView: TListView
          Left = 0
          Top = 24
          Width = 337
          Height = 137
          Align = alClient
          Columns = <
            item
              Caption = 'Name'
              Width = 130
            end
            item
              Caption = 'Size'
              Width = 60
            end
            item
              Caption = 'Count'
            end>
          ReadOnly = True
          HideSelection = False
          OnChange = MasterViewChange
          OnColumnClick = MasterViewColumnClick
          TabOrder = 1
          ViewStyle = vsReport
        end
      end
      object Panel2: TPanel
        Left = 0
        Top = 166
        Width = 337
        Height = 159
        BevelOuter = bvNone
        TabOrder = 1
        object DetailView: TListView
          Left = 0
          Top = 24
          Width = 337
          Height = 135
          Align = alClient
          Columns = <
            item
              Caption = 'Path'
              Width = 200
            end
            item
              Caption = 'Date'
              Width = 130
            end>
          ReadOnly = True
          HideSelection = False
          MultiSelect = True
          PopupMenu = DetailViewPOP
          TabOrder = 0
          ViewStyle = vsReport
          OnKeyUp = DetailViewKeyUp
        end
        object Panel4: TPanel
          Left = 0
          Top = 0
          Width = 337
          Height = 24
          Align = alTop
          TabOrder = 1
          object Label4: TLabel
            Left = 5
            Top = 6
            Width = 287
            Height = 13
            Caption = 'Path of the duplicates (use right mousebutton to delete them)'
          end
        end
      end
    end
  end
  object Panel5: TPanel [1]
    Left = 0
    Top = 327
    Width = 525
    Height = 35
    Align = alBottom
    TabOrder = 1
    object Panel6: TPanel
      Left = 1
      Top = 1
      Width = 279
      Height = 33
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 0
      object StartBTN: TButton
        Left = 9
        Top = 4
        Width = 96
        Height = 23
        Caption = '&Start search'
        TabOrder = 0
        OnClick = StartBTNClick
      end
      object CheckCompeteFileRDB: TRadioButton
        Left = 115
        Top = 1
        Width = 117
        Height = 17
        Caption = 'name, size, content'
        Checked = True
        TabOrder = 1
        TabStop = True
      end
      object CheckOnlyDateRDB: TRadioButton
        Left = 115
        Top = 16
        Width = 121
        Height = 17
        Caption = 'name, size, date'
        TabOrder = 2
      end
    end
    object Panel7: TPanel
      Left = 366
      Top = 1
      Width = 158
      Height = 33
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 1
      object ClosBTN: TButton
        Left = 82
        Top = 5
        Width = 71
        Height = 23
        Caption = '&Close'
        ModalResult = 2
        TabOrder = 0
      end
      object CancelBTN: TButton
        Left = 1
        Top = 5
        Width = 75
        Height = 23
        Caption = '&Cancel'
        TabOrder = 1
        OnClick = CancelBTNClick
      end
    end
  end
  object Panel8: TPanel [2]
    Left = 0
    Top = 362
    Width = 525
    Height = 22
    Align = alBottom
    Alignment = taLeftJustify
    BorderWidth = 3
    TabOrder = 2
    object Label1: TLabel
      Left = 217
      Top = 4
      Width = 40
      Height = 13
      Alignment = taRightJustify
      Caption = 'Files:'
    end
    object Label2: TLabel
      Left = 324
      Top = 4
      Width = 35
      Height = 13
      Alignment = taRightJustify
      Caption = 'Folders:'
    end
    object Label3: TLabel
      Left = 424
      Top = 4
      Width = 38
      Height = 13
      Alignment = taRightJustify
      Caption = 'Duplicates:'
    end
    object Label6: TLabel
      Left = 6
      Top = 4
      Width = 33
      Height = 13
      Alignment = taRightJustify
      Caption = 'State:'
    end
    object StatusPNL: TPanel
      Left = 40
      Top = 3
      Width = 162
      Height = 16
      Alignment = taLeftJustify
      BevelOuter = bvLowered
      BorderWidth = 2
      TabOrder = 0
    end
    object FilesPNL: TPanel
      Left = 258
      Top = 3
      Width = 51
      Height = 16
      Alignment = taRightJustify
      BevelOuter = bvLowered
      BorderWidth = 2
      TabOrder = 1
    end
    object DirsPNL: TPanel
      Left = 360
      Top = 3
      Width = 47
      Height = 16
      Alignment = taRightJustify
      BevelOuter = bvLowered
      BorderWidth = 2
      TabOrder = 2
    end
    object DoublePNL: TPanel
      Left = 463
      Top = 3
      Width = 38
      Height = 16
      Alignment = taRightJustify
      BevelOuter = bvLowered
      BorderWidth = 2
      TabOrder = 3
    end
  end
  inherited MSOfficeCaption1: TMSOfficeCaption
    CaptionText.Caption = 'Find duplicate files'
  end
  object DetailViewPOP: TPopupMenu
    OnPopup = DetailViewPOPPopup
    Left = 233
    Top = 263
    object DeleteMNU: TMenuItem
      Caption = '&Delete'
      OnClick = DeleteMNUClick
    end
    object SelectAllMNU: TMenuItem
      Caption = 'Select &all'
      OnClick = SelectAllMNUClick
    end
  end
end