-
Notifications
You must be signed in to change notification settings - Fork 1
/
delay.pas
76 lines (62 loc) · 1.2 KB
/
delay.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
unit delay;
interface
uses
// FireMonkey
FMX.Types;
type
IDelay = interface
procedure &Set(proc: TTimerProc; interval: Cardinal);
end;
function Create: IDelay;
implementation
uses
// FireMonkey
FMX.Platform;
type
TDelay = class(TInterfacedObject, IDelay)
private
FHandle: TFmxHandle;
FProc: TTimerProc;
FTimer: IFMXTimerService;
procedure Timer;
public
constructor Create;
destructor Destroy; override;
procedure &Set(proc: TTimerProc; interval: Cardinal);
procedure Clear;
end;
constructor TDelay.Create;
begin
inherited Create;
FHandle := cIdNoTimer;
FTimer := TPlatformServices.Current.GetPlatformService(IFMXTimerService) as IFMXTimerService;
end;
destructor TDelay.Destroy;
begin
Clear;
inherited Destroy;
end;
procedure TDelay.Timer;
begin
Clear;
if Assigned(FProc) then FProc;
end;
procedure TDelay.&Set(proc: TTimerProc; interval: Cardinal);
begin
Clear;
FProc := Proc;
FHandle := FTimer.CreateTimer(interval, Timer);
end;
procedure TDelay.Clear;
begin
if FHandle <> cIdNoTimer then
begin
FTimer.DestroyTimer(FHandle);
FHandle := cIdNoTimer;
end;
end;
function Create: IDelay;
begin
Result := TDelay.Create;
end;
end.