| # | Line 113 | Line 113 | procedure TIBEvents.ValidateDatabase( Da | |
|---|---|---|
| 113 | begin | |
| 114 | if not assigned( Database) then | |
| 115 | IBError(ibxeDatabaseNameMissing, [nil]); | |
| 116 | + | if csDesigning in ComponentState then Exit; |
| 117 | if not Database.Connected then | |
| 118 | IBError(ibxeDatabaseClosed, [nil]); | |
| 119 | end; | |
| # | Line 267 | Line 268 | begin | |
| 268 | begin | |
| 269 | FEventIntf := nil; | |
| 270 | FRegistered := false; | |
| 271 | + | FStartEvent := true; |
| 272 | end; | |
| 273 | end; | |
| 274 | ||
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |