--- ibx/trunk/design/ibselectsqleditor.lfm	2018/01/18 14:37:29	104
+++ ibx/trunk/design/ibselectsqleditor.lfm	2018/01/18 14:37:32	105
@@ -1,11 +1,11 @@
 object IBSelectSQLEditorForm: TIBSelectSQLEditorForm
-  Left = 354
-  Height = 437
-  Top = 244
+  Left = 784
+  Height = 487
+  Top = 248
   Width = 747
   ActiveControl = PageControl
   Caption = 'Select SQL Editor'
-  ClientHeight = 437
+  ClientHeight = 487
   ClientWidth = 747
   OnShow = FormShow
   Position = poScreenCenter
@@ -21,7 +21,7 @@ object IBSelectSQLEditorForm: TIBSelectS
   object Button1: TButton
     Left = 550
     Height = 30
-    Top = 379
+    Top = 429
     Width = 72
     Anchors = [akRight, akBottom]
     Caption = 'OK'
@@ -32,7 +32,7 @@ object IBSelectSQLEditorForm: TIBSelectS
   object Button2: TButton
     Left = 638
     Height = 30
-    Top = 379
+    Top = 429
     Width = 72
     Anchors = [akRight, akBottom]
     Cancel = True
@@ -43,7 +43,7 @@ object IBSelectSQLEditorForm: TIBSelectS
   object GenerateBtn: TButton
     Left = 278
     Height = 30
-    Top = 379
+    Top = 429
     Width = 101
     Anchors = [akRight, akBottom]
     Caption = 'Generate SQL'
@@ -53,7 +53,7 @@ object IBSelectSQLEditorForm: TIBSelectS
   object TestBtn: TButton
     Left = 414
     Height = 30
-    Top = 379
+    Top = 429
     Width = 66
     Anchors = [akRight, akBottom]
     Caption = 'Test'
@@ -63,22 +63,22 @@ object IBSelectSQLEditorForm: TIBSelectS
   object QuoteFields: TCheckBox
     Left = 24
     Height = 22
-    Top = 400
+    Top = 440
     Width = 125
     Caption = '&Quote Identifiers'
     TabOrder = 4
   end
   object PageControl: TPageControl
     Left = 24
-    Height = 355
+    Height = 405
     Top = 8
     Width = 232
-    ActivePage = ExecutePage
-    TabIndex = 1
+    ActivePage = SelectPage
+    TabIndex = 0
     TabOrder = 5
     object SelectPage: TTabSheet
       Caption = 'Tables'
-      ClientHeight = 323
+      ClientHeight = 373
       ClientWidth = 226
       OnShow = SelectPageShow
       object Label1: TLabel
@@ -100,7 +100,7 @@ object IBSelectSQLEditorForm: TIBSelectS
       object Label4: TLabel
         Left = 7
         Height = 14
-        Top = 224
+        Top = 288
         Width = 77
         Caption = 'Primary Keys'
         ParentColor = False
@@ -123,7 +123,7 @@ object IBSelectSQLEditorForm: TIBSelectS
       end
       object FieldNamesGrid: TIBDynamicGrid
         Left = 7
-        Height = 104
+        Height = 168
         Top = 88
         Width = 209
         Color = clWindow
@@ -163,7 +163,7 @@ object IBSelectSQLEditorForm: TIBSelectS
       object PrimaryKeysGrid: TIBDynamicGrid
         Left = 7
         Height = 56
-        Top = 240
+        Top = 304
         Width = 209
         Color = clWindow
         Columns = <        
@@ -201,7 +201,7 @@ object IBSelectSQLEditorForm: TIBSelectS
       object SelectSelectAll: TCheckBox
         Left = 7
         Height = 22
-        Top = 192
+        Top = 256
         Width = 134
         Caption = 'Select/Deselect All'
         OnChange = SelectSelectAllChange
@@ -219,7 +219,7 @@ object IBSelectSQLEditorForm: TIBSelectS
     end
     object ExecutePage: TTabSheet
       Caption = 'Procedures'
-      ClientHeight = 323
+      ClientHeight = 373
       ClientWidth = 226
       OnShow = ExecutePageShow
       object Label16: TLabel
@@ -356,24 +356,24 @@ object IBSelectSQLEditorForm: TIBSelectS
   object GenerateParams: TCheckBox
     Left = 24
     Height = 22
-    Top = 376
+    Top = 416
     Width = 171
     Caption = 'Allow DSQL Placeholders'
     TabOrder = 6
   end
   inline IBSQLEditFrame1: TIBSQLEditFrame
     Left = 282
-    Height = 339
+    Height = 389
     Top = 24
     Width = 448
     Anchors = [akTop, akLeft, akRight, akBottom]
-    ClientHeight = 339
+    ClientHeight = 389
     ClientWidth = 448
     TabOrder = 7
     DesignLeft = 1974
     DesignTop = 200
     inherited SQLText: TSynEdit
-      Height = 313
+      Height = 363
       Width = 448
     end
     inherited ToolBar1: TToolBar
@@ -417,5 +417,13 @@ object IBSelectSQLEditorForm: TIBSelectS
     inherited SQLTransaction: TIBTransaction
       Params.Strings = (      )
     end
+    inherited IdentityCols: TIBQuery
+      ParamData = <      
+        item
+          DataType = ftUnknown
+          Name = 'RDB$RELATION_NAME'
+          ParamType = ptInput
+        end>
+    end
   end
 end