ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/branches/journaling/design/ibinsertsqleditor.pas

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