DBAdmin/dlg/AddShadowSetDlgUnit.lfm

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
Revision:	158
Committed:	Thu Mar 1 11:23:33 2018 UTC (6 years, 1 month ago) by tony
File size:	4851 byte(s)
Log Message:	Repository resync
#	User	Rev	Content
1	tony	158	object AddShadowSetDlg: TAddShadowSetDlg
2			Left = 532
3			Height = 308
4			Top = 290
5			Width = 555
6			Caption = 'Add Shadow Set'
7			ClientHeight = 308
8			ClientWidth = 555
9			OnClose = FormClose
10			OnShow = FormShow
11			Position = poDefault
12			LCLVersion = '1.8.1.0'
13			object Bevel1: TBevel
14			Left = 9
15			Height = 293
16			Top = 5
17			Width = 455
18			end
19			object Label2: TLabel
20			Left = 24
21			Height = 14
22			Top = 24
23			Width = 72
24			Caption = '&Shadow Set'
25			FocusControl = ShadowSet
26			ParentColor = False
27			end
28			object ShadowSet: TEdit
29			Left = 24
30			Height = 24
31			Top = 40
32			Width = 89
33			NumbersOnly = True
34			OnEditingDone = ShadowSetEditingDone
35			TabOrder = 0
36			Text = 'ShadowSet'
37			end
38			object Label1: TLabel
39			Left = 24
40			Height = 14
41			Top = 75
42			Width = 44
43			Caption = '&File List'
44			ParentColor = False
45			end
46			object Button1: TButton
47			Left = 352
48			Height = 25
49			Top = 92
50			Width = 73
51			Action = Add
52			TabOrder = 1
53			end
54			object RemoveBtn: TButton
55			Left = 352
56			Height = 25
57			Top = 124
58			Width = 75
59			Action = Remove
60			TabOrder = 3
61			end
62			object ShadowMode: TRadioGroup
63			Left = 352
64			Height = 73
65			Top = 215
66			Width = 105
67			AutoFill = True
68			Caption = 'Shadow Mode'
69			ChildSizing.LeftRightSpacing = 6
70			ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
71			ChildSizing.EnlargeVertical = crsHomogenousChildResize
72			ChildSizing.ShrinkHorizontal = crsScaleChilds
73			ChildSizing.ShrinkVertical = crsScaleChilds
74			ChildSizing.Layout = cclLeftToRightThenTopToBottom
75			ChildSizing.ControlsPerLine = 1
76			ClientHeight = 58
77			ClientWidth = 103
78			ItemIndex = 0
79			Items.Strings = (
80			'Automatic'
81			'Manual'
82			'Conditional'
83			)
84			TabOrder = 5
85			end
86			object IBDynamicGrid1: TIBDynamicGrid
87			Left = 26
88			Height = 196
89			Top = 92
90			Width = 318
91			Color = clWindow
92			Columns = <
93			item
94			Title.Alignment = taCenter
95			Title.Caption = 'File Name'
96			Width = 120
97			FieldName = 'ShadowFileName'
98			AutoSizeColumn = True
99			InitialSortColumn = False
100			DBLookupProperties.ItemHeight = 0
101			DBLookupProperties.ItemWidth = 0
102			DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
103			end
104			item
105			Title.Alignment = taCenter
106			Title.Caption = 'Length'
107			Width = 60
108			FieldName = 'ShadowFileLength'
109			AutoSizeColumn = False
110			InitialSortColumn = False
111			DBLookupProperties.ItemHeight = 0
112			DBLookupProperties.ItemWidth = 0
113			DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
114			end>
115			DataSource = ShadowFileSource
116			Scrollbars = ssAutoVertical
117			TabOrder = 2
118			ExpandEditorPanelBelowRow = False
119			Descending = False
120			EditorBorderStyle = bsSingle
121			DefaultPositionAtEnd = False
122			end
123			object Creating: TLabel
124			Left = 260
125			Height = 14
126			Top = 24
127			Width = 144
128			Caption = 'Creating Shadow Set'
129			Font.Style = [fsBold]
130			ParentColor = False
131			ParentFont = False
132			end
133			object ProgressBar: TProgressBar
134			Left = 248
135			Height = 20
136			Top = 44
137			Width = 168
138			Style = pbstMarquee
139			TabOrder = 4
140			end
141			object OKBtn: TButton
142			Left = 475
143			Height = 30
144			Top = 8
145			Width = 75
146			Anchors = [akTop, akRight]
147			Caption = 'OK'
148			Default = True
149			ModalResult = 6
150			TabOrder = 6
151			end
152			object CancelBtn: TButton
153			Left = 475
154			Height = 30
155			Top = 48
156			Width = 75
157			Anchors = [akTop, akRight]
158			Cancel = True
159			Caption = 'Cancel'
160			ModalResult = 2
161			TabOrder = 7
162			end
163			object ShadowFileList: TMemDataset
164			Active = True
165			FieldDefs = <
166			item
167			Name = 'ShadowFileName'
168			DataType = ftString
169			Size = 256
170			end
171			item
172			Name = 'ShadowFileLength'
173			DataType = ftInteger
174			end>
175			BeforeClose = ShadowFileListBeforeClose
176			left = 216
177			top = 184
178			end
179			object ShadowFileSource: TDataSource
180			DataSet = ShadowFileList
181			left = 96
182			top = 184
183			end
184			object ActionList1: TActionList
185			left = 496
186			top = 152
187			object Remove: TAction
188			Caption = '&Remove'
189			OnExecute = RemoveExecute
190			OnUpdate = RemoveUpdate
191			end
192			object Add: TAction
193			Caption = '&Add File'
194			OnExecute = AddExecute
195			end
196			end
197			object ExecSQL: TIBSQL
198			Database = DatabaseData.IBDatabase1
199			GenerateParamNames = False
200			UniqueParamNames = False
201			ParamCheck = True
202			Transaction = DatabaseData.CurrentTransaction
203			left = 494
204			top = 226
205			end
206			object IBDatabaseInfo: TIBDatabaseInfo
207			Database = DatabaseData.IBDatabase1
208			left = 496
209			top = 98
210			end
211			object WaitTimer: TTimer
212			Enabled = False
213			OnTimer = WaitTimerTimer
214			left = 380
215			top = 160
216			end
217			end