ViewVC Help

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

root/public/ibx/trunk/design/ibinsertsqleditor.pas

Comparing ibx/trunk/design/ibinsertsqleditor.pas (file contents):
Revision 106 by tony, Thu Jan 18 14:37:35 2018 UTC vs.
Revision 209 by tony, Wed Mar 14 12:48:51 2018 UTC

#	Line 32 | Line 32 | interface
32		uses
33		Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
34		StdCtrls, ComCtrls, ibselectsqleditor, IBSQLEditFrame, IBDatabase,
35	<	IBLookupComboEditBox, IBDynamicGrid, IBCustomDataset;
35	>	IBDynamicGrid, IBCustomDataset;
36
37		type
38
#	Line 44 | Line 44 | type
44		Label6: TLabel;
45		ReadOnlyGrid: TIBDynamicGrid;
46		procedure GenerateBtnClick(Sender: TObject);
47	+	procedure IdentityGridDblClick(Sender: TObject);
48	+	procedure ReadOnlyGridDblClick(Sender: TObject);
49		private
50
51		protected
#	Line 108 | Line 110 | begin
110		IBSQLEditFrame1.GenerateInsertSQL(QuoteFields.Checked);
111		end;
112
113	+	procedure TIBInsertSQLEditorForm.IdentityGridDblClick(Sender: TObject);
114	+	begin
115	+	IBSQLEditFrame1.InsertSelectedIdentityCol;
116	+	end;
117	+
118	+	procedure TIBInsertSQLEditorForm.ReadOnlyGridDblClick(Sender: TObject);
119	+	begin
120	+	IBSQLEditFrame1.InsertSelectedReadOnlyField;
121	+	end;
122	+
123		procedure TIBInsertSQLEditorForm.Loaded;
124		begin
125		inherited Loaded;

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines