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

File Contents

# Content
1 object IBUpdateSQLEditorForm: TIBUpdateSQLEditorForm
2 Left = 448
3 Height = 410
4 Top = 419
5 Width = 662
6 ActiveControl = PageControl
7 BorderIcons = [biSystemMenu]
8 BorderStyle = bsDialog
9 Caption = 'UpdateSQL 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 = 7
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 = 9
41 Height = 14
42 Top = 16
43 Width = 73
44 Caption = 'Table &Name:'
45 FocusControl = TableNamesCombo
46 ParentColor = False
47 end
48 object Label3: TLabel
49 Left = 300
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 = 443
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 = 300
79 Height = 239
80 Top = 36
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 = 443
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 GenerateBtn: TButton
105 Left = 9
106 Height = 25
107 Top = 83
108 Width = 168
109 Caption = '&Generate SQL'
110 OnClick = GenerateBtnClick
111 TabOrder = 1
112 end
113 object QuoteFields: TCheckBox
114 Left = 8
115 Height = 22
116 Top = 168
117 Width = 125
118 Caption = '&Quote Identifiers'
119 TabOrder = 2
120 end
121 object IncludePrimaryKeys: TCheckBox
122 Left = 8
123 Height = 22
124 Top = 200
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 = 136
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 = 276
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 = 4
182 ClientHeight = 38
183 ClientWidth = 274
184 Columns = 4
185 ItemIndex = 0
186 Items.Strings = (
187 '&Modify'
188 '&Insert'
189 '&Delete'
190 '&Refresh'
191 )
192 OnClick = StatementTypeClick
193 TabOrder = 1
194 end
195 object TestBtn: TButton
196 Left = 539
197 Height = 25
198 Top = 31
199 Width = 75
200 Anchors = [akTop, akRight]
201 Caption = 'Test'
202 OnClick = TestBtnClick
203 TabOrder = 2
204 end
205 end
206 end
207 object OkButton: TButton
208 Left = 480
209 Height = 25
210 Top = 376
211 Width = 75
212 Anchors = [akRight, akBottom]
213 Caption = '&OK'
214 Default = True
215 ModalResult = 1
216 TabOrder = 1
217 end
218 object CancelButton: TButton
219 Left = 573
220 Height = 25
221 Top = 376
222 Width = 75
223 Anchors = [akRight, akBottom]
224 Cancel = True
225 Caption = 'Cancel'
226 ModalResult = 2
227 TabOrder = 2
228 end
229 object IBTransaction1: TIBTransaction
230 Active = False
231 left = 51
232 top = 373
233 end
234 end