ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/runtime/nongui/IBCustomDataSet.pas
(Generate patch)

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

# Line 49 | Line 49 | interface
49   uses
50   {$IFDEF WINDOWS }
51    Windows,
52 < {$ELSE}
53 <  unix,
52 > {$ENDIF}
53 > {$IFDEF UNIX}
54 >  cthreads, unix,
55   {$ENDIF}
56    SysUtils, Classes, IBDatabase, IBExternals, IB,  IBSQL, Db,
57    IBUtils, IBBlob, IBSQLParser, IBDatabaseInfo, fpTimer;
# 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 1458 | Line 1457 | begin
1457    begin
1458      {$IF FPC_FULLVERSION >= 30002}
1459      if FDelayTimerValue > 0 then
1460 <      FTimer.StartTimer
1460 >    with FTimer do
1461 >    begin
1462 >      if Enabled then
1463 >      begin
1464 >        StopTimer;
1465 >        StartTimer;
1466 >      end
1467 >      else
1468 >        Enabled := true;
1469 >    end
1470      else
1471      {$IFEND}
1472        FDataSet.RefreshParams;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines