--- ibx/trunk/design/ibsqleditor.lfm	2018/01/18 14:37:32	105
+++ ibx/trunk/design/ibsqleditor.lfm	2018/01/18 14:37:35	106
@@ -1,80 +1,72 @@
 inherited IBSQLEditorForm: TIBSQLEditorForm
-  Left = 315
+  Left = 582
+  Height = 555
+  Top = 415
   Width = 776
   Caption = 'IBSQL Editor'
+  ClientHeight = 555
   ClientWidth = 776
   OnShow = FormShow
   inherited Label3: TLabel
     Left = 312
   end
   inherited Button1: TButton
-    Left = 579
+    Left = 576
+    Top = 504
   end
   inherited Button2: TButton
-    Left = 667
+    Left = 664
+    Top = 504
   end
   inherited GenerateBtn: TButton
-    Left = 307
+    Left = 304
+    Top = 504
     OnClick = GenerateBtnClick
   end
   inherited TestBtn: TButton
-    Left = 443
+    Left = 440
+    Top = 504
   end
   inherited QuoteFields: TCheckBox
-    Left = 68
+    Left = 11
+    Top = 496
   end
   inherited PageControl: TPageControl
     Left = 68
-    ActivePage = SelectPage
     ShowTabs = False
-    TabIndex = 0
     inherited SelectPage: TTabSheet
-      ClientHeight = 349
-      inherited Label4: TLabel
-        Top = 256
-      end
+      ClientHeight = 450
       inherited FieldNamesGrid: TIBDynamicGrid
-        Height = 136
-      end
-      inherited PrimaryKeysGrid: TIBDynamicGrid
-        Top = 272
+        Height = 104
       end
       inherited SelectSelectAll: TCheckBox
-        Left = 8
-        Top = 224
+        Top = 424
       end
-      object IncludePrimaryKeys: TCheckBox[8]
-        Left = 5
-        Height = 22
-        Top = 328
-        Width = 221
-        Caption = 'Include Primary keys in Field List'
-        Checked = True
-        OnChange = IncludePrimaryKeysChange
-        State = cbChecked
-        TabOrder = 5
+      inherited ReadOnlyGrid: TIBDynamicGrid
+        Left = 9
       end
     end
     inherited ExecutePage: TTabSheet
-      ClientHeight = 349
+      ClientHeight = 450
     end
   end
   inherited GenerateParams: TCheckBox
-    Left = 68
+    Left = 11
+    Top = 472
   end
   inherited IBSQLEditFrame1: TIBSQLEditFrame
     Left = 312
-    Height = 339
+    Height = 440
     Top = 24
     Width = 447
     Anchors = [akTop, akLeft, akRight, akBottom]
-    ClientHeight = 339
+    ClientHeight = 440
     ClientWidth = 447
     TabOrder = 7
     DesignLeft = 1974
     DesignTop = 200
     inherited SQLText: TSynEdit
-      Height = 313
+      Height = 414
       Width = 447
     end
     inherited ToolBar1: TToolBar
@@ -118,6 +110,26 @@ inherited IBSQLEditorForm: TIBSQLEditorF
     inherited SQLTransaction: TIBTransaction
       Params.Strings = (      )
     end
+    inherited IdentityCols: TIBQuery
+      ParamData = <      
+        item
+          DataType = ftUnknown
+          Name = 'RDB$RELATION_NAME'
+          ParamType = ptInput
+        end>
+    end
+    inherited ReadOnlyFields: TIBQuery
+      ParamData = <      
+        item
+          DataType = ftUnknown
+          Name = 'RDB$RELATION_NAME'
+          ParamType = ptInput
+        end>
+    end
+    inherited ReadOnlyFieldsSource: TDataSource
+      left = 436
+      top = 203
+    end
   end
   object TabControl1: TTabControl[9]
     Left = 11
@@ -136,4 +148,12 @@ inherited IBSQLEditorForm: TIBSQLEditorF
     )
     TabOrder = 8
   end
+  object IncludePrimaryKeys: TCheckBox[10]
+    Left = 11
+    Height = 22
+    Top = 520
+    Width = 241
+    Caption = 'Include Primary keys in Update SQL'
+    TabOrder = 9
+  end
 end