;------------- StorageWizard ------------- [StorageWizard] @ = $DlgAttrBase at(wizard,customfooter,minimizable) sz(638,526) mg(0) bg("White") ns(serinit(NULL,#BackupStorageInfo)) onok(f_IfErrThenMsg(backupCreateStorage(ser(GUID),l_copyTool,ctl.Pages.Protection.PasswordEdit.value), "BackupCreateStorageError")) Bg = a(tr) sz(a,a) bg("WizardTrCorner") Navigator = [StorageWizard.Navigator] Pages = [StorageWizard.Pages] a(la) xy(,,,$DialogPanelSizeY) at(sheetpages) order(0) Footer = [DialogPanel] [EditStorageWizard] @ = $DlgAttrBase at(wizard,customfooter,minimizable) sz(638,526) mg(0) bg("White") ns(p_storage) onok(f_IfErrThenMsg(backupUpdateStorage(p_storage), "BackupUpdateStorageError")) Bg = a(tr) sz(a,a) bg("WizardTrCorner") Navigator = [StorageWizard.Navigator] subst(Location(use(0)) Protection(use(0)) History(a(lt) enable(1))) Pages = [StorageWizard.Pages] a(la) xy(,,,$DialogPanelSizeY) at(sheetpages) order(0) subst(Location(use(0)) Protection(use(0))) Footer = [DialogPanel] [StorageWizard.Navigator] @ = btns(Btns) a(lt) sz(p,a) at(enum) alias(navigator) workarea(Header) v(curPage) ext(1) Btns = [StorageWizard.Navigator.Btns] a(la) extprm(1) [StorageWizard.HeaderTemplate] @ = sz(p,53) mg(15,0) ext(1) Name = a(lc) sz(a,a) f("WndHeaderSingle") extprm(1) [StorageWizard.Navigator.Btns] @ = sz(p,a) bg("KtsNavigationButton.body,0") Bg = bg("WizardHeader") a(rt) sz(a,a) Location = [Wizard_Navigator_Button] subst(Text()) extprm(1) enable(1) v("Location") a(lt) Protection = [Wizard_Navigator_Button] subst(Text()) extprm(1) enable(0) v("Protection") History = [Wizard_Navigator_Button] subst(Text()) extprm(1) enable(0) v("History") Summary = [Wizard_Navigator_Button] subst(Text()) extprm(1) enable(0) v("Summary") [StorageWizard.Pages] @ = a(la) sz(p,p) ext(1) Location = [StorageWizard.Page] subst(Body([StorageWizard.Location])) extprm(1) h(17144) Protection = [StorageWizard.Page] subst(Body([StorageWizard.Protection])) extprm(1) onshow(ctl.parent.parent.Navigator.Btns.Protection.enabled=1) h(17001) History = [StorageWizard.Page] subst(Body([StorageWizard.History])) extprm(1) onshow(ctl.parent.parent.Navigator.Btns.History.enabled=1) h(17002) Summary = [StorageWizard.Page] subst(Body([StorageWizard.Summary])) extprm(1) onshow(ctl.parent.parent.Navigator.Btns.Summary.enabled=1) h(17003) [StorageWizard.Page] @ = ext(1) sz(p,p) Body = a(la) sz(p,p) mg(20,20,20,20) extprm(1) [StorageWizard.Location] @ = $DlgWizardInnerAttr sz(p,p) ext(1) Descr = f("Header3KGreenLite") a(la) Navigator = [StorageLocation.Navigator] xy(,27) [StorageLocation.Navigator] @ = alias(navigator) btns(Btns) a(la) sz(p,p) at(enum,loadpages) v(StorageType) Btns = [StorageLocation.Navigator.Btns] _client_area = sz(p,p) a(at) mg(12,15,17,15) Top = a(st) sz(p,5) xy(,,5) bg("WizardTabTop") Bottom = a(sb) sz(p,5) xy(,,5) bg("WizardTabBottom") Right = a(rt) sz(5,p) xy(,5,,5) bg("WizardTabRight") TopRight = a(rt) sz(5,5) bg("WizardTabTR") BottomRight = a(rb) sz(5,5) bg("WizardTabBR") [StorageLocation.Navigator.Btns] @ = sz(a,p) bg("ColorWindow") Border = a(rt) sz(5,p) xy(,5,,5) bg("WizardTabLeft") Removable = [StorageLocation.Navigator.Button] a(lt) subst(Text() Icon(i("StorageBig,0"))) v(#backup_usb) Local = [StorageLocation.Navigator.Button] subst(Text() Icon(i("StorageBig,1"))) v(#backup_local) Network = [StorageLocation.Navigator.Button] subst(Text() Icon(i("StorageBig,2"))) v(#backup_network) Ftp = [StorageLocation.Navigator.Button] subst(Text() Icon(i("StorageBig,3"))) v(#backup_ftp) Topleft = a(rt) sz(5,5) bg(ctl.Removable.selected ? "WizardTabTop" : "WizardTabTL") BottomLeft = a(rb) sz(5,5) bg("WizardTabBL") [StorageLocation.Navigator.Button] @ = sz(193,48) a(la) mg(15) xy(,,,3) at(radiolike) ext(1) bg(ctl.selected ? "WizardTabSel" : "") Icon = a(lc) extprm(1) Text = a(ac) sz(a,a) xy(10) f("Header1KGreenLite") extprm(1) [StorageWizard.Location.Removable] @ = sz(p,p) onok(if(ctl.visible,(RootFolder = ctl.List.List.value + "Backup",Name = s_StorageName(#backup_usb,ctl.List.List.value),f_CheckStorageLocation(ser(GUID))),1)) List = [StorageWizard.Location.Removable.List] Helper = a(lt) [StorageWizard.Removable.Helper] visible(!ctl.List.List.totalCount(true)) [StorageWizard.Location.Removable.List] @ = a(la) sz(p,p) visible(ctl.List.totalCount(true)) Descr = f("KtsHeader1") a(la) ta(lc) CopyTool = $Check a(lb) v(l_copyTool) f("KtsDescriptionDGrey") Note = a(lp) xy(,6,,6) f("KtsDescriptionGrey") List = [AddStorageDialog.DiskList] a(lp) sz(p,p) xy(,,,31) alias(removable_disks) onok(if(ctl.parent.parent.visible && !ctl.value,balloon("BackupStorageRootNotSelected"),1)) [StorageWizard.Removable.Helper] @ = sz(p,p) Image = a(cc) xy(,60) sz(a,a) i("InsertFlashIcon") Header = a(ca) xy(,10) f("Header5Lite") Descr = a(ca) xy(,20) f("KtsHeader1Lite") [StorageWizard.Location.Local] @ = sz(p,p) onok(if(ctl.visible,(RootFolder = ctl.Path.Edit.value,Name = s_StorageName(#backup_local,ctl.List.value),f_CheckStorageLocation(ser(GUID))),1)) Descr = f("KtsHeader1") a(la) Path = [StorageLocation.LocalPath] a(lb) subst(Edit(onchange(ctl.List.value = toupper(getRootFromPath(ctl.value))))) onok(if(ctl.parent.visible && !ctl.Edit.value,balloon("ErrInvalidPath"),1)) Label = a(lp) sz(p,a) f("KtsHeader1") xy(,15) List = [AddStorageDialog.DiskList] a(lp) sz(p,p) xy(,10,,25) alias(local_disks) onchange(if(toupper(getRootFromPath(ctl.Path.Edit.value)) != ctl.value, ctl.Path.Edit.value = ctl.value + "Backup")) [StorageLocation.LocalPath] @ = sz(p,a) ext(1) Label = a(la) f("KtsDescriptionDGrey") extprm(1) Edit = t(edit) a(as) sz(p) xy(6,-2,80) onok(if(ctl.parent.parent.visible,if(driveType(ctl.value)==#backup_local,1,balloon("InvalidPathForStorage")),1)) extprm(1) Browse = t(button) xy(,-1) sz($Button_CX,$Button_CY) a(rs) onclick(browseobject(ctl.Edit.value, "BrowseForFolder", #SHELL_OBJTYPE_FOLDER|#SHELL_OBJTYPE_LOCAL)) text($Browse) extprm(1) [StorageLocation.NetworkPath] @ = [StorageLocation.LocalPath] subst(Edit(onok()) Browse(onclick(if(browseobject(ctl.Edit.value, "BrowseForFolder", #SHELL_OBJTYPE_FOLDER|#SHELL_OBJTYPE_REMOTE),ctl.Edit.value = checkNetPathName(ctl.Edit.value))))) [StorageWizard.EditTemplate] @ = sz(a,a) ext(1) Edit = t(edit) a(lc) xy(108) sz(190) extprm(1) Text = a(lc) ta(rc) sz(100) f("KtsDescriptionDGrey") extprm(1) [StorageWizard.Location.Network] @ = sz(p,p) onok(if(ctl.visible,(RootFolder = checkNetPathName(ctl.Path.Edit.value),Name = s_StorageName(#backup_network,RootFolder),f_CheckStorageLocation(ser(GUID))),1)) Descr = f("KtsHeader1") a(la) Path = [StorageLocation.NetworkPath] a(la) xy(,12) onok(if(ctl.parent.visible && !ctl.Edit.value,balloon("ErrInvalidPath"),1)) Login = [StorageWizard.EditTemplate] a(la) subst(Text() Edit(v(AuthUser))) xy(,10) Password = [StorageWizard.EditTemplate] a(la) subst(Text() Edit(at(password) v(AuthPassword))) xy(,10) [StorageWizard.Location.Ftp] @ = sz(p,p) onok(if(ctl.visible,(RootFolder = checkFtpServerName(ctl.Address.Edit.value) + checkFtpPathName(ctl.Path.Edit.value),Name = s_StorageName(#backup_ftp,checkFtpServerName(ctl.Address.Edit.value)),f_CheckStorageLocation(ser(GUID))),1)) Descr = f("KtsHeader1") a(la) Address = [StorageWizard.EditTemplate] a(la) subst(Text()) xy(,8) onok(if(ctl.parent.visible && !ctl.Edit.value,balloon("ErrInvalidPath"),1)) Port = [StorageWizard.EditTemplate] a(la) subst(Text() Edit(sz(50) at(number) nl(0,65535) v(FtpPort))) xy(,8) Path = [StorageWizard.EditTemplate] a(la) subst(Text()) xy(,8) Login = [StorageWizard.EditTemplate] a(la) subst(Text() Edit(v(AuthUser))) xy(,16) Password = [StorageWizard.EditTemplate] a(la) subst(Text() Edit(at(password) v(AuthPassword))) xy(,8) Mode = [StorageWizard.EditTemplate] a(la) subst(Text() Edit([StorageWizard.FtpMode])) xy(,16) [StorageWizard.FtpMode] @ = t(combo) v(FtpPassiveMode) Passive = v(1) Active = v(0) [StorageWizard.Protection] @ = $DlgWizardInnerAttr sz(p,p) Descr = f("Header3KGreenLite") a(la) Check = $Check f("KtsHeader1") a(la) xy(,25) v(Encrypted) Note = a(la) f("KtsDescriptionDGrey") xy(20,8) Password = [StorageProtection.Password] a(la) xy(,25) AdvDisWarn = a(la) i("warning") ia(lt) xy(1,8,,20) mg(,,80) f("KtsDescriptionDGrey") [StorageProtection.Password.Labels] @ = sz(a,a) PasswordText = a(la) xy(,5) f("KtsDescriptionDGrey") PasswordCheckText = a(la) xy(,16) f("KtsDescriptionDGrey") [StorageProtection.Password] @ = sz(a,a) a(la) mg(20) Labels = [StorageProtection.Password.Labels] a(lt) PasswordEdit = t(edit) a(at) sz(200) at(password) xy(10) enable(ctl.Check.value) onok(if(Encrypted && !ctl.value,balloon("ErrNoPasswordEntered"),1)) PasswordCheckEdit = t(edit) a(sa) sz(200) at(password) xy(,10) enable(ctl.Check.value) onok(if(Encrypted && ctl.PasswordEdit.value != ctl.value,(balloon("ErrDifferPswrds"),false),true)) Note = f("KtsDescriptionGrey") a(sa) xy(,3) [StorageWizard.ConnectionSettings] @ = sz(p,a) Dummy = sz(0,0) onok((RootFolder = checkFtpServerName(ctl.Address.Edit.value) + checkFtpPathName(ctl.Path.Edit.value),1)) Descr = a(la) f("KtsHeader1") a(la) xy(,,,10) Path = [StorageWizard.EditTemplate] a(la) subst(Text() Edit(sz(250))) xy(80) oninit(ctl.Edit.value=checkFtpPathName(RootFolder)) Address = [StorageWizard.EditTemplate] a(la) subst(Text() Edit(sz(150))) xy(80,3) oninit(ctl.Edit.value=checkFtpServerName(RootFolder)) onok(if(!ctl.Edit.value,balloon("ErrInvalidPath"),1)) Port = [StorageWizard.EditTemplate] a(as) subst(Text(sz(45)) Edit(sz(50) xy(50) at(number) nl(0,65535) v(FtpPort))) Login = [StorageWizard.EditTemplate] a(la) subst(Text() Edit(sz(250) v(AuthUser))) xy(80,3) Password = [StorageWizard.EditTemplate] a(la) subst(Text() Edit(sz(250) at(password) v(AuthPassword))) xy(80,3) Mode = [StorageWizard.EditTemplate] a(la) subst(Text() Edit([StorageWizard.FtpMode] sz(250))) xy(80,3) Sep = a(la) sz(p,1) b(KtsBorder) xy(,3,,3) [StorageWizard.History] @ = $DlgWizardInnerAttr sz(p,p) Descr = f("Header3KGreenLite") a(la) xy(,,,25) Connection = a(la) [StorageWizard.ConnectionSettings] xy(,,,5) use(p_storage && StorageType==#backup_ftp) FileVersionsCheck = $Check f("KtsHeader1") a(la) v(1) v(l_useversions) oninit(l_useversions = (HistoryDepth != 0xffffffff)) onchange(HistoryDepth = l_useversions ? ctl.Versions.value : -1)) Note1 = a(la) xy(18,8) f("KtsDescriptionDGrey") VersionsText = a(la) xy(18,18) f("KtsDescriptionDGrey") Versions = a(as) t(edit) at(number) sz(40,a) xy(18,-3) enable(ctl.FileVersionsCheck.value) nl(1,10) oninit(ctl.value = l_useversions ? HistoryDepth : 3) onchange(HistoryDepth = ctl.value) DeletedFilesCheck = $Check f("KtsHeader1") a(la) v(1) xy(,30) v(l_usedeleted) oninit(l_usedeleted = (HistoryDays != 0xffffffff)) onchange(HistoryDays = l_usedeleted ? l_units*l_count: -1) Note2 = a(la) xy(18,8) f("KtsDescriptionDGrey") DeletedFilesText = a(la) xy(18,18) f("KtsDescriptionDGrey") DeletedFiles = [StorageHistory.DeletedFiles] xy(18,-3) a(as) [StorageHistory.DeletedFiles] Count = t(edit) at(number) a(la) sz(40,a) enable(l_usedeleted) nl(1,999) v(l_count) oninit(l_units = l_usedeleted && (0==HistoryDays%7) ? 7 : 1; l_count = l_usedeleted ? HistoryDays/l_units : 60) onchange(HistoryDays = l_count*l_units) Units = [StorageHistory.UnitType] a(as) sz(a,a) xy(10) enable(l_usedeleted) onchange(HistoryDays = l_count*l_units) [StorageHistory.UnitType] @ = t(combo) v(l_units) onchange(HistoryDays = l_count*l_units) Days = v(1) Weeks = v(7) [StorageWizard.Summary] @ = $DlgWizardInnerAttr sz(p,p) Descr = f("Header3KGreenLite") a(la) xy(,,,25) NameText = f("KtsHeader1") a(la) xy StorageName = t(edit) a(as) sz(200,a) xy(10,-3) nl(40) v(Name) onshow(ctl.updatedata()) onok(if(!ctl.value,balloon("BackupStorageEmptyName"),true)) Sep1 = a(la) sz(p,1) b(KtsBorder) xy(,20,,10) DiskLabel = f("KtsDescriptionGrey") a(la) xy(,12) visible(StorageType!=#backup_network) DiskValue = a(as) xy(8) f("KtsDescriptionDGrey") onshow(ctl.text = s_storageWizard_getRoot(StorageType)) visible(StorageType!=#backup_network) PathLabel = f("KtsDescriptionGrey") a(la) xy(,12) PathValue = a(as) xy(8) f("KtsDescriptionDGrey") onshow(ctl.text = s_storageWizard_getRoot(StorageType) + s_storageWizard_getPath(StorageType)) EncryptionLabel = f("KtsDescriptionGrey") a(la) xy(,12) EncryptionValue = a(as) xy(8) f("KtsDescriptionDGrey") onshow(ctl.updatedata()) Sep1 = a(la) sz(p,1) b(KtsBorder) xy(,25,,10) DeletedLabel = f("KtsDescriptionGrey") a(la) xy(,12) DeletedValue = a(as) xy(8) f("KtsDescriptionDGrey") text(if(l_usedeleted,l_count + " " + if(l_units==1,s_days(f_numdeclension(l_count)),s_weeks(f_numdeclension(l_count))),$UnlimitedCount)) onshow(ctl.updatedata()) VersionsLabel = f("KtsDescriptionGrey") a(la) xy(,12) VersionsValue = a(as) xy(8) f("KtsDescriptionDGrey") text(if(l_useversions,HistoryDepth,$UnlimitedTime)) onshow(ctl.updatedata()) [StoragePasswordRequestDialog] @ = $DlgAttrBase sz(a,a) bg("White") mg(0) at(a_ok,a_cancel,customfooter) ns(Storage) text(Name) onok(Ok = true) h(18727) Header = a(la) xy(10,10) f("Header4Lite") Descr = a(la) xy(10,5) f("KtsDescriptionDGrey") Password = [StorageWizard.EditTemplate] a(la) xy(10,15,10) subst(Text() Edit(at(password) v(Password))) Footer = a(la) xy(,15) [DialogPanel] [StorageExistsDialog] @ = $DlgAttrBase sz(410,180) mg(0) at(a_cancel,customfooter) bg("White") h(33515) Icon = a(lt) i("w32") xy(20,20) Header = a(lt) xy(62,16) f("Header4Lite") DiskLabel = f("NavSmall") a(la) xy(62,24) visible(StorageType!=#backup_network) DiskValue = a(as) xy(8) f("KtsDescriptionDGrey") text(s_storageWizard_getRoot(StorageType)) visible(StorageType!=#backup_network) PathLabel = f("NavSmall") a(la) xy(62,8) PathValue = a(as) xy(8) f("KtsDescriptionDGrey") text(s_storageWizard_getRoot(StorageType) + s_storageWizard_getPath(StorageType)) Footer = a(lb) [DialogPanel] subst(BtnsGroup([StorageExistsDialog_BtnsGroup])) [StorageExistsDialog_BtnsGroup] @ = sz(a,$Button_CY) rs(0,0) a(rb) xy(7,7) extprm(1) Attach = [BtnGlass] a(lt) xy($Button_Shift) sz(a,$Button_CY) onclick(backupAddStorage(ser(GUID));close(1)) Cancel = [BtnGlass] a(at) xy($Button_Shift) onclick(close()) extprm(1)