Bila Vrana/BILA_VRANA.iso/026A/CLEANUP1.ZIP/CleanUp.ex_/0/RCDATA/TFORM2/TFORM2.txt

Text File | 1997-02-09 | 8KB | 286 lines

object Form2: TForm2
  Left = 395
  Top = 366
  BorderIcons = []
  BorderStyle = bsToolWindow
  Caption = 'CleanUp'
  ClientHeight = 179
  ClientWidth = 385
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel
    Left = 48
    Top = 80
    Width = 114
    Height = 13
    Caption = 'File or File Specification:'
  end
  object Label1: TLabel
    Left = 48
    Top = 8
    Width = 44
    Height = 13
    Caption = 'Location:'
  end
  object ExplorerButton2: TExplorerButton
    Left = 216
    Top = 22
    Width = 25
    Height = 25
    Hint = 'Browse|Browse for location'
    AllowAllUp = True
    Bitmap.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000000000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
      22222222222222222222000000000002222200333333333022220B0333333333
      02220FB03333333330220BFB0333333333020FBFB000000000000BFBFBFBFB02
      22220FBFBFBFBF0222220BFB0000000222222000222222220002222222222222
      2002222222220222020222222222200022222222222222222222}
    Caption = 'ExplorerButton'
    Layout = blBitmapLeft
    Options = [boIconOnly, boPopupMark]
    OnClick = ExplorerButton2Click
    ParentShowHint = False
    ShowHint = True
  end
  object ExplorerButton1: TExplorerButton
    Left = 216
    Top = 94
    Width = 25
    Height = 25
    Hint = 'Browse|Browse for file'
    AllowAllUp = True
    Bitmap.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000000000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
      22222222222222222222000000000002222200333333333022220B0333333333
      02220FB03333333330220BFB0333333333020FBFB000000000000BFBFBFBFB02
      22220FBFBFBFBF0222220BFB0000000222222000222222220002222222222222
      2002222222220222020222222222200022222222222222222222}
    Caption = 'ExplorerButton'
    Layout = blBitmapLeft
    Options = [boIconOnly, boPopupMark]
    OnClick = ExplorerButton1Click
    ParentShowHint = False
    ShowHint = True
  end
  object Label3: TLabel
    Left = 256
    Top = 8
    Width = 41
    Height = 13
    Caption = 'File Age:'
  end
  object Label4: TLabel
    Left = 256
    Top = 80
    Width = 42
    Height = 13
    Caption = 'File Size:'
  end
  object Label5: TLabel
    Left = 352
    Top = 56
    Width = 24
    Height = 13
    Caption = 'Days'
    Visible = False
  end
  object AnimatedSymbol1: TAnimatedSymbol
    Left = 8
    Top = 16
    Width = 32
    Height = 32
    State = acmPlaying
  end
  object Button3: TButton
    Left = 328
    Top = 151
    Width = 50
    Height = 20
    Caption = '&Cancel'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ModalResult = 2
    ParentFont = False
    TabOrder = 2
  end
  object Button1: TButton
    Left = 272
    Top = 152
    Width = 50
    Height = 20
    Caption = '&Ok'
    Default = True
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ModalResult = 1
    ParentFont = False
    TabOrder = 1
    OnClick = Button1Click
  end
  object EditLoc: TEdit
    Left = 48
    Top = 24
    Width = 161
    Height = 21
    TabOrder = 3
  end
  object CBIncSubDir: TBitCheckBox
    Left = 48
    Top = 48
    Width = 161
    Height = 17
    Caption = 'Include Subfolders'
    Checked = True
    CheckedGlyph.Data = {
      1E010000424D1E010000000000007600000028000000130000000E0000000100
      040000000000A800000000000000000000000000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333300000888888888888833333300000F77777788777833333300000F777
      77888877833333300000F77748888887833333300000F7784488788883333330
      0000F774CC487788833333300000F77CC8C48778883333300000F78C888C4877
      888333300000F74C8777C487888883300000F7C877777C48838888800000F777
      777777CC483388800000FFFFFFFFFFF8CC483330000033333333333338C43330
      0000}
    GrayedGlyph.Data = {
      1E010000424D1E010000000000007600000028000000130000000E0000000100
      040000000000A800000000000000000000000000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333C438833
      33333330000088888C488888833333300000F77777778877833333300000F777
      7C478877833333300000F7777C478877833333300000F7777CC4888783333330
      0000F77777CC4888833333300000F777777CC488833333300000F7777777CC48
      883333300000FC4788777C47883333300000FC4788777C47883333300000FCC4
      8887CC48833333300000FFCC444CCC888333333000003333CCCC888333333330
      0000}
    State = cbChecked
    TabOrder = 5
    TabStop = True
    UncheckedGlyph.Data = {
      1E010000424D1E010000000000007600000028000000130000000E0000000100
      040000000000A800000000000000000000000000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333300000888888888888833333300000F77777777777833333300000F777
      77777777833333300000F77777777777833333300000F7777777777783333330
      0000F77777777777833333300000F77777777777833333300000F77777777777
      833333300000F77777777777833333300000F77777777777833333300000F777
      77777777833333300000FFFFFFFFFFFF83333330000033333333333333333330
      0000}
  end
  object EditFile: TEdit
    Left = 48
    Top = 96
    Width = 161
    Height = 21
    Hint =
      'File Spec is *.*, *.~*, *.dat, etc...|File Spec is *.*, *.~*, *.' +
      'dat, etc...'
    TabOrder = 4
  end
  object CBAge: TComboBox
    Left = 256
    Top = 24
    Width = 121
    Height = 21
    Style = csDropDownList
    DropDownCount = 6
    ItemHeight = 13
    Items.Strings = (
      'Equal to'
      'Greater than'
      'Greater than or equal to'
      'Less than'
      'Less than or equal to'
      'None')
    Sorted = True
    TabOrder = 6
    OnChange = CBAgeChange
  end
  object CBSize: TComboBox
    Left = 256
    Top = 96
    Width = 121
    Height = 21
    Style = csDropDownList
    DropDownCount = 6
    ItemHeight = 13
    Items.Strings = (
      'Equal to'
      'Greater than'
      'Greater than or equal to'
      'Less than'
      'Less than or equal to'
      'None')
    Sorted = True
    TabOrder = 7
    OnChange = CBSizeChange
  end
  object EditAge: TSpinEdit
    Left = 288
    Top = 48
    Width = 57
    Height = 22
    MaxValue = 0
    MinValue = 0
    TabOrder = 8
    Value = 0
    Visible = False
    OnChange = EditAgeChange
  end
  object EditSize: TSpinEdit
    Left = 256
    Top = 120
    Width = 57
    Height = 22
    MaxValue = 0
    MinValue = 0
    TabOrder = 9
    Value = 0
    Visible = False
    OnChange = EditSizeChange
  end
  object CBByte: TComboBox
    Left = 320
    Top = 120
    Width = 57
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    Items.Strings = (
      'Bytes'
      'KBytes')
    TabOrder = 10
    Visible = False
  end
  object FolderBrowse: TFolderBrowse
    Title = 'CleanUp Folder Location'
    Left = 64
    Top = 128
  end
  object OpenDialog: TOpenDialog
    FileEditStyle = fsEdit
    Filter = 'All Files (*.*)|*.*'
    Title = 'CleanUp Files'
    Left = 144
    Top = 128
  end
end