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