* Removed unused unit and procedure

This commit is contained in:
michael 2019-04-01 09:01:51 +00:00
parent 8aaabb14c0
commit f500021bc5

View File

@ -3,7 +3,7 @@ program demowebcompiler;
{$mode objfpc}
uses
JS, Classes, SysUtils, Web, webfilecache, pas2jswebcompiler;
Classes, SysUtils, Web, webfilecache, pas2jswebcompiler;
Type
@ -184,17 +184,6 @@ function TWebCompilerDemo.CompileClick(aEvent: TJSMouseEvent): boolean;
PResult.appendChild(E);
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
args : TStrings;
Res : Boolean;