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