trunk/design/ibselectsqleditor.lfm

object IBSelectSQLEditorForm: TIBSelectSQLEditorForm
  Left = 527
  Height = 437
  Top = 460
  Width = 747
  ActiveControl = PageControl
  Caption = 'Select SQL Editor'
  ClientHeight = 437
  ClientWidth = 747
  OnShow = FormShow
  Position = poScreenCenter
  LCLVersion = '1.8.0.4'
  object Label3: TLabel
    Left = 279
    Height = 14
    Top = 16
    Width = 24
    Caption = 'SQL'
    ParentColor = False
  end
  object SQLText: TMemo
    Left = 279
    Height = 327
    Top = 36
    Width = 437
    Anchors = [akTop, akLeft, akRight, akBottom]
    ScrollBars = ssAutoBoth
    TabOrder = 0
  end
  object Button1: TButton
    Left = 550
    Height = 30
    Top = 379
    Width = 72
    Anchors = [akRight, akBottom]
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 1
  end
  object Button2: TButton
    Left = 638
    Height = 30
    Top = 379
    Width = 72
    Anchors = [akRight, akBottom]
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 2
  end
  object GenerateBtn: TButton
    Left = 278
    Height = 30
    Top = 379
    Width = 101
    Anchors = [akRight, akBottom]
    Caption = 'Generate SQL'
    OnClick = GenerateBtnClick
    TabOrder = 3
  end
  object TestBtn: TButton
    Left = 414
    Height = 30
    Top = 379
    Width = 66
    Anchors = [akRight, akBottom]
    Caption = 'Test'
    OnClick = TestBtnClick
    TabOrder = 4
  end
  object QuoteFields: TCheckBox
    Left = 24
    Height = 22
    Top = 400
    Width = 125
    Caption = '&Quote Identifiers'
    TabOrder = 5
  end
  object PageControl: TPageControl
    Left = 24
    Height = 335
    Top = 28
    Width = 232
    ActivePage = SelectPage
    TabIndex = 0
    TabOrder = 6
    object SelectPage: TTabSheet
      Caption = 'Tables'
      ClientHeight = 303
      ClientWidth = 226
      OnShow = SelectPageShow
      object Label1: TLabel
        Left = 7
        Height = 14
        Top = 4
        Width = 69
        Caption = 'Table Name'
        ParentColor = False
      end
      object Label2: TLabel
        Left = 7
        Height = 14
        Top = 56
        Width = 33
        Caption = 'Fields'
        ParentColor = False
      end
      object Label4: TLabel
        Left = 7
        Height = 14
        Top = 208
        Width = 77
        Caption = 'Primary Keys'
        ParentColor = False
      end
      object TableNamesCombo: TComboBox
        Left = 6
        Height = 27
        Top = 20
        Width = 201
        AutoComplete = True
        AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
        ItemHeight = 0
        OnCloseUp = TableNamesComboCloseUp
        TabOrder = 0
      end
      object FieldList: TListBox
        Left = 7
        Height = 123
        Hint = 'Select Fields to include in Select Statements, or leave unselected to select all'
        Top = 77
        Width = 204
        ItemHeight = 0
        MultiSelect = True
        OnDblClick = FieldListDblClick
        ParentShowHint = False
        ScrollWidth = 202
        ShowHint = True
        TabOrder = 1
        TopIndex = -1
      end
      object PrimaryKeyList: TListBox
        Left = 7
        Height = 64
        Top = 224
        Width = 200
        ItemHeight = 0
        OnDblClick = PrimaryKeyListDblClick
        ScrollWidth = 198
        TabOrder = 2
        TopIndex = -1
      end
    end
    object ExecutePage: TTabSheet
      Caption = 'Procedures'
      ClientHeight = 303
      ClientWidth = 226
      OnShow = ExecutePageShow
      object Label16: TLabel
        Left = 7
        Height = 15
        Top = 3
        Width = 100
        Caption = 'Procedure Name'
        ParentColor = False
      end
      object Label17: TLabel
        Left = 7
        Height = 15
        Top = 60
        Width = 104
        Caption = 'Input Parameters'
        ParentColor = False
      end
      object Label18: TLabel
        Left = 8
        Height = 15
        Top = 172
        Width = 114
        Caption = 'Output Parameters'
        ParentColor = False
      end
      object ProcedureNames: TComboBox
        Left = 7
        Height = 27
        Top = 20
        Width = 201
        ItemHeight = 0
        OnCloseUp = ProcedureNamesCloseUp
        ParentColor = True
        TabOrder = 0
      end
      object ProcInputList: TListBox
        Left = 7
        Height = 80
        Top = 81
        Width = 198
        IntegralHeight = True
        ItemHeight = 0
        ScrollWidth = 196
        TabOrder = 1
        TopIndex = -1
      end
      object ProcOutputList: TListBox
        Left = 7
        Height = 80
        Top = 192
        Width = 198
        IntegralHeight = True
        ItemHeight = 0
        ScrollWidth = 196
        TabOrder = 2
        TopIndex = -1
      end
      object SelectProcedure: TLabel
        Left = 7
        Height = 14
        Top = 285
        Width = 126
        Anchors = [akLeft, akBottom]
        Caption = 'Is ''Select Procedure'''
        Font.Height = -11
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
        Visible = False
      end
    end
  end
  object GenerateParams: TCheckBox
    Left = 24
    Height = 22
    Top = 376
    Width = 171
    Caption = 'Allow DSQL Placeholders'
    TabOrder = 7
  end
  object IBTransaction1: TIBTransaction
    Active = False
    left = 212
    top = 390
  end
end
Revision:	67
Committed:	Tue Oct 3 14:08:11 2017 UTC (6 years, 6 months ago) by tony
File size:	5388 byte(s)
Log Message:	Property Editor positioning tidy up
#	User	Rev	Content
1	tony	5	object IBSelectSQLEditorForm: TIBSelectSQLEditorForm
2	tony	67	Left = 527
3	tony	7	Height = 437
4	tony	21	Top = 460
5	tony	7	Width = 747
6			ActiveControl = PageControl
7	tony	5	Caption = 'Select SQL Editor'
8	tony	7	ClientHeight = 437
9			ClientWidth = 747
10	tony	5	OnShow = FormShow
11	tony	67	Position = poScreenCenter
12			LCLVersion = '1.8.0.4'
13	tony	5	object Label3: TLabel
14			Left = 279
15	tony	67	Height = 14
16	tony	5	Top = 16
17	tony	37	Width = 24
18	tony	5	Caption = 'SQL'
19			ParentColor = False
20			end
21			object SQLText: TMemo
22			Left = 279
23	tony	7	Height = 327
24	tony	5	Top = 36
25	tony	7	Width = 437
26			Anchors = [akTop, akLeft, akRight, akBottom]
27			ScrollBars = ssAutoBoth
28	tony	5	TabOrder = 0
29			end
30			object Button1: TButton
31	tony	7	Left = 550
32	tony	5	Height = 30
33	tony	7	Top = 379
34	tony	5	Width = 72
35	tony	7	Anchors = [akRight, akBottom]
36	tony	5	Caption = 'OK'
37			Default = True
38			ModalResult = 1
39			TabOrder = 1
40			end
41			object Button2: TButton
42	tony	7	Left = 638
43	tony	5	Height = 30
44	tony	7	Top = 379
45	tony	5	Width = 72
46	tony	7	Anchors = [akRight, akBottom]
47	tony	5	Cancel = True
48			Caption = 'Cancel'
49			ModalResult = 2
50			TabOrder = 2
51			end
52	tony	7	object GenerateBtn: TButton
53			Left = 278
54	tony	5	Height = 30
55	tony	7	Top = 379
56			Width = 101
57			Anchors = [akRight, akBottom]
58			Caption = 'Generate SQL'
59			OnClick = GenerateBtnClick
60	tony	5	TabOrder = 3
61			end
62	tony	7	object TestBtn: TButton
63			Left = 414
64	tony	5	Height = 30
65	tony	7	Top = 379
66	tony	5	Width = 66
67	tony	7	Anchors = [akRight, akBottom]
68	tony	5	Caption = 'Test'
69	tony	7	OnClick = TestBtnClick
70			TabOrder = 4
71	tony	5	end
72			object QuoteFields: TCheckBox
73	tony	19	Left = 24
74	tony	37	Height = 22
75	tony	19	Top = 400
76	tony	37	Width = 125
77	tony	5	Caption = '&Quote Identifiers'
78	tony	7	TabOrder = 5
79	tony	5	end
80	tony	7	object PageControl: TPageControl
81			Left = 24
82			Height = 335
83			Top = 28
84			Width = 232
85	tony	37	ActivePage = SelectPage
86			TabIndex = 0
87	tony	7	TabOrder = 6
88			object SelectPage: TTabSheet
89			Caption = 'Tables'
90	tony	67	ClientHeight = 303
91	tony	21	ClientWidth = 226
92	tony	7	OnShow = SelectPageShow
93			object Label1: TLabel
94			Left = 7
95	tony	67	Height = 14
96	tony	7	Top = 4
97	tony	19	Width = 69
98	tony	7	Caption = 'Table Name'
99			ParentColor = False
100			end
101			object Label2: TLabel
102			Left = 7
103	tony	67	Height = 14
104	tony	37	Top = 56
105	tony	19	Width = 33
106	tony	7	Caption = 'Fields'
107			ParentColor = False
108			end
109			object Label4: TLabel
110			Left = 7
111	tony	67	Height = 14
112	tony	37	Top = 208
113	tony	19	Width = 77
114	tony	7	Caption = 'Primary Keys'
115			ParentColor = False
116			end
117			object TableNamesCombo: TComboBox
118	tony	21	Left = 6
119	tony	37	Height = 27
120	tony	7	Top = 20
121			Width = 201
122	tony	21	AutoComplete = True
123			AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
124	tony	37	ItemHeight = 0
125	tony	7	OnCloseUp = TableNamesComboCloseUp
126			TabOrder = 0
127			end
128			object FieldList: TListBox
129			Left = 7
130	tony	37	Height = 123
131	tony	7	Hint = 'Select Fields to include in Select Statements, or leave unselected to select all'
132	tony	37	Top = 77
133	tony	7	Width = 204
134			ItemHeight = 0
135			MultiSelect = True
136			OnDblClick = FieldListDblClick
137			ParentShowHint = False
138	tony	19	ScrollWidth = 202
139	tony	7	ShowHint = True
140			TabOrder = 1
141	tony	37	TopIndex = -1
142	tony	7	end
143			object PrimaryKeyList: TListBox
144			Left = 7
145	tony	37	Height = 64
146			Top = 224
147	tony	7	Width = 200
148			ItemHeight = 0
149			OnDblClick = PrimaryKeyListDblClick
150	tony	19	ScrollWidth = 198
151	tony	7	TabOrder = 2
152	tony	37	TopIndex = -1
153	tony	7	end
154			end
155			object ExecutePage: TTabSheet
156			Caption = 'Procedures'
157	tony	67	ClientHeight = 303
158	tony	37	ClientWidth = 226
159	tony	7	OnShow = ExecutePageShow
160			object Label16: TLabel
161			Left = 7
162	tony	21	Height = 15
163	tony	7	Top = 3
164	tony	37	Width = 100
165	tony	7	Caption = 'Procedure Name'
166			ParentColor = False
167			end
168			object Label17: TLabel
169			Left = 7
170	tony	21	Height = 15
171	tony	7	Top = 60
172	tony	37	Width = 104
173	tony	7	Caption = 'Input Parameters'
174			ParentColor = False
175			end
176			object Label18: TLabel
177			Left = 8
178	tony	21	Height = 15
179	tony	7	Top = 172
180	tony	37	Width = 114
181	tony	7	Caption = 'Output Parameters'
182			ParentColor = False
183			end
184			object ProcedureNames: TComboBox
185			Left = 7
186	tony	37	Height = 27
187	tony	7	Top = 20
188			Width = 201
189	tony	37	ItemHeight = 0
190	tony	7	OnCloseUp = ProcedureNamesCloseUp
191			ParentColor = True
192			TabOrder = 0
193			end
194			object ProcInputList: TListBox
195			Left = 7
196			Height = 80
197			Top = 81
198			Width = 198
199			IntegralHeight = True
200			ItemHeight = 0
201	tony	37	ScrollWidth = 196
202	tony	7	TabOrder = 1
203	tony	37	TopIndex = -1
204	tony	7	end
205			object ProcOutputList: TListBox
206			Left = 7
207			Height = 80
208			Top = 192
209			Width = 198
210			IntegralHeight = True
211			ItemHeight = 0
212	tony	37	ScrollWidth = 196
213	tony	7	TabOrder = 2
214	tony	37	TopIndex = -1
215	tony	7	end
216			object SelectProcedure: TLabel
217			Left = 7
218	tony	37	Height = 14
219			Top = 285
220			Width = 126
221	tony	7	Anchors = [akLeft, akBottom]
222			Caption = 'Is ''Select Procedure'''
223			Font.Height = -11
224			Font.Style = [fsBold]
225			ParentColor = False
226			ParentFont = False
227			Visible = False
228			end
229			end
230	tony	5	end
231	tony	19	object GenerateParams: TCheckBox
232			Left = 24
233	tony	37	Height = 22
234	tony	19	Top = 376
235	tony	37	Width = 171
236	tony	19	Caption = 'Allow DSQL Placeholders'
237			TabOrder = 7
238			end
239	tony	7	object IBTransaction1: TIBTransaction
240			Active = False
241			left = 212
242			top = 390
243			end
244	tony	5	end