mirror of
https://gitlab.com/freepascal.org/fpc/pas2js.git
synced 2025-08-25 03:59:09 +02:00
* Removed unused unit and procedure
This commit is contained in:
parent
8aaabb14c0
commit
f500021bc5
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user