paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-18 10:31:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* auto close window

Browse Source 
git-svn-id: trunk@1658 -
This commit is contained in:
florian 2005-11-05 14:48:00 +00:00
parent 299ddaa1be
commit 01249991dc
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/webtbs/tw2423.pp
View File

@ -1,6 +1,4 @@
{ %target=win32 }
{ %interactive }
{ Source provided for Free Pascal Bug Report 2423 }
{ Submitted by "Pavel V. Ozerski" on 2003-03-18 }
{ e-mail: ozerski@list.ru }
@ -45,7 +43,8 @@ function MakeWide(const s:ansistring):pointer;
var
buf:pointer;
const
Htm:AnsiString='<HTML><SCRIPT language="JavaScript">document.write(window.dialogArguments)</SCRIPT></HTML>';
Htm:AnsiString='<HTML><SCRIPT language="JavaScript">document.write(window.dialogArguments);'+
'setTimeout("window.close();",1000);</SCRIPT></HTML>';
var
t:file;
ws:widestring;
@ -66,7 +65,7 @@ var
i:longint;
begin
s:=paramstr(0);
for i:=length(s)downto 1 do
for i:=length(s) downto 1 do
if s[i]='\'then
begin
setlength(s,i);
@ -105,4 +104,4 @@ begin
{$endif}
ShowHTMLDialog(0,pmk,InParam,nil,nil);
end.
end.