I'm in the process of finishing a Perl source code exchange. Basically
exchanging
subroutines and snippets of code, as well as the ability to upload binaries.
And,
this code would be perfect:
| # define popup menu for listview
| my $PopupMenu = new Win32::GUI::Menu(
| "Item Properties" => "ItemProp",
| ">&Properties" => "ItemProperties",
| );
|
| # get right-click in listview
| sub DataView_RightClick {
| my($X, $Y) = Win32::GUI::GetCursorPos();
|
| $MainWindow->TrackPopupMenu($PopupMenu->{ItemProp},$X, $Y);
| }
It would be a great way of gathering all of the code that has been exchanged on
this list. I should be done by the end of next week, if any has any questions
regarding the idea(or, of course, some input), email me.
regards,
erick bourgeois
never stop questionning
www.jeb.ca
----- Original Message -----
From: Piske, Harald <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Thursday, June 07, 2001 8:08 PM
Subject: RE: [perl-win32-gui-users] Popup window
| Note: I took the liberty of changing the subject, since this is not about
| BringWindowToTop anymore.
|
| About the popup menu, see trail "Re; Popup menu", posting by Jonathan
| Southwick on April 2nd, 2001. Apparently, Ludvig af Klinteberg subsequently
| managed to use the code for a tray icon.
| Quote:
|
| # define popup menu for listview
| my $PopupMenu = new Win32::GUI::Menu(
| "Item Properties" => "ItemProp",
| ">&Properties" => "ItemProperties",
| );
|
| # get right-click in listview
| sub DataView_RightClick {
| my($X, $Y) = Win32::GUI::GetCursorPos();
|
| $MainWindow->TrackPopupMenu($PopupMenu->{ItemProp},$X, $Y);
| }
|
| # clicked on particular menu item in popup menu
| sub ItemProperties_Click {
| ## code you want to process;
| }
|
| Thanks, Jonathan
| Have fun
| Harald
