Thread: [perl-win32-gui-users] Firefox instead IE

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

Hello!

Is it possible to use Firefox instead of IE in these ActiveX components?

Waldemar

i have firefox v 1.5, then by changing the line:
-control => "Shell.Explorer.2",
with
-control => "Shell.FireFox",
and it is working the same as before.
in any case i have a problem with the -size option in AxWindow, whether i
choose -size    => [400, 400], or -size    => [10, 10], it remains the same
size of the parent window, also the vertical scroll bars does not appear
unless we choose an option:
-style =>  WS_VISIBLE | WS_VSCROLL | WS_HSCROLL, 
so the axwindow will be in a separate window you can move it.
there is a tutorial by rob may about scrollbars in:
http://blog.robmay.me.uk/search/label/perl-win32-gui
i will study it to see if it is applicable in this situation.
anyway in the html coding we can choose to display pictures to fit to
window, so i have added a checkbox if it is checked then the pictures will
be displayed to fit the window, but in this case the small pics will be
stretched so it will be ugly. so we can manage to display with this option
only if the size of the picture are bigger than the window , i have a vb6
program wich manage this. i need a way to know the size of a picture in
perl.
 i have added a menu also.
for the people who say why we need a webbrowser to display pictures, i say
that the animated pictures are not displayed correctly by most images
viewers , try this picture of an animated  crocroach:
http://img145.imageshack.us/my.php?image=cockroachzm9.gif
only in a webbrowser it is displayed correctly.

the modified program:

use strict;
use warnings;
use Cwd;
use Win32::GUI qw(WS_VISIBLE WS_VSCROLL WS_HSCROLL WS_CHILD
WS_CLIPCHILDREN);
use Win32::OLE;
use Win32::GUI::AxWindow;
sub CSIDL_DRIVES() {17}

# Define the application menu
my @menu_defn = (
    "File"  => "Folder",
    ">OpenFolder" => { -name => "OpenFolder", -onClick => \&OpenFolder}
);
my $menu = Win32::GUI::Menu->new(@menu_defn);
my $dir;
my $OLEControl;
my $pic;
my $desk = Win32::GUI::GetDesktopWindow();
my $dw = Win32::GUI::Width($desk);
my $dh = Win32::GUI::Height($desk);
# main Window
my $Window = new Win32::GUI::Window (
    -title    => "Win32::GUI::AxWindow and Win32::OLE",
    -pos     => [0, 0],
    -size    => [$dw, $dh],
    -name     => "Window",
    -menu  => $menu,
    -vscroll => 1,
    -hscroll => 1,

) or die "new Window";
# Create AxWindow
my $Control = new Win32::GUI::AxWindow  (
               -parent  => $Window,
               -name    => "Control",
               -pos     => [126, 0],
               -size    => [400, 400],
               -control => "Shell.Explorer.2",

               -style =>  WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_HSCROLL,
               #choose the line below if you want a separate axwindow
               #-style =>  WS_VISIBLE | WS_VSCROLL | WS_HSCROLL, 

 ) or die "new Control";
# Register Event
$Control->RegisterEvent ("DocumentComplete", "DocumentComplete_Event" );

my $PicList = $Window->AddListbox(
 -name   => "PicList",
 -top    => 0,
 -left   => 0,
 -width  => 125,
 -height => 110,
 -addstyle  => WS_VISIBLE | WS_VSCROLL,

);
my $checkbox = $Window->AddCheckbox(
       -text    => "",
       -name    => "Checkbox1",
       -left    => 3,
       -top     => 150,
       -width   => 30,
       -height  => 30,
      );

#Show application window
$Window->Show();

#Enter event loop
Win32::GUI::Dialog();

#Hide windows on exit
$Window->Hide();
undef $Window;
exit(0);
# Event handler
sub DocumentComplete_Event { 

  $OLEControl->{Document}->write($pic); # Write Html

} 

sub PicList_Click {
    my $ListSelection = $PicList->SelectedItem();
    my $selectedPic = $PicList->GetString($ListSelection);
    my $picture = $dir . '/' . $selectedPic;
   # Get Ole object
   $OLEControl = $Control->GetOLE();
   $OLEControl->Navigate("about:Blank");  # Clear control
   if($checkbox->GetCheck() != 0 ) { 
 $pic = "<html><body> $picture </body></html>";
} 
else{
$pic = "<html><body> $picture </body></html>";
}
return 0;

}
sub OpenFolder {
       $dir = Win32::GUI::BrowseForFolder(
        -title      => "Select a drive",
        #-folderonly => 1,
        #-includefiles => 1,
        -editbox => 0,
        -root       => CSIDL_DRIVES,
);
$PicList -> Reset(); #erase the contents of PicList
#read the contents of the folder and assign it to @files

opendir DH, $dir or die "Cannot open $dir: $!";
my @files = grep { ! -d } readdir DH;
closedir DH;
#choose only jpg or gif files
my @picFiles = grep /.+\.jpg|gif/,@files;
# work with @files
foreach my $item (@picFiles)
{ 
$PicList->Add($item);
}
return 0;
}

# Main window event handler

sub Window_Terminate {

  # Release all before destroy window
  undef $OLEControl;
  $Control->Release();

  return -1;
}
sub Window_Resize {

  if (defined $Window) {
    my($width, $height) = ($Window->GetClientRect)[2..3];
    $Control->Resize ($width, $height);
  }
}

__END__

Waldemar Biernacki wrote:
> 
> Hello!
> 
> Is it possible to use Firefox instead of IE in these ActiveX components?
> 
> Waldemar
> 
> 
> 
> 
> -------------------------------------------------------------------------
> This SF.Net email is sponsored by the Moblin Your Move Developer's
> challenge
> Build the coolest Linux based applications with Moblin SDK & win great
> prizes
> Grand prize is a trip for two to an Open Source event anywhere in the
> world
> http://moblin-contest.org/redirect.php?banner_id=100&url=/
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
> 
> 

-- 
View this message in context: http://www.nabble.com/Firefox-instead-IE-tp18594576p18607954.html
Sent from the perl-win32-gui-users mailing list archive at Nabble.com.

On Wed, Jul 23, 2008 at 12:36 PM, Glenn Linderman <pe...@ne...> wrote:
> On approximately 7/23/2008 3:45 AM, came the following characters from
> the keyboard of glass:
>>  i have added a menu also.
>> for the people who say why we need a webbrowser to display pictures, i say
>> that the animated pictures are not displayed correctly by most images
>> viewers , try this picture of an animated  crocroach:
>> http://img145.imageshack.us/my.php?image=cockroachzm9.gif
>> only in a webbrowser it is displayed correctly.
>
>
> I've never used AxWindow, so I can't help with that.  I'd be interested
> to know, though, if AxWindow can be used to display IrfanView Windows.
>
> Your statement that an animated cockroach cannot be displayed correctly
> in anything but a webbrowser is false, however.  After digging past the
> HTML you pointed to in your link to find the actual .gif file, I was
> able to download and display the cockroach in IrfanView just fine.
> Looks the same as in SeaMonkey browser (which shares the same display
> code as Firefox).
>
> So IrfanView is a much lighter-weight application to load than Firefox,
> and likely much more secure than either Firefox or any other web
> browser, if your goal is just to display images.  A startup parameter
> allows scaling of the image to any size window (fit image to window).

The Win32-GUI wiki also includes this tip on displaying animated GIFs
using ImageMagick:
http://perl-win32-gui.sourceforge.net/cgi-bin/wiki.cgi?Displaying_Animated_GIFs_Using_ImageMagick

I'd imagine this would be more efficient than using an AxWindow
running any external application, although I haven't done any
profiling to prove it.