| 324 |
|
IBBatchMove, DBLoginDlg, IBExtract,LResources, IBSelectSQLEditor, |
| 325 |
|
IBModifySQLEditor,IBDeleteSQLEditor,IBRefreshSQLEditor, |
| 326 |
|
IBInsertSQLEditor, IBGeneratorEditor, IBUpdateSQLEditor, IBDataSetEditor, |
| 327 |
< |
IBSQLEditor, ibserviceeditor; |
| 327 |
> |
IBSQLEditor, ibserviceeditor, LCLVersion; |
| 328 |
|
|
| 329 |
|
|
| 330 |
|
|
| 331 |
|
procedure Register; |
| 332 |
|
begin |
| 333 |
< |
if not TryIBLoad then Exit; |
| 333 |
> |
if not TryIBLoad then |
| 334 |
> |
begin |
| 335 |
> |
MessageDlg('IBX is unable to locate the Firebird Library - have you remembered to install it?',mtError,[mbOK],0); |
| 336 |
> |
Exit; |
| 337 |
> |
end; |
| 338 |
|
|
| 339 |
|
RegisterNoIcon([TIBStringField, TIBBCDField]); |
| 340 |
+ |
{$if lcl_fullversion < 01010000} |
| 341 |
+ |
{see http://bugs.freepascal.org/view.php?id=19035 } |
| 342 |
|
RegisterNoIcon([TIntegerField]); |
| 343 |
+ |
{$endif} |
| 344 |
|
RegisterComponents(IBPalette1, [ TIBQuery, TIBDataSet, |
| 345 |
|
TIBDatabase, TIBTransaction, TIBUpdateSQL, TIBEvents, |
| 346 |
|
TIBSQL, TIBDatabaseInfo, TIBSQLMonitor, |
