object UpgradeDatabaseDlg: TUpgradeDatabaseDlg Left = 528 Height = 132 Top = 302 Width = 324 ActiveControl = Panel1 BorderStyle = bsNone Caption = 'UpdateDatabaseDlg' ClientHeight = 132 ClientWidth = 324 OnShow = FormShow Position = poMainFormCenter LCLVersion = '1.8.3.0' object Panel1: TPanel Left = 0 Height = 132 Top = 0 Width = 324 Align = alClient BorderStyle = bsSingle ClientHeight = 130 ClientWidth = 322 TabOrder = 1 object Label1: TLabel Left = 58 Height = 14 Top = 16 Width = 190 Caption = 'Updating Database Schema' Font.Style = [fsBold] ParentColor = False ParentFont = False end object Status: TLabel Left = 23 Height = 34 Top = 48 Width = 279 Alignment = taCenter AutoSize = False Caption = 'Status' ParentColor = False WordWrap = True end end object ProgressBar1: TProgressBar Left = 23 Height = 20 Top = 96 Width = 279 Smooth = True TabOrder = 0 end object Timer1: TTimer Enabled = False Interval = 200 OnTimer = HandleCompletionEvent left = 270 top = 16 end object IBXScript: TIBXScript IgnoreGrants = True Transaction = UpdateTransaction ShowAffectedRows = False ShowPerformanceStats = False OnOutputLog = IBXScriptLogProc OnErrorLog = IBXScriptLogProc OnProgressEvent = IBXScriptProgressEvent left = 272 top = 48 end object UpdateTransaction: TIBTransaction Active = False Params.Strings = ( 'concurrency' 'wait' ) left = 232 top = 48 end end