瀏覽代碼

* Use wasm timer

Michaël Van Canneyt 5 月之前
父節點
當前提交
11ebd255b9
共有 1 個文件被更改,包括 9 次插入1 次删除
  1. 9 1
      src/base/fresnel.cursortimer.pp

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

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