Browse Source

* Removed unused unit and procedure

michael 6 years ago
parent
commit
f500021bc5
1 changed files with 1 additions and 12 deletions
  1. 1 12
      demo/webcompiler/demowebcompiler.lpr

+ 1 - 12
demo/webcompiler/demowebcompiler.lpr

@@ -3,7 +3,7 @@ program demowebcompiler;
 {$mode objfpc}
 {$mode objfpc}
 
 
 uses
 uses
-  JS, Classes, SysUtils, Web, webfilecache, pas2jswebcompiler;
+  Classes, SysUtils, Web, webfilecache, pas2jswebcompiler;
 
 
 Type
 Type
 
 
@@ -184,17 +184,6 @@ function TWebCompilerDemo.CompileClick(aEvent: TJSMouseEvent): boolean;
     PResult.appendChild(E);
     PResult.appendChild(E);
   end;
   end;
 
 
-  Procedure ShowSuccess;
-  Var
-    E : TJSHTMLElement;
-
-  begin
-    E:=TJSHTMLElement(document.createElement('div'));
-    E['class']:='alert alert-success alert-dismissible fade in';
-    E.innerHTML:='<strong>Succes!</strong> program compiled succesfully';
-    PResult.appendChild(E);
-  end;
-
 Var
 Var
   args : TStrings;
   args : TStrings;
   Res : Boolean;
   Res : Boolean;