Yeah, include a Javascript file;
<SCRIPT LANGUAGE="JavaScript">
var mypopup=null
function popup(URL, winW, winH) {
var winwidth = winW;
var winheight = winH;
var winleft = 125;
var wintop = 75;
if ( mypopup && !mypopup.closed )
{ mypopup.close();
}
mypopup = window.open(URL, "pic",
'scrollbars=0,menubar=1,resizable=0,background=white,toolbar=0,status=0,top=
' + wintop + ',left=' + winleft + 'screenX=' + wintop + ',screenY=' +
winleft + ',height=' + winheight + ',width=' + winwidth);
}
</SCRIPT>
Call it this way;
<a href="javascript:popup('../images/rodrun15.jpg','440','305')" target=main
border=0 onmouseout="status='';" onmouseover="status=''; return true;"><IMG
hspace="5" vspace="5" alt="" border=0 src="../Images/rodrun15.gif"
width=142></a>
Of course this is pure HTML, you know how to Perl this...
Mark
-----Original Message-----
From: Carl Erikson <[EMAIL PROTECTED]>
To: [EMAIL PROTECTED]
<[EMAIL PROTECTED]>
Date: Sunday, December 03, 2000 2:32 PM
Subject: Supressing scrollbars in windows
>Hello, I am using automation of Internet Explorer to navigate to particular
>web pages. However, I would like the IE window to contain no frills -
i.e.,
>no address bar, no menu bar, no scroll bars, etc. I can get rid of most of
>these things, but I am having a problem suppressing the scrollbars of a
>window. The following is a perl script which will bring up an IE window
and
>you will see that a vertical scroll bar remains. I try suppressing it
using
>Win32::API and calling the Win32 functions EnableScrollBar and
>ShowScrollBar, but I've had no luck so far. Any suggestions?
>
>Thanks,
>Carl Erikson
>
>PS - This script requires Tk, Win32::API, Win32::OLE, Win32::OLE::Const
>
>---------------------------------------------------------------------------
-
>-----------------------
># Opens up an instance of MSIE and navigates to a particular web page. I
>would
># like the web page to not show a vertical scrollbar but my attempts at
># supressing it have failed.
>
>use Tk;
>use Win32::API;
>use Win32::OLE;
>use Win32::OLE::Const;
>
>my $SB_BOTH = 3;
>my $ESB_DISABLE_BOTH = 3;
>
>my $ShowScrollBar = new Win32::API( "User32", "ShowScrollBar",
> ['N', 'I', 'I'], 'I' );
>my $EnableScrollBar = new Win32::API( "User32", "EnableScrollBar",
> ['N', 'I', 'I'], 'I' );
>
>my $ie = Win32::OLE->new( 'InternetExplorer.Application',
> sub{ $_[0]->Quit; } )
> || die "Cannot start InternetExplorer";
>
># Change properties of IE so that you get a basic window with no frills
>$ie->{ 'menubar' } = 0;
>$ie->{ 'addressbar' } = 0;
>$ie->{ 'toolbar' } = 0;
>$ie->{ 'statusbar' } = 0;
>$ie->{ 'resizable' } = 0;
>
>$ShowScrollBar->Call( $ie->{ 'hwnd' }, $SB_BOTH, 0 );
>$EnableScrollBar->Call( $ie->{ 'hwnd' }, $SB_BOTH, $ESB_DISABLE_BOTH );
>
>$ie->{ 'width' } = 290;
>$ie->{ 'height' } = 571;
>$ie->{ 'visible' } = 1;
>
># Load InternetExplorer constants
>my $const = Win32::OLE::Const->Load( $ie );
>
>$ie->Navigate( "http://www.isld.com/BookViewer/javabook.htm" );
>
># Wait for the page to finish downloading
>while ($ie->{ ReadyState } != $const->{ READYSTATE_COMPLETE }) {};
>
># Tk stuff
>my $win = MainWindow->new;
>$win->geometry( "=+0+0" );
>$win->title( "Ex" );
>
>my $button = $win->Button( "-text" => "Exit",
> "-width" => 10,
> "-height" => 2 );
>$button->bind( "<ButtonRelease-1>", \&Exit );
>$button->OnDestroy( \&DestroyExit );
>$button->pack;
>
># Start Tk
>MainLoop;
>
>
># The exit button was pressed
>sub Exit {
> # Must call the Tk version of exit
> Tk::exit;
>}
>
># Clean up IE
>sub DestroyExit {
> $ie->Quit();
>}
>
>
>
>
>_______________________________________________
>Perl-Win32-Web mailing list
>[EMAIL PROTECTED]
>http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
>
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
