# | Line 37 | Line 37 | unit FBActivityMonitor; | |
---|---|---|
37 | interface | |
38 | ||
39 | uses | |
40 | < | Classes, SysUtils, IBExternals, IB; |
40 | > | Classes, SysUtils, IBExternals; |
41 | ||
42 | { $DEFINE DEBUGINTERFACES} {Define this to check that all interfaces are | |
43 | being destroyed.} | |
# | Line 91 | Line 91 | type | |
91 | reports.} | |
92 | ||
93 | IActivityMonitor = interface | |
94 | + | ['{8261840a-741b-4c1c-94ea-c5c66ba72f22}'] |
95 | procedure AddObject(obj: TInterfacedObject); | |
96 | procedure Remove(intf: TInterfacedObject); | |
97 | procedure SignalActivity; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |