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

Comparing ibx/trunk/design/ibinsertsqleditor.pas (file contents):
Revision 101 by tony, Thu Jan 18 14:37:18 2018 UTC vs.
Revision 105 by tony, Thu Jan 18 14:37:32 2018 UTC

# Line 30 | Line 30 | unit ibinsertsqleditor;
30   interface
31  
32   uses
33 <  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
34 <    ibselectsqleditor, IBSQLEditFrame, IBDatabase, IBCustomDataset;
33 >  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
34 >  StdCtrls, ComCtrls, ibselectsqleditor, IBSQLEditFrame, IBDatabase,
35 >  IBLookupComboEditBox, IBDynamicGrid, IBCustomDataset;
36  
37   type
38  
39    { TIBInsertSQLEditorForm }
40  
41    TIBInsertSQLEditorForm = class(TIBSelectSQLEditorForm)
42 +    Label5: TLabel;
43 +    ReadOnlyGrid: TIBDynamicGrid;
44      procedure GenerateBtnClick(Sender: TObject);
45    private
46  
# Line 111 | Line 114 | begin
114    begin
115      if PrimaryKeysGrid <> nil then
116        PrimaryKeysGrid.DataSource := IBSQLEditFrame1.IdentityColsSource;
117 +    if ReadOnlyGrid <> nil then
118 +      ReadOnlyGrid.DataSource := IBSQLEditFrame1.ReadOnlyFieldsSource;
119    end;
120   end;
121  

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines