|
@@ -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;
|