Menu
▾
▴
perl-win32-gui-users
|
From: <Dav...@la...> - 2008-09-04 18:40:05
|
Thanks Jeremy, Unfortunately I did not want yet ANOTHER widget piled up on top of the TabStrip :) so I ended up using -foreground => [252, 252, 252] for each offending control. I also had to revert from using the -prompt option of TextFields to using a TextField with a label instead. the [252, 252, 252] color rendered close enough to the background color of the tabstrip such that it is almost impossible to perceive any difference between the two. I'll stick with this for now, might change it later using your method if it proves more feasible. David J. Keith Application Developer Latham International ● 787 Watervliet-Shaker Rd. ● Latham, NY 12110 Office: 518.951.1063 |
|
From: Ilya B. <Ily...@so...> - 2008-09-05 06:18:01
|
Yeah, but this method is OK only if users use XP’s standard color schemes and themes. In other case tabstrips could be not “white”. At the moment I have two ideas but can realize none of them. :) 1. According to the same problem in other programming environments, there should be some constants which allow us to determine if XP UI is enabled or not. Can’t find such a constant for Perl win32::GUl. 2. The ideal solution is to have controls with transparent background. Maybe there is any -exstyle or something for that? Can’t find it yet also. :( From: per...@li... [mailto:per...@li...] On Behalf Of Dav...@la... Sent: Thursday, September 04, 2008 10:40 PM To: Jeremy White Cc: per...@li... Subject: Re: [perl-win32-gui-users] (no subject) Thanks Jeremy, Unfortunately I did not want yet ANOTHER widget piled up on top of the TabStrip :) so I ended up using -foreground => [252, 252, 252] for each offending control. I also had to revert from using the -prompt option of TextFields to using a TextField with a label instead. the [252, 252, 252] color rendered close enough to the background color of the tabstrip such that it is almost impossible to perceive any difference between the two. I'll stick with this for now, might change it later using your method if it proves more feasible. David J. Keith Application Developer Latham International ● 787 Watervliet-Shaker Rd. ● Latham, NY 12110 Office: 518.951.1063 |
|
From: Chris R. <pce...@gm...> - 2011-01-15 01:19:29
|
http://mellmann-lichttechnik.de/aslle.html -- Chris Rogers www.pcewebs.com |
|
From: ankit g. <ank...@ya...> - 2012-06-26 13:28:41
|
http://www.handmade4help.org/licitatii/flgpr.html |
|
From: ankit g. <ank...@ya...> - 2012-06-29 12:09:48
|
http://neohelenistika.com/pagnrk.html |
|
From: Alex L. <sim...@ya...> - 2012-12-01 11:49:28
|
http://sugarhousecheese.com/wp-includes/smpywwap.php?%RND8%=fmdstxsaohdp |
|
From: Alex L. <sim...@ya...> - 2012-12-07 19:27:44
|
http://bedpocket.com/wp-includes/dwpjpofq.php?%RND8%=yalutazqjsvn |
|
From: Alex L. <sim...@ya...> - 2012-12-16 22:38:31
|
http://watermelonsalad.net/wp-content/themes/de/images/myipowlo.php?%RND8%=zhmhiblbeuow |
|
From: Paul F. <sha...@ro...> - 2013-02-17 06:22:20
|
How do I get a window's Win32::GUI::Menu object?
I have a function that has the main window handle in a local variable ($Window). I want to disable one of the items in this window's menu.
Initially, I thought this would be easy, but:
$Window->GetMenu();
returns a menu HANDLE, not an
object reference. This doesn't seem to help me -- unless
there's a way to turn the handle into an object?
$Window->{-menu}
returns nothing.
Ultimately what I'm trying to accomplish is something like:
$Window->Menu->{'MyMenuItem'}->Enabled(0);
Which used to work according to a VERY old message from this list (http://www.mail-archive.com/per...@li.../msg00945.html). Unfortunately, the current version of Win32::GUI doesn't appear to recognize $Window->Menu
Thx,
- PF
|
|
From: Paul F. <sha...@ro...> - 2013-02-17 06:41:45
|
(sorry for the repeat -- accidentally hit send before giving it a subject)
How do I get a window's Win32::GUI::Menu object?
I have a
function that has the main window handle in a local variable ($Window).
I want to disable one of the items in this window's menu.
Initially, I thought this would be easy, but:
$Window->GetMenu();
returns a menu HANDLE, not an object reference. This doesn't seem to help me -- unless there's a way to turn the handle into an object?
$Window->{-menu}
returns nothing.
Ultimately what I'm trying to accomplish is something like:
$Window->Menu->{'MyMenuItem'}->Enabled(0);
Which used to work according to a VERY old message from this list (http://www.mail-archive.com/per...@li.../msg00945.html). Unfortunately, the current version of Win32::GUI doesn't appear to recognize $Window->Menu
Thx,
- PF
|
|
From: Paul F. <sha...@ro...> - 2013-02-18 22:39:33
|
Wow, don't everybody reply at once. :-|
For the record, I found a solution, or rather somebody at PerlMonks found it. Anyway, it works for me:
There doesn't appear to be any way to do this with the functions provided by Win32::GUI. But you can get around it by storing the menu object as an ad-hoc property of the window object. For example:
sub Main {
my $Menu = Win32::GUI::MakeMenu(
'&Program' => 'Program',
' > &Alpha' => { -name => 'Alpha', -onClick => \&Alpha_Select },
' > &Beta' => { -name => 'Beta', -onClick => \&Beta_Select },
);
my $WinMain = Win32::GUI::Window->new(
-name => 'Main',
-menu => $Menu,
...
);
$WinMain->{MyMenu} = $Menu;
...
}
sub Beta_Select {
my($Window)=@_;
$Window->{MyMenu}->{'Beta'}->Enabled(0);
...
}
- PF
----- Original Message -----
> From: Paul Floyd <sha...@ro...>
> To: "per...@li..." <per...@li...>
> Cc:
> Sent: Saturday, February 16, 2013 11:28 PM
> Subject: [perl-win32-gui-users] How do I get a window's Win32::GUI::Menu object?
>
>( sorry for the repeat -- accidentally hit send before giving it a subject)
>
> How do I get a window's Win32::GUI::Menu object?
>
> I have a
> function that has the main window handle in a local variable ($Window).
> I want to disable one of the items in this window's menu.
> Initially, I thought this would be easy, but:
>
> $Window->GetMenu();
>
> returns a menu HANDLE, not an object reference. This doesn't seem to help
> me -- unless there's a way to turn the handle into an object?
>
> $Window->{-menu}
>
> returns nothing.
>
> Ultimately what I'm trying to accomplish is something like:
> $Window->Menu->{'MyMenuItem'}->Enabled(0);
>
> Which used to work according to a VERY old message from this list
> (http://www.mail-archive.com/per...@li.../msg00945.html).
> Unfortunately, the current version of Win32::GUI doesn't appear to recognize
> $Window->Menu
>
> Thx,
>
> - PF
>
|
Thanks for helping keep SourceForge clean.
X