ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/ibdataseteditor.lfm
Revision: 67
Committed: Tue Oct 3 14:08:11 2017 UTC (7 years, 2 months ago) by tony
File size: 5965 byte(s)
Log Message:
Property Editor positioning tidy up

File Contents

# Content
1 object IBDataSetEditorForm: TIBDataSetEditorForm
2 Left = 475
3 Height = 410
4 Top = 327
5 Width = 662
6 ActiveControl = PageControl
7 BorderIcons = [biSystemMenu]
8 BorderStyle = bsDialog
9 Caption = 'DataSet Editor'
10 ClientHeight = 410
11 ClientWidth = 662
12 OnClose = FormClose
13 OnShow = FormShow
14 Position = poScreenCenter
15 LCLVersion = '1.8.0.4'
16 object PageControl: TPageControl
17 Left = 8
18 Height = 352
19 Top = 8
20 Width = 641
21 ActivePage = FieldsPage
22 Anchors = [akTop, akLeft, akRight, akBottom]
23 TabIndex = 0
24 TabOrder = 0
25 object FieldsPage: TTabSheet
26 Caption = 'Options'
27 ClientHeight = 320
28 ClientWidth = 635
29 object GroupBox1: TGroupBox
30 Left = 8
31 Height = 315
32 Top = 4
33 Width = 617
34 Anchors = [akTop, akLeft, akRight, akBottom]
35 Caption = ' SQL Generation '
36 ClientHeight = 300
37 ClientWidth = 615
38 TabOrder = 0
39 object Label1: TLabel
40 Left = 12
41 Height = 14
42 Top = 18
43 Width = 73
44 Caption = 'Table &Name:'
45 FocusControl = TableNamesCombo
46 ParentColor = False
47 end
48 object Label3: TLabel
49 Left = 315
50 Height = 14
51 Top = 18
52 Width = 62
53 Caption = '&Key Fields:'
54 FocusControl = PrimaryKeyList
55 ParentColor = False
56 end
57 object Label4: TLabel
58 Left = 458
59 Height = 14
60 Top = 18
61 Width = 85
62 Caption = 'Update &Fields:'
63 FocusControl = FieldList
64 ParentColor = False
65 end
66 object TableNamesCombo: TComboBox
67 Left = 9
68 Height = 27
69 Top = 35
70 Width = 171
71 AutoComplete = True
72 AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
73 ItemHeight = 0
74 OnCloseUp = TableNamesComboCloseUp
75 TabOrder = 0
76 end
77 object PrimaryKeyList: TListBox
78 Left = 315
79 Height = 239
80 Top = 35
81 Width = 136
82 Anchors = [akTop, akLeft, akBottom]
83 ItemHeight = 0
84 MultiSelect = True
85 ScrollWidth = 134
86 TabOrder = 3
87 TopIndex = -1
88 end
89 object FieldList: TListBox
90 Left = 458
91 Height = 239
92 Hint = 'Select Fields to include in Update Statements, or leave unselected to select all'
93 Top = 35
94 Width = 136
95 Anchors = [akTop, akLeft, akBottom]
96 ItemHeight = 0
97 MultiSelect = True
98 ParentShowHint = False
99 ScrollWidth = 134
100 ShowHint = True
101 TabOrder = 4
102 TopIndex = -1
103 end
104 object GenerateButton: TButton
105 Left = 9
106 Height = 25
107 Top = 83
108 Width = 168
109 Caption = '&Generate SQL'
110 OnClick = GenerateButtonClick
111 TabOrder = 1
112 end
113 object QuoteFields: TCheckBox
114 Left = 9
115 Height = 22
116 Top = 160
117 Width = 125
118 Caption = '&Quote Identifiers'
119 TabOrder = 2
120 end
121 object IncludePrimaryKeys: TCheckBox
122 Left = 9
123 Height = 22
124 Top = 192
125 Width = 221
126 Caption = 'Include Primary keys in Field List'
127 Checked = True
128 OnClick = TableNamesComboCloseUp
129 State = cbChecked
130 TabOrder = 5
131 end
132 object GenerateParams: TCheckBox
133 Left = 9
134 Height = 22
135 Top = 128
136 Width = 171
137 Caption = 'Allow DSQL Placeholders'
138 TabOrder = 6
139 end
140 end
141 end
142 object SQLPage: TTabSheet
143 Caption = 'SQL'
144 ClientHeight = 320
145 ClientWidth = 635
146 OnShow = SQLPageShow
147 object Label2: TLabel
148 Left = 10
149 Height = 15
150 Top = 81
151 Width = 56
152 Caption = 'S&QL Text:'
153 FocusControl = SQLMemo
154 ParentColor = False
155 end
156 object SQLMemo: TMemo
157 Left = 9
158 Height = 203
159 Top = 105
160 Width = 613
161 Anchors = [akTop, akLeft, akRight, akBottom]
162 OnChange = SQLMemoChange
163 ScrollBars = ssAutoBoth
164 TabOrder = 0
165 end
166 object StatementType: TRadioGroup
167 Left = 10
168 Height = 53
169 Top = 9
170 Width = 339
171 AutoFill = True
172 AutoSize = True
173 Caption = 'Statement Type'
174 ChildSizing.LeftRightSpacing = 6
175 ChildSizing.TopBottomSpacing = 6
176 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
177 ChildSizing.EnlargeVertical = crsHomogenousChildResize
178 ChildSizing.ShrinkHorizontal = crsScaleChilds
179 ChildSizing.ShrinkVertical = crsScaleChilds
180 ChildSizing.Layout = cclLeftToRightThenTopToBottom
181 ChildSizing.ControlsPerLine = 5
182 ClientHeight = 38
183 ClientWidth = 337
184 Columns = 5
185 ItemIndex = 0
186 Items.Strings = (
187 '&Select'
188 '&Modify'
189 '&Insert'
190 '&Delete'
191 '&Refresh'
192 )
193 OnClick = StatementTypeClick
194 TabOrder = 1
195 end
196 object TestBtn: TButton
197 Left = 539
198 Height = 25
199 Top = 31
200 Width = 75
201 Anchors = [akTop, akRight]
202 Caption = 'Test'
203 OnClick = TestBtnClick
204 TabOrder = 2
205 end
206 end
207 end
208 object OkButton: TButton
209 Left = 480
210 Height = 25
211 Top = 376
212 Width = 75
213 Anchors = [akRight, akBottom]
214 Caption = '&OK'
215 Default = True
216 ModalResult = 1
217 TabOrder = 1
218 end
219 object CancelButton: TButton
220 Left = 573
221 Height = 25
222 Top = 376
223 Width = 75
224 Anchors = [akRight, akBottom]
225 Cancel = True
226 Caption = 'Cancel'
227 ModalResult = 2
228 TabOrder = 2
229 end
230 object IBTransaction1: TIBTransaction
231 Active = False
232 left = 32
233 top = 368
234 end
235 end