object AddShadowSetDlg: TAddShadowSetDlg Left = 532 Height = 308 Top = 290 Width = 555 Caption = 'Add Shadow Set' ClientHeight = 308 ClientWidth = 555 OnClose = FormClose OnShow = FormShow Position = poDefault LCLVersion = '1.8.1.0' object Bevel1: TBevel Left = 9 Height = 293 Top = 5 Width = 455 end object Label2: TLabel Left = 24 Height = 14 Top = 24 Width = 72 Caption = '&Shadow Set' FocusControl = ShadowSet ParentColor = False end object ShadowSet: TEdit Left = 24 Height = 24 Top = 40 Width = 89 NumbersOnly = True OnEditingDone = ShadowSetEditingDone TabOrder = 0 Text = 'ShadowSet' end object Label1: TLabel Left = 24 Height = 14 Top = 75 Width = 44 Caption = '&File List' ParentColor = False end object Button1: TButton Left = 352 Height = 25 Top = 92 Width = 73 Action = Add TabOrder = 1 end object RemoveBtn: TButton Left = 352 Height = 25 Top = 124 Width = 75 Action = Remove TabOrder = 3 end object ShadowMode: TRadioGroup Left = 352 Height = 73 Top = 215 Width = 105 AutoFill = True Caption = 'Shadow Mode' ChildSizing.LeftRightSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 ClientHeight = 58 ClientWidth = 103 ItemIndex = 0 Items.Strings = ( 'Automatic' 'Manual' 'Conditional' ) TabOrder = 5 end object IBDynamicGrid1: TIBDynamicGrid Left = 26 Height = 196 Top = 92 Width = 318 Color = clWindow Columns = < item Title.Alignment = taCenter Title.Caption = 'File Name' Width = 120 FieldName = 'ShadowFileName' AutoSizeColumn = True InitialSortColumn = False DBLookupProperties.ItemHeight = 0 DBLookupProperties.ItemWidth = 0 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending] end item Title.Alignment = taCenter Title.Caption = 'Length' Width = 60 FieldName = 'ShadowFileLength' AutoSizeColumn = False InitialSortColumn = False DBLookupProperties.ItemHeight = 0 DBLookupProperties.ItemWidth = 0 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending] end> DataSource = ShadowFileSource Scrollbars = ssAutoVertical TabOrder = 2 ExpandEditorPanelBelowRow = False Descending = False EditorBorderStyle = bsSingle DefaultPositionAtEnd = False end object Creating: TLabel Left = 260 Height = 14 Top = 24 Width = 144 Caption = 'Creating Shadow Set' Font.Style = [fsBold] ParentColor = False ParentFont = False end object ProgressBar: TProgressBar Left = 248 Height = 20 Top = 44 Width = 168 Style = pbstMarquee TabOrder = 4 end object OKBtn: TButton Left = 475 Height = 30 Top = 8 Width = 75 Anchors = [akTop, akRight] Caption = 'OK' Default = True ModalResult = 6 TabOrder = 6 end object CancelBtn: TButton Left = 475 Height = 30 Top = 48 Width = 75 Anchors = [akTop, akRight] Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 7 end object ShadowFileList: TMemDataset Active = True FieldDefs = < item Name = 'ShadowFileName' DataType = ftString Size = 256 end item Name = 'ShadowFileLength' DataType = ftInteger end> BeforeClose = ShadowFileListBeforeClose left = 216 top = 184 end object ShadowFileSource: TDataSource DataSet = ShadowFileList left = 96 top = 184 end object ActionList1: TActionList left = 496 top = 152 object Remove: TAction Caption = '&Remove' OnExecute = RemoveExecute OnUpdate = RemoveUpdate end object Add: TAction Caption = '&Add File' OnExecute = AddExecute end end object ExecSQL: TIBSQL Database = DatabaseData.IBDatabase1 GenerateParamNames = False UniqueParamNames = False ParamCheck = True Transaction = DatabaseData.CurrentTransaction left = 494 top = 226 end object IBDatabaseInfo: TIBDatabaseInfo Database = DatabaseData.IBDatabase1 left = 496 top = 98 end object WaitTimer: TTimer Enabled = False OnTimer = WaitTimerTimer left = 380 top = 160 end end