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 45 by tony, Tue Dec 6 10:33:46 2016 UTC vs.
Revision 106 by tony, Thu Jan 18 14:37:35 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 389 | Line 389 | uses IB, IBQuery, IBStoredProc, IBCustom
389		IBInsertSQLEditor, IBGeneratorEditor, IBUpdateSQLEditor, IBDataSetEditor,
390		IBSQLEditor, ibserviceeditor, LCLVersion, IBDynamicGrid, IBLookupComboEditBox,
391		IBTreeView, DBControlGrid, ibxscript, IBLocalDBSupport, IBDSDialogs,
392	<	IBArrayGrid;
392	>	IBArrayGrid, IBVersion, IBDataOutput;
393
394		const
395		IBPalette1 = 'Firebird'; {do not localize}
#	Line 397 | Line 397 | const
397		IBPalette3 = 'Firebird Data Controls';   {do not localize}
398
399		resourcestring
400	<	SInterbaseExpressVersion = 'Firebird Express for Lazarus 2.0.0';
400	>	SInterbaseExpressVersion = 'Firebird Express for Lazarus ' + IBX_VERSION;
401		SEditSQL = 'Edit SQL';
402		SIBSQLEditor = 'IBSQL Editor';
403		SIBServiceEditor = 'Edit IB Service';
#	Line 416 | Line 416 | begin
416		Exit;
417		end;
418
419	<	RegisterNoIcon([TIBStringField, TIBBCDField, TIBMemoField, TIBArrayField]);
419	>	RegisterNoIcon([TIBStringField, TIBBCDField, TIBMemoField, TIBArrayField,
420	>	TIBSmallintField, TIBIntegerField, TIBLargeIntField]);
421		{$if lcl_fullversion < 01010000}
422		{see http://bugs.freepascal.org/view.php?id=19035 }
423		RegisterNoIcon([TIntegerField]);
424		{$endif}
425		RegisterComponents(IBPalette1, [ TIBQuery, TIBDataSet,
426	<	TIBDatabase, TIBTransaction, TIBUpdateSQL, TIBEvents,
426	>	TIBDatabase, TIBTransaction, TIBUpdateSQL, TIBUpdate, TIBEvents,
427		TIBSQL, TIBDatabaseInfo, TIBSQLMonitor,
428	<	TIBStoredProc,TIBBatchMove,  TIBTable,TIBExtract, TIBXScript, TIBLocalDBSupport]);
428	>	TIBStoredProc,TIBBatchMove,  TIBTable,TIBExtract, TIBXScript, TIBLocalDBSupport,
429	>	TIBBlockFormatOut,TIBCSVDataOut,TIBInsertStmtsOut]);
430		if FirebirdAPI.HasServiceAPI  then
431		RegisterComponents(IBPalette2, [TIBConfigService, TIBBackupService,
432		TIBRestoreService, TIBValidationService, TIBStatisticalService,
#	Line 834 | Line 836 | var
836		IBSQL: TIBSQL;
837		begin
838		IBSQL := GetComponent(0) as TIBSQL;
839	<	if IBSQLEditor.EditIBSQL(IBSQL) then Modified;
839	>	if IBSQLEditor.EditSQL(IBSQL) then Modified;
840		end;
841
842		{ TIBUpdateSQLEditor }
#	Line 1200 | Line 1202 | end;
1202
1203		procedure TIBSQLEditor.ExecuteVerb(Index: Integer);
1204		begin
1205	<	if IBSQLEditor.EditIBSQL(TIBSQL(Component)) then Modified;
1205	>	if IBSQLEditor.EditSQL(TIBSQL(Component)) then Modified;
1206		end;
1207
1208		function TIBSQLEditor.GetVerb(Index: Integer): string;
#	Line 1223 | Line 1225 | var
1225		IBSQL: TIBSQL;
1226		begin
1227		IBSQL := GetComponent(0) as TIBSQL;
1228	<	if IBSQLEditor.EditIBSQL(IBSQL) then Modified;
1228	>	if IBSQLEditor.EditSQL(IBSQL) then Modified;
1229		end;
1230
1231		initialization

Diff Legend

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