--- ibx/trunk/design/ibdeletesqleditor.lfm	2018/01/18 14:37:35	106
+++ ibx/trunk/design/ibdeletesqleditor.lfm	2018/01/18 14:37:40	107
@@ -1,11 +1,11 @@
 inherited IBDeleteSQLEditorForm: TIBDeleteSQLEditorForm
+  Left = 642
+  Top = 246
   Caption = 'Delete SQL Editor'
   inherited GenerateBtn: TButton
     OnClick = GenerateBtnClick
   end
   inherited PageControl: TPageControl
-    ActivePage = SelectPage
-    TabIndex = 0
     inherited SelectPage: TTabSheet
       inherited Label2: TLabel
         Visible = False
@@ -22,6 +22,31 @@ inherited IBDeleteSQLEditorForm: TIBDele
         Visible = False
       end
       inherited OutputProcGrid: TIBDynamicGrid
+        Columns = <        
+          item
+            ButtonStyle = cbsCheckboxColumn
+            PickList.Strings = (            )
+            Title.Caption = 'SELECTED'
+            Width = 0
+            Visible = False
+            FieldName = 'SELECTED'
+            AutoSizeColumn = False
+            InitialSortColumn = False
+            DBLookupProperties.ItemHeight = 0
+            DBLookupProperties.ItemWidth = 0
+            DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
+          end        
+          item
+            PickList.Strings = (            )
+            Title.Caption = 'COLUMNNAME'
+            Width = 64
+            FieldName = 'COLUMNNAME'
+            AutoSizeColumn = True
+            InitialSortColumn = False
+            DBLookupProperties.ItemHeight = 0
+            DBLookupProperties.ItemWidth = 0
+            DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
+          end>
         Visible = False
       end
     end
@@ -35,6 +60,8 @@ inherited IBDeleteSQLEditorForm: TIBDele
     ClientHeight = 339
     ClientWidth = 448
     TabOrder = 7
+    DesignLeft = 1974
+    DesignTop = 200
     inherited SQLText: TSynEdit
       Height = 313
       Width = 448
@@ -58,9 +85,6 @@ inherited IBDeleteSQLEditorForm: TIBDele
           ParamType = ptInput
         end>
     end
-    inherited UserProcedures: TIBQuery
-      AfterScroll = UserProceduresAfterScroll
-    end
     inherited ProcInputParams: TIBQuery
       ParamData = <      
         item
@@ -80,5 +104,24 @@ inherited IBDeleteSQLEditorForm: TIBDele
     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 PackageNames: TIBQuery
+      BeforeClose = nil
+    end
   end
 end