To get the absolute X and Y coordinates, would you have to subtract the position of the child (label) from the position of the parent (main window)?
pc -----Original Message----- From: zak3 [mailto:[EMAIL PROTECTED] Sent: Friday, November 21, 2008 2:21 AM To: perl-win32-gui-users@lists.sourceforge.net Subject: Re: [perl-win32-gui-users] bitmap - getting mouse clicks and mouse location i have experemented using as a guide the message: http://www.mail-archive.com/perl-win32-gui-users@lists.sourceforge.net/msg03 025.html here is a main form and a Label, when you click on the Label, the textfield control will show the coordinates of mouse cursor , it seems to me that those coordinated are relative to the screen, you may adapt the code to display the coordinates relative to the form or relative to the label, or a graphic control. use strict; use warnings; use Win32::GUI(); my $W = new Win32::GUI::Window( -name => "W", -title => "mouse click tracking", -left => 54, -top => 77, -width => 546, -height => 318, ); my $textfield = $W->AddTextfield( -text => "", -name => "Textfield_1", -left => 401, -top => 9, -width => 129, -height => 249, -multiline => 1, -vscroll => 1, ); $W->AddLabel( -text => "zz", -name => "Label_2", -left => 0, -top => 0, -width => 270, -height => 232, -foreground => 0, -background => 12615935, -notify => 1, -onMouseDown => sub { my($mx, $my) = Win32::GUI::GetCursorPos();$textfield -> Append( "$mx - $my \n");}, ); $W->Show(); Win32::GUI::Dialog(); exit(0); sub Window_Terminate { return -1; } iaagaiow wrote: > > Hello, > > I'm developing an app which will display a bitmap.? I want to be able to > detect mouse clicks on the bitmap and get the mouse cursor location when > clicks are detected. > > Displaying the bitmap is easy - there are demos that show that.? I have > been trying to modify the demos to detect clicks and get the mouse cursor > location, but nothing has worked yet.? Have been going thru doc/demos/etc, > and will keep doing so, but if you happen to have experience with this > topic, please send me any pointers you can. > > I have tried using GetCursorPos, but thus far seem to be getting undefined > return values.? As for the mouse click, tried setting up -onClick option > but this seems to be ignored. > > Thanks for your time! > > Regards, > > LP > > ------------------------------------------------------------------------- > This SF.Net email is sponsored by the Moblin Your Move Developer's > challenge > Build the coolest Linux based applications with Moblin SDK & win great > prizes > Grand prize is a trip for two to an Open Source event anywhere in the > world > http://moblin-contest.org/redirect.php?banner_id=100&url=/ > _______________________________________________ > 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/ > -- View this message in context: http://www.nabble.com/bitmap---getting-mouse-clicks-and-mouse-location-tp205 49181p20618513.html Sent from the perl-win32-gui-users mailing list archive at Nabble.com. ------------------------------------------------------------------------- This SF.Net email is sponsored by the Moblin Your Move Developer's challenge Build the coolest Linux based applications with Moblin SDK & win great prizes Grand prize is a trip for two to an Open Source event anywhere in the world http://moblin-contest.org/redirect.php?banner_id=100&url=/ _______________________________________________ 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/ ------------------------------------------------------------------------- This SF.Net email is sponsored by the Moblin Your Move Developer's challenge Build the coolest Linux based applications with Moblin SDK & win great prizes Grand prize is a trip for two to an Open Source event anywhere in the world http://moblin-contest.org/redirect.php?banner_id=100&url=/ _______________________________________________ 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/
