Parcourir la source

* Make 2 demos use the new unit names

Michaël Van Canneyt il y a 1 an
Parent
commit
fa46b5c9a6
2 fichiers modifiés avec 5 ajouts et 1 suppressions
  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;
 program democanvas2d;
 
 
-uses Web, Classes, JS, SysUtils;
+uses BrowserApi.Web, System.Classes, JSApi.JS, System.SysUtils;
 
 
 Type
 Type
   TForm = Class
   TForm = Class

+ 4 - 0
demo/rtl/democlasstopas.pas

@@ -1,6 +1,10 @@
 program democlasstopas;
 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;
 uses Sysutils, Types, Web, Classes, JS, browserconsole, class2pas;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 Type
 Type