ViewVC Help

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

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

Comparing:
ibx/trunk/design/IBDBReg.pas (file contents), Revision 315 by tony, Thu Feb 25 11:56:36 2021 UTC vs.
ibx/branches/journaling/design/IBDBReg.pas (file contents), Revision 363 by tony, Tue Dec 7 13:30:05 2021 UTC

#	Line 425 | Line 425 | uses IB, IBQuery, IBStoredProc, IBCustom
425		IBInsertSQLEditor, IBGeneratorEditor, IBUpdateSQLEditor, IBDataSetEditor,
426		IBSQLEditor, ibserviceeditor, LCLVersion, IBDynamicGrid, IBLookupComboEditBox,
427		IBTreeView, DBControlGrid, ibxscript, IBLocalDBSupport, IBDSDialogs,
428	<	IBArrayGrid, IBVersion, IBDataOutput, IBXServiceEditor;
428	>	IBArrayGrid, IBVersion, IBDataOutput, IBXServiceEditor, IBJournal;
429
430		const
431		IBPalette1 = 'Firebird'; {do not localize}
#	Line 444 | Line 444 | const
444		SIBDatabaseEditor = 'Da&tabase Editor...';
445		SIBTransactionEditor = '&Transaction Editor...';
446		SIBUpdateLayout = 'Update Layout';
447	+	SFBLibLoadProblem = 'IBX is unable to locate or otherwise load the Firebird Library - have you remembered to install it?';
448
449		procedure Register;
450		begin
451		AllowUseOfFBLIB := true;
452	<	if not TryIBLoad then
453	<	begin
454	<	MessageDlg('IBX is unable to locate the Firebird Library - have you remembered to install it?',mtError,[mbOK],0);
455	<	Exit;
452	>	try
453	>	if not TryIBLoad then
454	>	begin
455	>	MessageDlg(SFBLibLoadProblem,mtError,[mbOK],0);
456	>	Exit;
457	>	end;
458	>	except on E: Exception do
459	>	begin
460	>	MessageDlg(SFBLibLoadProblem + ' - ' + E.Message,mtError,[mbOK],0);
461	>	Exit;
462	>	end;
463		end;
464
465		RegisterNoIcon([TIBStringField, TIBBCDField, TIBMemoField, TIBArrayField,
#	Line 464 | Line 472 | begin
472		RegisterComponents(IBPalette1, [ TIBQuery, TIBDataSet,
473		TIBDatabase, TIBTransaction, TIBUpdateSQL, TIBUpdate, TIBEvents,
474		TIBSQL, TIBDatabaseInfo, TIBSQLMonitor,
475	<	TIBStoredProc,TIBBatchMove,  TIBTable,TIBExtract, TIBXScript, TIBLocalDBSupport,
475	>	TIBStoredProc,TIBBatchMove,  TIBTable,TIBExtract, TIBXScript, TIBJournal, TIBLocalDBSupport,
476		TIBBlockFormatOut,TIBCSVDataOut,TIBInsertStmtsOut]);
477		if FirebirdAPI.HasServiceAPI  then
478		begin

Diff Legend

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