ViewVC Help

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

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

Comparing ibx/trunk/design/IBDBReg.pas (file contents):
Revision 47 by tony, Mon Jan 9 15:31:51 2017 UTC vs.
Revision 80 by tony, Mon Jan 1 11:31:07 2018 UTC

#	Line 54 | Line 54 | interface
54
55		uses SysUtils, Classes, Graphics, Dialogs, Controls, Forms, TypInfo,
56		DB, IBTable, IBDatabase,  IBEventsEditor,  LazarusPackageIntf,
57	<	IBUpdateSQL, ComponentEditors, PropEdits, DBPropEdits, FieldsEditor,
57	>	IBUpdateSQL, IBUpdate, ComponentEditors, PropEdits, DBPropEdits, FieldsEditor,
58		dbFieldLinkPropEditor, dbFieldListPropEditor, IBDialogs;
59
60		type
#	Line 422 | Line 422 | begin
422		RegisterNoIcon([TIntegerField]);
423		{$endif}
424		RegisterComponents(IBPalette1, [ TIBQuery, TIBDataSet,
425	<	TIBDatabase, TIBTransaction, TIBUpdateSQL, TIBEvents,
425	>	TIBDatabase, TIBTransaction, TIBUpdateSQL, TIBUpdate, TIBEvents,
426		TIBSQL, TIBDatabaseInfo, TIBSQLMonitor,
427		TIBStoredProc,TIBBatchMove,  TIBTable,TIBExtract, TIBXScript, TIBLocalDBSupport,
428		TIBBlockFormatOut,TIBCSVDataOut,TIBInsertStmtsOut]);
#	Line 835 | Line 835 | var
835		IBSQL: TIBSQL;
836		begin
837		IBSQL := GetComponent(0) as TIBSQL;
838	<	if IBSQLEditor.EditIBSQL(IBSQL) then Modified;
838	>	if IBSQLEditor.EditSQL(IBSQL) then Modified;
839		end;
840
841		{ TIBUpdateSQLEditor }
#	Line 1201 | Line 1201 | end;
1201
1202		procedure TIBSQLEditor.ExecuteVerb(Index: Integer);
1203		begin
1204	<	if IBSQLEditor.EditIBSQL(TIBSQL(Component)) then Modified;
1204	>	if IBSQLEditor.EditSQL(TIBSQL(Component)) then Modified;
1205		end;
1206
1207		function TIBSQLEditor.GetVerb(Index: Integer): string;
#	Line 1224 | Line 1224 | var
1224		IBSQL: TIBSQL;
1225		begin
1226		IBSQL := GetComponent(0) as TIBSQL;
1227	<	if IBSQLEditor.EditIBSQL(IBSQL) then Modified;
1227	>	if IBSQLEditor.EditSQL(IBSQL) then Modified;
1228		end;
1229
1230		initialization

Diff Legend

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