Hot Shareware 35/hot35.iso/ficheros/9UTI/K_SYNCH.ZIP/K-SYNCH.EXE/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1998-04-28 | 11KB | 507 lines

object Form1: TForm1
  Left = 106
  Top = 160
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'K-Synch'
  ClientHeight = 262
  ClientWidth = 550
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PopupMenu = PopupMenu2
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 246
    Top = 6
    Width = 70
    Height = 13
    Caption = 'Folder 1 (From)'
  end
  object Label2: TLabel
    Left = 246
    Top = 48
    Width = 60
    Height = 13
    Caption = 'Folder 2 (To)'
  end
  object Label4: TLabel
    Left = 252
    Top = 114
    Width = 84
    Height = 13
    AutoSize = False
    Caption = 'File(s) Copied: '
  end
  object Label5: TLabel
    Left = 366
    Top = 96
    Width = 115
    Height = 13
    AutoSize = False
  end
  object Label6: TLabel
    Left = 516
    Top = 156
    Width = 3
    Height = 13
    Hint = 'Total Files (Hidden, System, etc...)'
    ParentShowHint = False
    ShowHint = True
    Visible = False
  end
  object Label3: TLabel
    Left = 252
    Top = 96
    Width = 84
    Height = 13
    AutoSize = False
    Caption = 'Last Run On: '
  end
  object Label7: TLabel
    Left = 252
    Top = 132
    Width = 84
    Height = 13
    AutoSize = False
    Caption = 'Folder(s) Copied:'
  end
  object Label8: TLabel
    Left = 366
    Top = 132
    Width = 70
    Height = 13
    AutoSize = False
  end
  object Label9: TLabel
    Left = 252
    Top = 168
    Width = 84
    Height = 13
    AutoSize = False
    Caption = 'Total Time:'
  end
  object Label10: TLabel
    Left = 366
    Top = 168
    Width = 115
    Height = 13
    AutoSize = False
  end
  object Label11: TLabel
    Left = 429
    Top = 114
    Width = 3
    Height = 13
    Hint = 'Total Size of Copied Files'
    ParentShowHint = False
    ShowHint = True
  end
  object Label12: TLabel
    Left = 252
    Top = 150
    Width = 84
    Height = 13
    AutoSize = False
    Caption = 'Error(s) Found:'
  end
  object Label13: TLabel
    Left = 366
    Top = 150
    Width = 73
    Height = 13
    AutoSize = False
  end
  object Label15: TLabel
    Left = 252
    Top = 198
    Width = 84
    Height = 13
    AutoSize = False
    Caption = 'Working On'
  end
  object Label17: TLabel
    Left = 366
    Top = 198
    Width = 6
    Height = 13
    Caption = '0'
  end
  object Label18: TLabel
    Left = 378
    Top = 198
    Width = 13
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = 'of'
  end
  object Label19: TLabel
    Left = 396
    Top = 198
    Width = 31
    Height = 13
    AutoSize = False
    Caption = '0'
  end
  object Label20: TLabel
    Left = 366
    Top = 114
    Width = 3
    Height = 13
    Hint = 'Files That Match Your Copy Pref (Config)'
    ParentShowHint = False
    ShowHint = True
  end
  object Label21: TLabel
    Left = 522
    Top = 144
    Width = 13
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = '/'
    Visible = False
  end
  object Button2: TButton
    Left = 6
    Top = 222
    Width = 89
    Height = 37
    Hint = 'Delete Selected Scheme'
    Caption = '&Delete Scheme'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 9
    OnClick = Button2Click
  end
  object Edit1: TEdit
    Left = 246
    Top = 24
    Width = 247
    Height = 21
    Hint = 'Enter Folder To Copy From'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnKeyDown = Edit1KeyDown
  end
  object Edit2: TEdit
    Left = 246
    Top = 66
    Width = 247
    Height = 21
    Hint = 'Enter Folder To Copy To'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    OnKeyDown = Edit2KeyDown
  end
  object Button4: TButton
    Left = 366
    Top = 222
    Width = 89
    Height = 37
    Hint = 'Start K-Synching Folders'
    Caption = '&Synch (Go)'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 13
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 498
    Top = 32
    Width = 49
    Height = 19
    Hint = 'Browse For Folder 1'
    Caption = 'Browse'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 498
    Top = 80
    Width = 49
    Height = 19
    Hint = 'Browse For Folder 2'
    Caption = 'Browse'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
    OnClick = Button6Click
  end
  object Button7: TButton
    Left = 456
    Top = 222
    Width = 89
    Height = 37
    Hint = 'Exit Program'
    Caption = '&Quit'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 14
    OnClick = Button7Click
  end
  object SchemeList: TFileListBox
    Left = 6
    Top = 12
    Width = 205
    Height = 205
    Hint = 'Saved Schemes To Select'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    Mask = '*.SCH'
    ParentFont = False
    ParentShowHint = False
    PopupMenu = PopupMenu1
    ShowHint = True
    TabOrder = 0
    OnChange = SchemeListChange
    OnDblClick = SchemeListDblClick
  end
  object Button8: TButton
    Left = 186
    Top = 222
    Width = 89
    Height = 37
    Hint = 'Show Finished File and Dir List'
    Caption = 'Show &Work'
    Enabled = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 11
    OnClick = Button8Click
  end
  object Button1: TButton95
    Left = 216
    Top = 12
    Width = 25
    Height = 79
    Hint = 'Add Current Settings as a Scheme To List'
    Caption = '<-  ADD '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnClick = Button1Click
    WordWrap = True
  end
  object btnAbout: TButton
    Left = 96
    Top = 222
    Width = 89
    Height = 37
    Hint = 'About K-Synch'
    Caption = '&About'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 10
    OnClick = btnAboutClick
  end
  object Button9: TButton
    Left = 498
    Top = 12
    Width = 49
    Height = 19
    Hint = 'Report Size of Folder 1'
    Caption = 'Size'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnClick = Button9Click
  end
  object Button10: TButton
    Left = 498
    Top = 60
    Width = 49
    Height = 19
    Hint = 'Show Free Space of Folder 2'
    Caption = 'Free'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    OnClick = Button10Click
  end
  object Button11: TButton
    Left = 276
    Top = 222
    Width = 89
    Height = 37
    Hint = 'Configure K-Synch (Stats)'
    Caption = '&Config'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 12
    OnClick = Button11Click
  end
  object Button951: TButton95
    Left = 216
    Top = 96
    Width = 25
    Height = 121
    Hint = 'Show Stats and Current Queue'
    Caption = ' I NFO'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 8
    OnClick = Button951Click
    WordWrap = True
  end
  object Button952: TButton95
    Left = 423
    Top = 174
    Width = 121
    Height = 43
    Hint = 'Stops Current Process'
    Caption = 'Abort &Process'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 15
    Visible = False
    OnClick = Button952Click
    WordWrap = True
  end
  object Timer1: TTimer
    Interval = 100
    OnTimer = Timer1Timer
    Left = 570
    Top = 12
  end
  object JustOne321: TJustOne32
    Left = 570
    Top = 60
  end
  object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 570
    Top = 108
    object AddSchemeToQueue1: TMenuItem
      Caption = '&Add Scheme To Queue'
      OnClick = AddSchemeToQueue1Click
    end
    object DeleteScheme4: TMenuItem
      Caption = '&Delete Scheme'
      OnClick = DeleteScheme4Click
    end
    object Config1: TMenuItem
      Caption = '-'
    end
    object KSynchInfo1: TMenuItem
      Caption = '&Config K-Synch'
      OnClick = KSynchInfo1Click
    end
    object QuitKSynch1: TMenuItem
      Caption = 'K-Synch &Info'
      OnClick = QuitKSynch1Click
    end
    object QuitKSynch2: TMenuItem
      Caption = '-'
    end
    object QuitKSynch3: TMenuItem
      Caption = '&Quit K-Synch'
      OnClick = QuitKSynch3Click
    end
  end
  object PopupMenu2: TPopupMenu
    OnPopup = PopupMenu2Popup
    Left = 570
    Top = 156
    object AddScheme1: TMenuItem
      Caption = 'A&dd Scheme To Queue'
      OnClick = AddScheme1Click
    end
    object DeleteScheme3: TMenuItem
      Caption = '&Delete Scheme'
      OnClick = DeleteScheme3Click
    end
    object SaveScheme1: TMenuItem
      Caption = '&Save Scheme'
      OnClick = SaveScheme1Click
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object AboutKSynch1: TMenuItem
      Caption = '&About K-Synch'
      OnClick = AboutKSynch1Click
    end
    object ConfigKSynch1: TMenuItem
      Caption = '&Config K-Synch'
      OnClick = ConfigKSynch1Click
    end
    object KSynchInfo2: TMenuItem
      Caption = 'K-Synch &Info'
      OnClick = KSynchInfo2Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object ShowWork2: TMenuItem
      Caption = '&Show Work'
      Enabled = False
      OnClick = ShowWork2Click
    end
    object Quit1: TMenuItem
      Caption = '&Abort Process'
      Enabled = False
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object SizeOfFolder11: TMenuItem
      Caption = 'Size Of Folder 1'
      OnClick = SizeOfFolder11Click
    end
    object BrowseForFolder11: TMenuItem
      Caption = 'Browse For Folder 1'
      OnClick = BrowseForFolder11Click
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object FreeSpaceInFolder21: TMenuItem
      Caption = 'Free Space In Folder 2'
      OnClick = FreeSpaceInFolder21Click
    end
    object BrowseForFolder21: TMenuItem
      Caption = 'Browse For Folder 2'
      OnClick = BrowseForFolder21Click
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object Quit2: TMenuItem
      Caption = '&Quit'
      OnClick = Quit2Click
    end
  end
end