ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/runtime/IBEvents.pas

Comparing ibx/trunk/runtime/IBEvents.pas (file contents):
Revision 7 by tony, Sun Aug 5 18:28:19 2012 UTC vs.
Revision 33 by tony, Sat Jul 18 12:30:52 2015 UTC

#	Line 54 | Line 54 | uses
54		{$ELSE}
55		unix,
56		{$ENDIF}
57	<	Classes, Graphics, Controls,
58	<	Forms, Dialogs, IBHeader, IBExternals, IB, IBDatabase;
57	>	Classes, IBHeader, IBExternals, IB, IBDatabase;
58
59		const
60		MaxEvents = 15;
#	Line 106 | Line 105 | type
105		implementation
106
107		uses
108	<	IBIntf, syncobjs;
108	>	IBIntf, syncobjs, SysUtils;
109
110		type
111
#	Line 254 | Line 253 | begin
253		if (Status[i] <> 0) and not CancelAlerts then
254		FOwner.FOnEventAlert( self, FEvents[i], Status[i], CancelAlerts);
255		except
256	<	Application.HandleException( nil);
256	>	FOwner.FBase.HandleException(Self)
257		end;
258		end;
259		end;

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines