--- ibx/trunk/design/ibdeletesqleditor.lfm	2017/12/31 14:53:21	79
+++ ibx/trunk/design/ibdeletesqleditor.lfm	2018/01/01 11:31:07	80
@@ -1,218 +1,84 @@
-object IBDeleteSQLEditorForm: TIBDeleteSQLEditorForm
-  Left = 522
-  Height = 439
-  Top = 384
-  Width = 750
+inherited IBDeleteSQLEditorForm: TIBDeleteSQLEditorForm
   Caption = 'Delete SQL Editor'
-  ClientHeight = 439
-  ClientWidth = 750
-  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 = 329
-    Top = 36
-    Width = 440
-    Anchors = [akTop, akLeft, akRight, akBottom]
-    ScrollBars = ssAutoBoth
-    TabOrder = 0
-  end
-  object Button1: TButton
-    Left = 553
-    Height = 30
-    Top = 381
-    Width = 72
-    Anchors = [akRight, akBottom]
-    Caption = 'OK'
-    Default = True
-    ModalResult = 1
-    TabOrder = 1
-  end
-  object Button2: TButton
-    Left = 641
-    Height = 30
-    Top = 381
-    Width = 72
-    Anchors = [akRight, akBottom]
-    Cancel = True
-    Caption = 'Cancel'
-    ModalResult = 2
-    TabOrder = 2
-  end
-  object GenerateBtn: TButton
-    Left = 281
-    Height = 30
-    Top = 381
-    Width = 101
-    Anchors = [akRight, akBottom]
-    Caption = 'Generate SQL'
+  inherited GenerateBtn: TButton
     OnClick = GenerateBtnClick
-    TabOrder = 3
   end
-  object TestBtn: TButton
-    Left = 417
-    Height = 30
-    Top = 381
-    Width = 66
-    Anchors = [akRight, akBottom]
-    Caption = 'Test'
-    OnClick = TestBtnClick
-    TabOrder = 4
-  end
-  object QuoteFields: TCheckBox
-    Left = 16
-    Height = 22
-    Top = 400
-    Width = 125
-    Caption = '&Quote Identifiers'
-    TabOrder = 5
-  end
-  object GenerateParams: TCheckBox
-    Left = 16
-    Height = 22
-    Top = 376
-    Width = 171
-    Caption = 'Allow DSQL Placeholders'
-    TabOrder = 6
-  end
-  object PageControl: TPageControl
-    Left = 18
-    Height = 339
-    Top = 24
-    Width = 239
-    ActivePage = ExecutePage
-    TabIndex = 1
-    TabOrder = 7
-    object DeletePage: TTabSheet
-      Caption = 'Delete'
-      ClientHeight = 307
-      ClientWidth = 233
-      OnShow = DeletePageShow
-      object Label1: TLabel
-        Left = 8
-        Height = 15
-        Top = 8
-        Width = 69
-        Caption = 'Table Name'
-        ParentColor = False
-      end
-      object TableNamesCombo: TComboBox
-        Left = 8
-        Height = 27
-        Top = 24
-        Width = 201
-        AutoComplete = True
-        AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
-        ItemHeight = 0
-        OnCloseUp = TableNamesComboCloseUp
-        TabOrder = 0
+  inherited PageControl: TPageControl
+    ActivePage = SelectPage
+    TabIndex = 0
+    inherited SelectPage: TTabSheet
+      inherited Label2: TLabel
+        Visible = False
       end
-      object Label4: TLabel
-        Left = 8
-        Height = 15
-        Top = 64
-        Width = 77
-        Caption = 'Primary Keys'
-        ParentColor = False
+      inherited FieldNamesGrid: TIBDynamicGrid
+        Visible = False
       end
-      object PrimaryKeyList: TListBox
-        Left = 8
-        Height = 59
-        Top = 83
-        Width = 200
-        ItemHeight = 0
-        OnDblClick = PrimaryKeyListDblClick
-        ScrollWidth = 198
-        TabOrder = 1
-        TopIndex = -1
+      inherited SelectSelectAll: TCheckBox
+        Visible = False
       end
     end
-    object ExecutePage: TTabSheet
-      Caption = 'Execute'
-      ClientHeight = 307
-      ClientWidth = 233
-      OnShow = ExecutePageShow
-      object Label16: TLabel
-        Left = 7
-        Height = 14
-        Top = 8
-        Width = 100
-        Caption = 'Procedure Name'
-        ParentColor = False
-      end
-      object ProcedureNames: TComboBox
-        Left = 7
-        Height = 27
-        Top = 24
-        Width = 201
-        ItemHeight = 0
-        OnCloseUp = ProcedureNamesCloseUp
-        ParentColor = True
-        TabOrder = 0
-      end
-      object Label17: TLabel
-        Left = 7
-        Height = 14
-        Top = 56
-        Width = 104
-        Caption = 'Input Parameters'
-        ParentColor = False
-      end
-      object ProcInputList: TListBox
-        Left = 8
-        Height = 103
-        Top = 72
-        Width = 198
-        IntegralHeight = True
-        ItemHeight = 0
-        ScrollWidth = 196
-        TabOrder = 1
-        TopIndex = -1
-      end
-      object Label18: TLabel
-        Left = 7
-        Height = 14
-        Top = 184
-        Width = 114
-        Caption = 'Output Parameters'
-        ParentColor = False
-      end
-      object ProcOutputList: TListBox
-        Left = 7
-        Height = 80
-        Top = 200
-        Width = 198
-        IntegralHeight = True
-        ItemHeight = 0
-        ScrollWidth = 196
-        TabOrder = 2
-        TopIndex = -1
+    inherited ExecutePage: TTabSheet
+      inherited Label18: TLabel
+        Visible = False
       end
-      object ExecuteOnlyIndicator: TLabel
-        Left = 10
-        Height = 14
-        Top = 291
-        Width = 89
-        Caption = 'Execute Only'
-        Font.Style = [fsBold]
-        ParentColor = False
-        ParentFont = False
+      inherited OutputProcGrid: TIBDynamicGrid
         Visible = False
       end
     end
   end
-  object IBTransaction1: TIBTransaction
-    Active = False
-    left = 216
-    top = 400
+  inherited IBSQLEditFrame1: TIBSQLEditFrame
+    Left = 282
+    Height = 339
+    Top = 24
+    Width = 448
+    Anchors = [akTop, akLeft, akRight, akBottom]
+    ClientHeight = 339
+    ClientWidth = 448
+    TabOrder = 7
+    inherited SQLText: TSynEdit
+      Height = 313
+      Width = 448
+    end
+    inherited ToolBar1: TToolBar
+      Width = 448
+    end
+    inherited FieldNameList: TIBQuery
+      ParamData = <      
+        item
+          DataType = ftUnknown
+          Name = 'RDB$RELATION_NAME'
+          ParamType = ptInput
+        end>
+    end
+    inherited PrimaryKeys: TIBQuery
+      ParamData = <      
+        item
+          DataType = ftUnknown
+          Name = 'RDB$RELATION_NAME'
+          ParamType = ptInput
+        end>
+    end
+    inherited UserProcedures: TIBQuery
+      AfterScroll = UserProceduresAfterScroll
+    end
+    inherited ProcInputParams: TIBQuery
+      ParamData = <      
+        item
+          DataType = ftUnknown
+          Name = 'RDB$PROCEDURE_NAME'
+          ParamType = ptInput
+        end>
+    end
+    inherited ProcOutputParams: TIBQuery
+      ParamData = <      
+        item
+          DataType = ftUnknown
+          Name = 'RDB$PROCEDURE_NAME'
+          ParamType = ptInput
+        end>
+    end
+    inherited SQLTransaction: TIBTransaction
+      Params.Strings = (      )
+    end
   end
 end