ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/DBAdmin/dlg/AddShadowSetDlgUnit.lfm
Revision: 158
Committed: Thu Mar 1 11:23:33 2018 UTC (6 years ago) by tony
File size: 4851 byte(s)
Log Message:
Repository resync

File Contents

# Content
1 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