object SaveDatabaseDlg: TSaveDatabaseDlg Left = 699 Height = 117 Top = 448 Width = 244 BorderStyle = bsNone Caption = 'SaveDatabase' ClientHeight = 117 ClientWidth = 244 Color = clBtnFace Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' OnShow = FormShow Position = poMainFormCenter LCLVersion = '1.8.3.0' object Panel1: TPanel Left = 0 Height = 117 Top = 0 Width = 244 Align = alClient BevelInner = bvLowered ClientHeight = 117 ClientWidth = 244 TabOrder = 0 object Status: TLabel Left = 30 Height = 13 Top = 63 Width = 193 AutoSize = False Caption = 'Status' ParentColor = False end object Label1: TLabel Left = 65 Height = 13 Top = 38 Width = 103 Caption = 'Saving Database' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentColor = False ParentFont = False end end object SaveDialog1: TSaveDialog DefaultExt = '.gbk' Filter = 'Database Backup Files (*.gbk)|*.gbk|All Files (*.*)|*.*' Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing] left = 168 top = 80 end object Timer1: TTimer Interval = 0 OnTimer = Timer1Timer left = 208 top = 80 end object IBBackupService1: TIBXServerSideBackupService TraceFlags = [] OnGetNextLine = IBBackupService1GetNextLine BlockingFactor = 0 Options = [] StatisticsRequested = [] Verbose = True left = 87 top = 68 end end