ViewVC Help

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

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

Comparing ibx/trunk/runtime/nongui/IBCustomDataSet.pas (file contents):
Revision 214 by tony, Thu Mar 15 13:07:49 2018 UTC vs.
Revision 216 by tony, Thu Mar 15 17:21:13 2018 UTC

#	Line 49 | Line 49 | interface
49		uses
50		{$IFDEF WINDOWS }
51		Windows,
52	<	{$ELSE}
52	>	{$ENDIF}
53	>	{$IFDEF UNIX}
54		unix,
55		{$ENDIF}
56		SysUtils, Classes, IBDatabase, IBExternals, IB,  IBSQL, Db,
#	Line 1411 | Line 1412 | begin
1412		inherited Create;
1413		FDataSet := ADataSet;
1414		FTimer := TFPTimer.Create(nil);
1415	<	{$IF FPC_FULLVERSION >= 30002}
1415	<	FTimer.Enabled := true;
1416	<	{$IFEND}
1415	>	FTimer.Enabled := false;
1416		FTimer.Interval := 0;
1417		FTimer.OnTimer := HandleRefreshTimer;
1418		FDelayTimerValue := 0;
#	Line 1428 | Line 1427 | end;
1427
1428		procedure TIBDataLink.HandleRefreshTimer(Sender: TObject);
1429		begin
1430	<	FTimer.StopTimer;
1430	>	FTimer.Enabled := false;
1431		if FDataSet.Active then
1432		FDataSet.RefreshParams;
1433		end;
#	Line 1437 | Line 1436 | procedure TIBDataLink.SetDelayTimerValue
1436		begin
1437		if FDelayTimerValue = AValue then Exit;
1438		FDelayTimerValue := AValue;
1439	+	{$IF FPC_FULLVERSION >= 30002}
1440		FTimer.Interval := FDelayTimerValue;
1441	+	{$IFEND}
1442		end;
1443
1444		procedure TIBDataLink.ActiveChanged;
#	Line 1458 | Line 1459 | begin
1459		begin
1460		{$IF FPC_FULLVERSION >= 30002}
1461		if FDelayTimerValue > 0 then
1462	<	FTimer.StartTimer
1462	>	with FTimer do
1463	>	begin
1464	>	if Enabled then
1465	>	begin
1466	>	StopTimer;
1467	>	StartTimer;
1468	>	end
1469	>	else
1470	>	Enabled := true;
1471	>	end
1472		else
1473		{$IFEND}
1474		FDataSet.RefreshParams;

Diff Legend

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