# | Line 284 | Line 284 | procedure TCustomIBLocalDBSupport.OnBefo | |
---|---|---|
284 | begin | |
285 | if not Enabled or (csDesigning in ComponentState) then Exit; | |
286 | ||
287 | < | if not FirebirdAPI.IsEmbeddedServer then |
287 | > | if not assigned(Database) or not Database.FirebirdAPI.IsEmbeddedServer then |
288 | raise EIBLocalFatalError.Create(sNoEmbeddedServer); | |
289 | ||
290 | DBName := GetDBNameAndPath; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |