ViewVC Help

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

root/public/ibx/trunk/runtime/nongui/IBTable.pas

Comparing ibx/trunk/runtime/nongui/IBTable.pas (file contents):
Revision 217 by tony, Fri Mar 16 10:27:26 2018 UTC vs.
Revision 221 by tony, Mon Mar 19 09:48:37 2018 UTC

#	Line 222 | Line 222 | begin
222		FDelayTimerValue := AValue;
223		{$IF FPC_FULLVERSION >= 30002}
224		if (AValue > 0) and not IsMultiThread then
225	<	IBError(ibxMultiThreadRequired,['TIBTable MasterDetailDelay']);
225	>	IBError(ibxeMultiThreadRequired,['TIBTable MasterDetailDelay']);
226		FTimer.Interval := FDelayTimerValue;
227		{$IFEND}
228		end;
229
230		procedure TIBMasterDataLink.DoMasterChange;
231		begin
232	–	if FDelayTimerValue = 0 then
233	–	inherited DoMasterChange
232		{$IF FPC_FULLVERSION >= 30002}
233	<	else
233	>	if FDelayTimerValue > 0 then
234		with FTimer do
235		begin
236		CheckSynchronize; {Ensure not waiting on Synchronize}
#	Line 244 | Line 242 | begin
242		else
243		Enabled := true;
244		end
245	+	else
246		{$IFEND}
247	+	inherited DoMasterChange
248		end;
249
250		constructor TIBMasterDataLink.Create(ADataSet: TDataSet);

Diff Legend

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