perl-win32-gui-users Mailing List for Win32::GUI

Hello,

Let me preface my question by saying that I haven't used Win32::GUI very
much, so I might be missing something obvious.

 

I want to create a borderless window (splash screen) and have done so using
the -style option when creating the new window.

Unfortunately, this option is deprecated, and I get a message informing me
of that fact whenever I run the application.

Looking at the documentation, it appeared that I could use the -pushstyle of
-addstyle option when creating the window. However, the window has a border
when either of these options is used.

Can anyone point out the error of my ways?  Actual code is below.

Thanks, Ken Slater

 

use strict;

use warnings;

use File::Basename;

use Getopt::Long;

use Win32::API;

use Win32::GUI();

use Win32::GUI::Constants;

 

use Win32::OLE('in');

 

my ( $runDir );

BEGIN

{

   $runDir = Win32::GetFullPathName(dirname($0));

}

 

my ($help, %options, %overridingOptions);

$options{iniFile} = "$runDir/stayOnTop.ini";

 

 

my ($execname) = fileparse( "$0", '' );

 

sub usage

{

    print STDERR <<USAGE;

 

$execname ...

 

USAGE

    return 0;

} # end sub usage

 

 

GetOptions( "ini=s"   => \$options{iniFile},

            "bg=s"    => \$overridingOptions{backgroundFile},

            "t=i"     => \$overridingOptions{timeout},

            "h!"      => \$help,

            "help!"   => \$help);

if ( $help )

{

   usage;

   exit 0;

}

 

pullSettings();

 

use constant wbemFlagReturnImmediately => 0x10;

use constant wbemFlagForwardOnly => 0x20;

 

#------------------------------------------------------------

#  Get height and width of display

#------------------------------------------------------------

my $computer = ".";

my $objWMIService = Win32::OLE->GetObject

    ("winmgmts:\\\\$computer\\root\\CIMV2")

   or die "WMI connection failed.\n";

my $colItems = $objWMIService->ExecQuery

    ("SELECT * FROM Win32_VideoController","WQL",

     wbemFlagReturnImmediately | wbemFlagForwardOnly);

 

my ( $screenWidth, $screenHeight );

 

foreach my $objItem (in $colItems)

{

      $screenWidth  = $objItem->{CurrentHorizontalResolution};

      $screenHeight = $objItem->{CurrentVerticalResolution};

}

 

#------------------------------------------------------------

#  Create GUI Window

#------------------------------------------------------------

my $WS_POPUP = Win32::GUI::Constants::constant('WS_POPUP');

my $mw = Win32::GUI::Window->new(

                -title => 'NOBORDER (I hope)',

        -bg  => 'black',

                -pos => [0,0],

                -size => [$screenWidth,$screenHeight],

        #  The -stype option was added to make borderless

        #  windows. Get a warning that this option is deprecated.

        -style => $WS_POPUP,

        #

        #  Neither addstyle or pushstyle seem to get rid of the border

        #-addstyle  => $WS_POPUP,

        #-pushstyle => $WS_POPUP,

);

 

#------------------------------------------------------------

#  Force this window to stay on top of other windows.

#------------------------------------------------------------

my $HWND_TOPMOST = Win32::GUI::Constants::constant('HWND_TOPMOST');

my $SWP_NOSIZE   = Win32::GUI::Constants::constant('SWP_NOSIZE');

my $SWP_NOMOVE   = Win32::GUI::Constants::constant('SWP_NOMOVE');

 

$mw->SetWindowPos($HWND_TOPMOST,0,0,$screenWidth,$screenHeight,

                  $SWP_NOSIZE|$SWP_NOMOVE);

 

#------------------------------------------------------------

#  Set the timer to exit this application after the specified

#  number of milliseconds.

#------------------------------------------------------------

$options{timeout} = 5000 unless defined($options{timeout});

my $t1 = $mw->AddTimer('T1', $options{timeout});

 

#------------------------------------------------------------

#  Set up the image to be displayed on the screen

#------------------------------------------------------------

my $bitmap = Win32::GUI::Bitmap->new($options{backgroundFile},

                                    0,$screenWidth,$screenHeight);

 

#create a label in which the bitmap will be placed

my $bitmapLabel = $mw->AddLabel(

    -name     => "Bitmap",

    -left     => 0,

    -top      => 0,

    -width    => $screenWidth,

    -height   => $screenHeight,

    -bitmap   => $bitmap,

);

 

#------------------------------------------------------------

#  Display the window

#------------------------------------------------------------

$mw->Show();

Win32::GUI::Dialog();

 

#------------------------------------------------------------

# Subroutine called when timer expires

#------------------------------------------------------------

sub T1_Timer

{

   exit;

}

 

sub pullSettings

{

   local $/ = undef;

   open my $INIFH, '<', $options{iniFile} or do

   {

      Win32::MsgBox("FATAL: Unable to open $options{iniFile}: $^E",

                    0, "StayOnTop.pl");

      exit;

   };

   my $lines = <$INIFH>;

   close $INIFH;

 

   my $re = qr{<([^/][^>]+)>\s*([^<]+)};

   %options = $lines =~ /$re/gs;

 

   foreach my $key ( keys %options )

   {

      $options{$key} = $overridingOptions{$key}

         if defined($overridingOptions{$key});

   }

}