Computer Buyer 1999 September/Dpcb0999.iso/Business/Empire/_SETUP.1/EmpireBuilder.exe/0/RCDATA/TFMBACKUPWIZARD/TFMBACKUPWIZARD.txt

Text File | 1999-06-21 | 13KB | 519 lines

object fmBackupWizard: TfmBackupWizard
  Left = 101
  Top = 114
  HelpContext = 728
  BorderStyle = bsDialog
  Caption = 'Back up Wizard'
  ClientHeight = 353
  ClientWidth = 592
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = []
  Position = poScreenCenter
  Scaled = False
  PixelsPerInch = 120
  TextHeight = 16
  object Notebook1: TNotebook
    Left = 152
    Top = 0
    Width = 440
    Height = 288
    Align = alRight
    PageIndex = 4
    TabOrder = 0
    object TPage
      Left = 0
      Top = 0
      Caption = 'WhichOption'
      object Label1: TLabel
        Left = 32
        Top = 56
        Width = 352
        Height = 80
        Caption =
          'You can choose to backup the accounts data files for all or one ' +
          'selected company.  You can also use it as general purpose backup' +
          ' facility by choosing the files you want to backup.  Please sele' +
          'ct the option you want and click Next to continue.'
        WordWrap = True
      end
      object RxLabel1: TRxLabel
        Left = 20
        Top = 15
        Width = 284
        Height = 23
        Caption = 'Welcome to the back up wizard.'
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -20
        Font.Name = 'Arial'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        ShadowColor = clWhite
        ShadowSize = 2
        ShadowPos = spRightBottom
      end
      object Label5: TLabel
        Left = 68
        Top = 188
        Width = 260
        Height = 32
        Caption =
          '(This option will backup a selected company'#39's accounts data file' +
          's automatically)'
        WordWrap = True
      end
      object Label6: TLabel
        Left = 72
        Top = 251
        Width = 326
        Height = 16
        Caption = '(This option will backup the selected files of your choice)'
        WordWrap = True
      end
      object RBFullCompany: TRadioButton
        Left = 56
        Top = 168
        Width = 249
        Height = 17
        Caption = '&Selected Company Accounts Files'
        Checked = True
        TabOrder = 0
        TabStop = True
      end
      object RBIndiviual: TRadioButton
        Left = 56
        Top = 232
        Width = 113
        Height = 17
        Caption = '&Individual Files'
        TabOrder = 1
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Company'
      object Label2: TLabel
        Left = 37
        Top = 48
        Width = 353
        Height = 64
        Caption =
          'From the grid below, please select the company you want to '#13#10'bac' +
          'kup or check the All Companies box below to backup all'#13#10'companie' +
          's.  Click on Next to proceed or Back to change your selection.'
        WordWrap = True
      end
      object RxLabel2: TRxLabel
        Left = 20
        Top = 15
        Width = 166
        Height = 23
        Caption = 'Select company ...'
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -20
        Font.Name = 'Arial'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        ShadowColor = clWhite
        ShadowSize = 2
        ShadowPos = spRightBottom
      end
      object wwDBGrid1: TwwDBGrid
        Left = 34
        Top = 160
        Width = 397
        Height = 123
        Selected.Strings = (
          'COMPANY'#9'40'#9'Company Name'
          'LASTBACKUP'#9'10'#9'Last Backup')
        TitleColor = clBtnFace
        FixedCols = 0
        ShowHorzScrollBar = True
        DataSource = dsSetup
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
        ReadOnly = True
        TabOrder = 0
        TitleAlignment = taLeftJustify
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = 'Arial'
        TitleFont.Style = []
        TitleLines = 1
        TitleButtons = False
        UseTFields = False
        IndicatorColor = icBlack
      end
      object cbSelectAll: TCheckBox
        Left = 37
        Top = 131
        Width = 161
        Height = 17
        Alignment = taLeftJustify
        Caption = 'All Companies'
        TabOrder = 1
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'SelectedFiles'
      object RxLabel3: TRxLabel
        Left = 20
        Top = 15
        Width = 128
        Height = 23
        Caption = 'Backup title ...'
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -20
        Font.Name = 'Arial'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        ShadowColor = clWhite
        ShadowSize = 2
        ShadowPos = spRightBottom
      end
      object Label3: TLabel
        Left = 36
        Top = 52
        Width = 335
        Height = 80
        Caption =
          'This option will allow you to select individual files from the d' +
          'irectory of your choice.'#13#10#13#10'To identify your set of backed up fi' +
          'les for future reference please give it title in the edit box be' +
          'low.'
        WordWrap = True
      end
      object Label4: TLabel
        Left = 45
        Top = 150
        Width = 72
        Height = 16
        Caption = 'Backup Title'
      end
      object ETitle: TEdit
        Left = 44
        Top = 171
        Width = 361
        Height = 24
        TabOrder = 0
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'SelectedFiles2'
      object RxLabel5: TRxLabel
        Left = 20
        Top = 15
        Width = 166
        Height = 23
        Caption = 'Select your files ...'
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -20
        Font.Name = 'Arial'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        ShadowColor = clWhite
        ShadowSize = 2
        ShadowPos = spRightBottom
      end
      object Label7: TLabel
        Left = 36
        Top = 52
        Width = 392
        Height = 16
        Caption =
          'Click on the Add Files button to select the files you want to ba' +
          'ckup.'
        WordWrap = True
      end
      object BtnClearFiles: TButton
        Left = 50
        Top = 85
        Width = 95
        Height = 30
        Caption = 'Clear &Files'
        TabOrder = 0
        OnClick = BtnClearFilesClick
      end
      object BtnAddFiles: TButton
        Left = 294
        Top = 85
        Width = 95
        Height = 30
        Caption = '&Add Files'
        TabOrder = 1
        OnClick = BtnAddFilesClick
      end
      object FileListbox: TListBox
        Left = 21
        Top = 120
        Width = 396
        Height = 153
        ItemHeight = 16
        TabOrder = 2
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Finish'
      object RxLabel4: TRxLabel
        Left = 20
        Top = 15
        Width = 233
        Height = 23
        Caption = 'Well done, you'#39've made it!'
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -20
        Font.Name = 'Arial'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        ShadowColor = clWhite
        ShadowSize = 2
        ShadowPos = spRightBottom
      end
      object lbEndMessage: TLabel
        Left = 32
        Top = 59
        Width = 321
        Height = 48
        Caption =
          'Now you are ready to backup your files.'#13#10'Please click on Finish ' +
          'to start the backup procedure or alternatively click on Back to ' +
          'edit your selections.'
        WordWrap = True
      end
      object ProgressBar1: TProgressBar
        Left = 32
        Top = 160
        Width = 377
        Height = 29
        Min = 0
        Max = 100
        TabOrder = 0
        Visible = False
      end
      object lbProgress: TPanel
        Left = 32
        Top = 200
        Width = 377
        Height = 57
        BorderStyle = bsSingle
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsItalic]
        ParentFont = False
        TabOrder = 1
        Visible = False
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 288
    Width = 592
    Height = 65
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object Bevel1: TBevel
      Left = 20
      Top = 8
      Width = 561
      Height = 13
      Shape = bsTopLine
    end
    object BtnBack: TButton
      Left = 345
      Top = 24
      Width = 75
      Height = 30
      Caption = '<< &Back'
      TabOrder = 0
    end
    object BtnClose: TButton
      Left = 265
      Top = 24
      Width = 75
      Height = 30
      Caption = '&Close'
      TabOrder = 1
      OnClick = BtnCloseClick
    end
    object BtnNext: TButton
      Left = 426
      Top = 24
      Width = 75
      Height = 30
      Caption = '&Next >>'
      TabOrder = 2
    end
    object BtnStart: TButton
      Left = 506
      Top = 24
      Width = 75
      Height = 30
      Caption = '&Start'
      Enabled = False
      TabOrder = 3
      OnClick = BtnStartClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 152
    Height = 288
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object Panel3: TPanel
      Left = 20
      Top = 16
      Width = 115
      Height = 220
      BevelOuter = bvLowered
      BorderStyle = bsSingle
      TabOrder = 0
      object Image1: TImage
        Left = 1
        Top = 1
        Width = 109
        Height = 214
        Align = alClient
        AutoSize = True
        Picture.Data = {<image000.bmp>}
        Stretch = True
      end
    end
  end
  object PageManager1: TPageManager
    PageOwner = Notebook1
    NextBtn = BtnNext
    PriorBtn = BtnBack
    OnGetPriorPage = PageManager1GetPriorPage
    OnGetNextPage = PageManager1GetNextPage
    Left = 12
    Top = 266
    object WhichOption: TPageProxy
      PageName = 'WhichOption'
    end
    object Company: TPageProxy
      PageName = 'Company'
      OnEnter = CompanyEnter
      OnLeave = CompanyLeave
    end
    object SelectedFiles: TPageProxy
      PageName = 'SelectedFiles'
      OnEnter = CompanyEnter
    end
    object SelectedFiles2: TPageProxy
      PageName = 'SelectedFiles2'
      OnEnter = CompanyEnter
    end
    object Finish: TPageProxy
      PageName = 'Finish'
      OnEnter = FinishEnter
      OnLeave = FinishLeave
    end
  end
  object OpenDialog: TOpenDialog
    Options = [ofHideReadOnly, ofAllowMultiSelect]
    Left = 49
    Top = 230
  end
  object SaveDialog: TSaveDialog
    DefaultExt = '*.ebb'
    Filter = 'Backup archives (*.ebb)|*.ebb'
    Left = 76
    Top = 238
  end
  object dsSetup: TwwDataSource
    DataSet = DM1.taSetup
    OnDataChange = dsSetupDataChange
    Left = 44
    Top = 266
  end
  object BackupFile1: TBackupFile
    Version = '3.00'
    BackupMode = bmAll
    CompressionLevel = clFastest
    RestoreMode = rmAll
    MaxSize = 0
    SetArchiveFlag = False
    OnProgress = BackupFile1Progress
    OnNeedDisk = BackupFile1NeedDisk
    RestoreFullPath = False
    SaveFileID = False
    Left = 76
    Top = 266
  end
  object Sizer1: TSizer
    Enabled = True
    ExceptionAction = eaIgnoreControl
    GridColumnSizing = gcSizeAllColumns
    GridRowSizing = grSizeByDefaults
    MinimumSize = True
    NavigateOnEnter = False
    OverrideParentFont = True
    PerformAssertions = True
    ShowAssertionFailures = False
    StretchFonts = True
    StretchImages = True
    StretchOnResize = True
    ThreadProcessing = False
    Left = 16
    Top = 230
    ScreenWidth = (
      800)
    ScreenHeight = (
      600)
    OriginalFormWidth = (
      600)
    OriginalFormHeight = (
      380)
    OriginalFormLeft = (
      101)
    OriginalFormTop = (
      114)
    OriginalFormPPI = (
      120)
    OriginalClientWidth = (
      592)
    OriginalClientHeight = (
      353)
  end
  object taSetup: TwwTable
    DatabaseName = 'MainEB'
    TableName = 'Setup.DBF'
    SyncSQLByRange = False
    NarrowSearch = False
    ValidateWithMask = True
    Left = 108
    Top = 235
  end
end