ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/ibsqleditor.lfm
(Generate patch)

Comparing ibx/trunk/design/ibsqleditor.lfm (file contents):
Revision 80 by tony, Mon Jan 1 11:31:07 2018 UTC vs.
Revision 107 by tony, Thu Jan 18 14:37:40 2018 UTC

# Line 1 | Line 1
1   inherited IBSQLEditorForm: TIBSQLEditorForm
2 <  Left = 315
2 >  Left = 506
3 >  Height = 555
4 >  Top = 383
5    Width = 776
6    Caption = 'IBSQL Editor'
7 +  ClientHeight = 555
8    ClientWidth = 776
9    OnShow = FormShow
10    inherited Label3: TLabel
11      Left = 312
12    end
13    inherited Button1: TButton
14 <    Left = 579
14 >    Left = 576
15 >    Top = 504
16    end
17    inherited Button2: TButton
18 <    Left = 667
18 >    Left = 664
19 >    Top = 504
20    end
21    inherited GenerateBtn: TButton
22 <    Left = 307
22 >    Left = 304
23 >    Top = 504
24      OnClick = GenerateBtnClick
25    end
26    inherited TestBtn: TButton
27 <    Left = 443
27 >    Left = 440
28 >    Top = 504
29    end
30    inherited QuoteFields: TCheckBox
31 <    Left = 68
31 >    Left = 11
32 >    Top = 496
33    end
34    inherited PageControl: TPageControl
35      Left = 68
28    ActivePage = SelectPage
36      ShowTabs = False
30    TabIndex = 0
37      inherited SelectPage: TTabSheet
38 <      ClientHeight = 349
33 <      inherited Label4: TLabel
34 <        Top = 256
35 <      end
38 >      ClientHeight = 450
39        inherited FieldNamesGrid: TIBDynamicGrid
40 <        Height = 136
38 <      end
39 <      inherited PrimaryKeysGrid: TIBDynamicGrid
40 <        Top = 272
40 >        Height = 104
41        end
42        inherited SelectSelectAll: TCheckBox
43 <        Left = 8
44 <        Top = 224
43 >        Top = 424
44        end
45 <      object IncludePrimaryKeys: TCheckBox[8]
46 <        Left = 5
48 <        Height = 22
49 <        Top = 328
50 <        Width = 221
51 <        Caption = 'Include Primary keys in Field List'
52 <        Checked = True
53 <        OnChange = IncludePrimaryKeysChange
54 <        State = cbChecked
55 <        TabOrder = 5
45 >      inherited ReadOnlyGrid: TIBDynamicGrid
46 >        Left = 9
47        end
48      end
49      inherited ExecutePage: TTabSheet
50 <      ClientHeight = 349
50 >      ClientHeight = 450
51 >      inherited Label16: TLabel
52 >        Left = 10
53 >      end
54 >      inherited Label17: TLabel
55 >        Top = 128
56 >      end
57 >      inherited Label18: TLabel
58 >        Top = 280
59 >      end
60 >      inherited ProcedureNames: TIBLookupComboEditBox
61 >        Left = 10
62 >        Top = 72
63 >      end
64 >      inherited InputProcGrid: TIBDynamicGrid
65 >        Left = 8
66 >        Height = 122
67 >        Top = 144
68 >      end
69 >      inherited OutputProcGrid: TIBDynamicGrid
70 >        Top = 296
71 >        Columns = <        
72 >          item
73 >            ButtonStyle = cbsCheckboxColumn
74 >            PickList.Strings = (            )
75 >            Title.Caption = 'SELECTED'
76 >            Width = 30
77 >            FieldName = 'SELECTED'
78 >            AutoSizeColumn = False
79 >            InitialSortColumn = False
80 >            DBLookupProperties.ItemHeight = 0
81 >            DBLookupProperties.ItemWidth = 0
82 >            DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
83 >          end        
84 >          item
85 >            PickList.Strings = (            )
86 >            Title.Caption = 'COLUMNNAME'
87 >            Width = 64
88 >            FieldName = 'COLUMNNAME'
89 >            AutoSizeColumn = True
90 >            InitialSortColumn = False
91 >            DBLookupProperties.ItemHeight = 0
92 >            DBLookupProperties.ItemWidth = 0
93 >            DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
94 >          end>
95 >      end
96 >      object SelectProcedure: TLabel[8]
97 >        Left = 10
98 >        Height = 13
99 >        Top = 104
100 >        Width = 168
101 >        Anchors = [akLeft, akBottom]
102 >        Caption = 'This is a ''Select Procedure'''
103 >        Font.Height = -11
104 >        Font.Style = [fsBold]
105 >        ParentColor = False
106 >        ParentFont = False
107 >        Visible = False
108 >      end
109      end
110    end
111    inherited GenerateParams: TCheckBox
112 <    Left = 68
112 >    Left = 11
113 >    Top = 472
114    end
115    inherited IBSQLEditFrame1: TIBSQLEditFrame
116      Left = 312
117 <    Height = 339
117 >    Height = 440
118      Top = 24
119      Width = 447
120      Anchors = [akTop, akLeft, akRight, akBottom]
121 <    ClientHeight = 339
121 >    ClientHeight = 440
122      ClientWidth = 447
123      TabOrder = 7
124      DesignLeft = 1974
125      DesignTop = 200
126      inherited SQLText: TSynEdit
127 <      Height = 313
127 >      Height = 414
128        Width = 447
129      end
130      inherited ToolBar1: TToolBar
# Line 118 | Line 168 | inherited IBSQLEditorForm: TIBSQLEditorF
168      inherited SQLTransaction: TIBTransaction
169        Params.Strings = (      )
170      end
171 +    inherited IdentityCols: TIBQuery
172 +      ParamData = <      
173 +        item
174 +          DataType = ftUnknown
175 +          Name = 'RDB$RELATION_NAME'
176 +          ParamType = ptInput
177 +        end>
178 +    end
179 +    inherited ReadOnlyFields: TIBQuery
180 +      ParamData = <      
181 +        item
182 +          DataType = ftUnknown
183 +          Name = 'RDB$RELATION_NAME'
184 +          ParamType = ptInput
185 +        end>
186 +    end
187 +    inherited ReadOnlyFieldsSource: TDataSource
188 +      left = 436
189 +      top = 203
190 +    end
191 +    inherited PackageNames: TIBQuery
192 +      BeforeClose = nil
193 +    end
194    end
195    object TabControl1: TTabControl[9]
196      Left = 11
# Line 126 | Line 199 | inherited IBSQLEditorForm: TIBSQLEditorF
199      Width = 59
200      OnChange = TabControl1Change
201      TabPosition = tpLeft
202 <    TabIndex = 0
202 >    TabIndex = 4
203      Tabs.Strings = (
204        'Select'
205        'Insert'
# Line 136 | Line 209 | inherited IBSQLEditorForm: TIBSQLEditorF
209      )
210      TabOrder = 8
211    end
212 +  object IncludePrimaryKeys: TCheckBox[10]
213 +    Left = 11
214 +    Height = 22
215 +    Top = 520
216 +    Width = 241
217 +    Caption = 'Include Primary keys in Update SQL'
218 +    TabOrder = 9
219 +  end
220   end

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines