Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Win32::GUI Dropmenus

by £okì (Scribe)
on Mar 19, 2003 at 16:33 UTC ( [id://244370]=perlquestion: print w/replies, xml ) Need Help??

£okì has asked for the wisdom of the Perl Monks concerning the following question:

First off, I'm not entirly sure that I'm using the correct term here by drop menu. The concept is a menu which you can click a little arrow on the right and a menu drops, giving you a chance to select from the list.

What I need to know is how to add menu options. I know how to do this for textboxes but not for menu's.

Replies are listed 'Best First'.
Re: Win32::GUI Dropmenus
by dree (Monsignor) on Mar 19, 2003 at 17:43 UTC
    Something like that?
    use strict; use warnings; use Win32::GUI; use vars qw ($alignment_sx $alignment_cn $alignment_dx); ($alignment_sx,$alignment_cn,$alignment_dx)=(0,1,0); my $Menu = Win32::GUI::MakeMenu( "&File" => "File", " > &Choose alignment" => "choose_alignment", " > > &Left" => {-name=>"left", -checked => $alignment_s +x}, " > > &Center" => {-name=>"center", -checked => $alignment_c +n}, " > > &Right" => {-name=>"right", -checked => $alignment_d +x}, "> &Exit" => "File_Exit", ); my $win = new Win32::GUI::Window( -name => "Window", -text => "Sub menu", -width => 640, -height => 480, -menu => $Menu, -minsize => [640, 480], ); $win->Show(); Win32::GUI::Dialog(); sub File_Exit_Click { return -1 } sub left_Click { ($alignment_sx,$alignment_cn,$alignment_dx)=(1,0,0); Set_Menu(); } sub center_Click { ($alignment_sx,$alignment_cn,$alignment_dx)=(0,1,0); Set_Menu(); } sub right_Click { ($alignment_sx,$alignment_cn,$alignment_dx)=(0,0,1); Set_Menu(); } sub Set_Menu { $Menu->{left}->Checked($alignment_sx); $Menu->{center}->Checked($alignment_cn); $Menu->{right}->Checked($alignment_dx); }
      Hello,

      Is there a way to apply this to a menu when you right-click on a AddNotifyIcon object?

      Thank you,
      Morpheous1129

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://244370]
Approved by valdez
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others musing on the Monastery: (6)
As of 2024-03-29 01:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found