| 417 |
|
|
| 418 |
|
implementation |
| 419 |
|
|
| 420 |
< |
uses IB, IBQuery, IBStoredProc, IBCustomDataSet, FBMessages, |
| 421 |
< |
IBSQL, IBSQLMonitor, IBDatabaseInfo, IBEvents, IBTypes, |
| 420 |
> |
uses IB, IBQuery, IBStoredProc, IBCustomDataSet, IBMessages, |
| 421 |
> |
IBSQL, IBSQLMonitor, IBDatabaseInfo, IBEvents, IBInternals, |
| 422 |
|
IBServices, IBXServices, IBDatabaseEdit, IBTransactionEdit, |
| 423 |
|
IBBatchMove, IBExtract,LResources, IBSelectSQLEditor, |
| 424 |
|
IBModifySQLEditor,IBDeleteSQLEditor,IBRefreshSQLEditor, |
| 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} |
| 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, |
| 466 |
< |
TIBSmallintField, TIBIntegerField, TIBLargeIntField]); |
| 467 |
< |
{$if lcl_fullversion < 01010000} |
| 466 |
> |
TIBSmallintField, TIBIntegerField, TIBLargeIntField, TIBDateTimeField, |
| 467 |
> |
TIBTimeField]); |
| 468 |
> |
{$if not declared(TIntegerField)} |
| 469 |
|
{see http://bugs.freepascal.org/view.php?id=19035 } |
| 470 |
|
RegisterNoIcon([TIntegerField]); |
| 471 |
|
{$endif} |
| 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 |
