Re: Win32::GUI problem

You can catch mouse events from your window and then do whatever you want in the assigned subs:

use strict;
use warnings;

use Win32::GUI;

my $draw  = 0;

my $mw = Win32::GUI::Window->new(
    -title => "Click anywhere to draw",
    -pos   => [100,100],
    -size  => [500,500],
    -onMouseDown => \&down,
    -onMouseUp   => \&up,
    -onMouseMove => \&move,
);

my $DC = $mw->GetDC;
$mw->Show();
Win32::GUI::Dialog();

exit(0);

sub down {
    my ($object, $x, $y) = @_;
    $draw = 1;
    $DC->TextOut(10,10,"start $x,$y");
    return 1;
}

sub up {
    my ($object, $x, $y) = @_;
    $draw = 0;
    $DC->TextOut(400,10,"end $x,$y");
    return 1;
}

sub move {
    my ($object, $x, $y) = @_;
    return unless $draw;
    $DC->SetPixel($x,$y,[192,192,192]);
    $DC->TextOut(200,10,"at $x,$y");
    return 1;
}
[download]

--
I'd like to be able to assign to an luser

Comment on Re: Win32::GUI problem Download Code

Replies are listed 'Best First'.
Re^2: Win32::GUI problem by Anonymous Monk on Sep 24, 2015 at 09:45 UTC
Tx a lot.	[reply]
Re^2: Win32::GUI problem by Anonymous Monk on Sep 25, 2015 at 09:44 UTC
Your code is not working.	[reply]
Re^3: Win32::GUI problem by Albannach (Monsignor) on Sep 25, 2015 at 11:44 UTC
Can you elaborate on what you're seeing? I always test code before posting so I can tell you this works on my machine at least. To be clear, you should get a square white window, and when you left-mouse-down in the window it will report the coordinates in the top left. If you hold left-mouse-down and move the mouse it will draw pixels and report the current coordinates in the top centre, and when you release the left-mouse it will report the final coordinates in the top right. -- I'd like to be able to assign to an luser	[reply]
Re^4: Win32::GUI problem by Anonymous Monk on Sep 26, 2015 at 09:48 UTC
When i am seeing your program, it raises a prolem like: The Perl Interpreter needs to be closed down. maybe this situation has something to do with the fact I switched from Strawberry to ActiveState perl,because i had problems like that before when using the Win32 problem. Furthermore i dont have an internetconnection so i guess there is nothing to do about it.	[reply]


There's more than one way to do things
	PerlMonks