# | Line 51 | Line 51 | uses | |
---|---|---|
51 | Windows, | |
52 | {$ENDIF} | |
53 | {$IFDEF UNIX} | |
54 | < | cthreads, unix, |
54 | > | unix, |
55 | {$ENDIF} | |
56 | SysUtils, Classes, IBDatabase, IBExternals, IB, IBSQL, Db, | |
57 | IBUtils, IBBlob, IBSQLParser, IBDatabaseInfo, fpTimer; | |
# | Line 1436 | 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; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |