瀏覽代碼

* Make 2 demos use the new unit names

Michaël Van Canneyt 1 年之前
父節點
當前提交
fa46b5c9a6
共有 2 個文件被更改,包括 5 次插入1 次删除
  1. 1 1
      demo/rtl/democanvas2d.pas
  2. 4 0
      demo/rtl/democlasstopas.pas

+ 1 - 1
demo/rtl/democanvas2d.pas

@@ -1,6 +1,6 @@
 program democanvas2d;
 
-uses Web, Classes, JS, SysUtils;
+uses BrowserApi.Web, System.Classes, JSApi.JS, System.SysUtils;
 
 Type
   TForm = Class

+ 4 - 0
demo/rtl/democlasstopas.pas

@@ -1,6 +1,10 @@
 program democlasstopas;
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses System.SysUtils, System.Types, BrowserApi.Web, System.Classes, JSApi.JS, Browser.Console, System.Class2Pas;
+{$ELSE FPC_DOTTEDUNITS}
 uses Sysutils, Types, Web, Classes, JS, browserconsole, class2pas;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Type