Re: [perl-win32-gui-users] Default Window Background Colour
All, Just repeating some off-list communication, v 1.11 has fixed the black background problem. Regards, Glenn On Saturday, 8 November 2014, kmx k...@atlas.cz wrote: Hopefully fixed in https://metacpan.org/release/KMX/Win32-GUI-1.11 Version 1.10 intentionally skipped due to trailing zero troubles in 97_Version.t -- kmx On 8.11.2014 11:23, Glenn Munroe wrote: Thanks, kmx. I just downloaded, and installed, versions 1.07 and 1.08 to check. The change was from 1.08 to 1.09. That may help narrow the search a little. Regards, Glenn On Saturday, 8 November 2014, kmx k...@atlas.cz javascript:_e(%7B%7D,'cvml','k...@atlas.cz'); wrote: Well, that might be introduced by this change I have made when trying to polish misc. pointer related issues: - wcx.hbrBackground = (HBRUSH) SvCOLORREF(NOTXSCALL ST(next_i));+ wcx.hbrBackground = CreateSolidBrush(SvCOLORREF(NOTXSCALL ST(next_i))); I'll try to investigate. -- kmx On 8.11.2014 9:23, Glenn Munroe wrote: First off, thanks to KMX for his latest work on this project; it had gone kind of quiet recently. I just upgraded from 1.06 to the new 1.09. Running ActivePerl, I see a change in default main window background colour. The hello world example in the tutorial used to look like the attachment HelloWorld_106.png, but now looks like HelloWorld_109.png (if the attachments don't come through, the window background has changed from the same grey as the label to black). Do others see this? Is there an easy fix for it? Glenn -- ___ Perl-Win32-GUI-Users mailing list Perl-Win32-GUI-Users@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users http://perl-win32-gui.sourceforge.net/
Re: [perl-win32-gui-users] Default Window Background Colour
Thanks, kmx. I just downloaded, and installed, versions 1.07 and 1.08 to check. The change was from 1.08 to 1.09. That may help narrow the search a little. Regards, Glenn On Saturday, 8 November 2014, kmx k...@atlas.cz wrote: Well, that might be introduced by this change I have made when trying to polish misc. pointer related issues: - wcx.hbrBackground = (HBRUSH) SvCOLORREF(NOTXSCALL ST(next_i));+ wcx.hbrBackground = CreateSolidBrush(SvCOLORREF(NOTXSCALL ST(next_i))); I'll try to investigate. -- kmx On 8.11.2014 9:23, Glenn Munroe wrote: First off, thanks to KMX for his latest work on this project; it had gone kind of quiet recently. I just upgraded from 1.06 to the new 1.09. Running ActivePerl, I see a change in default main window background colour. The hello world example in the tutorial used to look like the attachment HelloWorld_106.png, but now looks like HelloWorld_109.png (if the attachments don't come through, the window background has changed from the same grey as the label to black). Do others see this? Is there an easy fix for it? Glenn -- ___ Perl-Win32-GUI-Users mailing listperl-win32-gui-us...@lists.sourceforge.net javascript:_e(%7B%7D,'cvml','Perl-Win32-GUI-Users@lists.sourceforge.net');https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-usershttp://perl-win32-gui.sourceforge.net/ -- ___ Perl-Win32-GUI-Users mailing list Perl-Win32-GUI-Users@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users http://perl-win32-gui.sourceforge.net/
Re: [perl-win32-gui-users] Borderless Main Window
Ken,
Rob May has written a module for creating splash screens that you may find
useful:
http://search.cpan.org/~robertmay/Win32-GUI-SplashScreen-0.04/http://search.cpan.org/%7Erobertmay/Win32-GUI-SplashScreen-0.04/
Regards,
Glenn Munroe
On 5 March 2010 23:53, Kevin Marshall kejoh...@hotmail.com wrote:
Ken,
Instead of using -pushstyle, you need to use -popstyle. As for the
constants needed, you will need to use WS_CAPTION to remove the title bar
and WS_THICKFRAME to remove the window's sizing border. Here is an example:
$splash = Win32::GUI::Window-new(
-name = 'splash',
-size = [200,200],
-popstyle = WS_CAPTION | WS_THICKFRAME,
);
__END__
There are a number of other window constants that can be used when creating
a splash window. If you have the Windows SDK, you can check the
documentation for a full list.
Hope this helps,
Kevin.
--
Date: Fri, 5 Mar 2010 14:44:24 -0500
From: kl...@psu.edu
To: perl-win32-gui-users@lists.sourceforge.net
Subject: [perl-win32-gui-users] Borderless Main Window
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
Re: [perl-win32-gui-users] camel
Rob,
I wasn't sure if you were actively maintaining that module or not, but
I'm getting deprecated usage warnings because of the 'use Win32::GUI;'
line. I imagine that will be easy to fix if you're cracking it open to
fix the typo.
Cheers,
Glenn
PS Apologies if this doesn't get posted to the list; I work offshore and
the Network Nazis block POP3 access, so I can't use my normal email
address, and then Sourceforge complains about that...
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Robert May
Sent: 24 May 2007 13:52
To: Geoffrey Spear
Cc: Perl-Win32-GUI-Users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] camel
On 24/05/07, Geoffrey Spear [EMAIL PROTECTED] wrote:
$path = $ENV{PAR_TEMP} . /inc if exists $ENV{PAR_TMP};
I'd be interested to know if it still works :-)
It does, except you've got a typo in the second PAR_TEMP that just
hurt my brain trying to figure out why $path wasn't getting set. It
works fine now that I found that. Thanks!
Oops! That's a bug in Win32::GUI::SplashScreen - I'll have to make
sure that gets fixed.
Thanks,
Rob.
-
This SF.net email is sponsored by DB2 Express
Download DB2 Express C - the FREE version of DB2 express and take
control of your XML. No limits. Just data. Click to get it now.
http://sourceforge.net/powerbar/db2/
___
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/
RE: [perl-win32-gui-users] Treeview - Sort()/SortChildren()
Hello Steve,
Does this work for you?
==
#!perl -w
use strict;
use Win32::GUI;
my $obMW = new Win32::GUI::Window(
-name = mw,
-text = TreeView,
-pos = [ 100, 100 ],
-size = [ 200, 200 ],
);
my $obTV = $obMW-AddTreeView(
-name = Tree,
-pos = [ 0, 0 ],
-size = [ 190, 120 ],
-buttons = 1,
-lines = 1,
-rootlines = 1,
);
$obTV-InsertItem(-text = D);
$obTV-InsertItem(-text = X);
$obTV-InsertItem(-text = A);
$obTV-InsertItem(-text = R);
$obMW-AddButton(
-name = btSort,
-text = Sort,
-size = [80, 24],
-pos = [60, 140],
-onClick = sub { $obTV-Sort(0); 1 },
);
$obMW-Show;
Win32::GUI::Dialog();
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Steve Loughran
Sent: Saturday, 29 April, 2006 18:30
To: perl-win32-gui-users@lists.sourceforge.net
Subject: [perl-win32-gui-users] Treeview - Sort()/SortChildren()
Hi all
After Jason Plum posted the example code for TreeViews (thank you!), I
have had no problems at all... until today :)
I am creating a treeview and now trying to sort the entries using Sort()
or SortChildren(), but neither of these seem to be doing anything. I
have tried using indvidual nodes within the trer. Other operations on
individual nodes in the same code loop work (like Expand() for example).
I have tried sorting only nodes with siblings, I have tried sorting the
root node for the entire treeview, I have truied both the above with
Sort() and SortChildren(), but nothing seems to be working.
Is it broken? Or is it me that is broken? :)
Steve
---
Using Tomcat but need to do more? Need to support web services,
security?
Get stuff done quickly with pre-integrated technology to make your job
easier Download IBM WebSphere Application Server v.1.0.1 based on Apache
Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnkkid=120709bid=263057dat=121642
___
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/
