|
@@ -6,12 +6,20 @@ unit Fresnel.CursorTimer;
|
|
interface
|
|
interface
|
|
|
|
|
|
uses
|
|
uses
|
|
- Classes, SysUtils, fptimer;
|
|
|
|
|
|
+ Classes, SysUtils
|
|
|
|
+ {$ifdef cpuwasm}
|
|
|
|
+ , wasm.timer.objects
|
|
|
|
+ {$else}
|
|
|
|
+ , fptimer
|
|
|
|
+ {$endif};
|
|
|
|
|
|
type
|
|
type
|
|
IBlinkControl = Interface
|
|
IBlinkControl = Interface
|
|
procedure blink(aVisible : boolean);
|
|
procedure blink(aVisible : boolean);
|
|
end;
|
|
end;
|
|
|
|
+ {$IFDEF CPUWASM}
|
|
|
|
+ TFPTimer = TTimer;
|
|
|
|
+ {$ENDIF}
|
|
|
|
|
|
{ TCursorTimer }
|
|
{ TCursorTimer }
|
|
|
|
|