Browse Source

* Use wasm timer

Michaël Van Canneyt 5 months ago
parent
commit
11ebd255b9
1 changed files with 9 additions and 1 deletions
  1. 9 1
      src/base/fresnel.cursortimer.pp

+ 9 - 1
src/base/fresnel.cursortimer.pp

@@ -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 }