| [reply] |
Many thanks for the useful pointers.
For now, I've opted for the simplest way out and have built something that lets me manipulate a standard window; I can use it to 'block out' the area of interest on the desktop and it returns the X11-style attributes of the window. Code follows:-
# --------------------------------------------------------------------
+-------
# xrselw32.pl - Use a resizable window to define a desktop monitoring
+ area
# jjg, 5-Aug-2016
#
# Description:
# A quick'n'dirty tool to allow me to use a standard
# Windows resizable 'Window' to block-out a region
# of the desktop and return the location in an X11
# 'WxH+X+Y' format.
#
# Notes:
# 1. I can't work-out how to place buttons and other
# objects within the window (there doesn't seem to be
# any Tk-like concept of 'pack' or similar in Win32::GUI),
# so I took the KISS approach and have left the system
# menu(s) on the main window; this allows me to use a
# single button to accept the window and use the
# "system menu" and '[X]' window button to act as a
# 'Cancel' button.
#
# 2. I also can't work-out how to properly communicate
# 'outside' of the Dialog 'monitoring' thing other than
# through the use of global variables = kludge. Hence,
# I'll make this whole silly thing an external tool, much
# the same as I do with the linux version. Inefficient
# but Pffft.
#
# 3. This is something that works Ok, so I'm not
# particularly worried that it's not as pretty as
# it might be...
#
# References:
# http://www.perlmonks.com/?node_id=1169110 (my question)
# http://search.cpan.org/~kmx/Win32-GUI-1.13/GENERATED/Win32/GUI/Tu
+torial/Part1.pod
#
# --------------------------------------------------------------------
+-------
use Win32::GUI();
Get_Script_Name(\$my_proc, \$my_path); # Determine the name of this s
+cript
$W_INIT = 440; # Initial window size
$H_INIT = 330;
$main_window; # Global declaritive ('Wot!?')
$W, $H, $X, $Y; # GLobals that define the capture area: WxH+X+Y
$position_status = 0; # ...and their validity
Place_Window(); # Get the window position
if ($position_status) {
printf("%dx%d+%d+%d", $W, $H, $X, $Y);
} else {
printf("");
}
# ==================== end mainline ====================
Read more code in this 'spoiler', if you want...
# --------------------------------------------------------------------
+----
# Place_Window - Use Win32::GUI to position a window as required
# Uses Globals: $my_proc (others implicit)
# Calls (Implicit): Main_Resize, Main_Terminate,
# OK_BUTTON_Click, CANCEL_BUTTON_Click
# --------------------------------------------------------------------
+----
sub Place_Window
{
my ($prompt, $w, $h, $desk, $dw, $dh, $x, $y);
$prompt = "$my_proc - Define capture size & location";
$main_window = Win32::GUI::Window->new(
-name => 'Main',
-sysmenu => 1, # I'd like to remove this but I n
+eed to use
# the '[X]' as a CANCEL button...
+Duhhh..
-width => $W_INIT, -height => $H_INIT,
-text => $prompt,
);
my $font = Win32::GUI::Font->new(
-name => "Tahoma",
-size => 12,
);
my $OK_Button = $main_window->AddButton(
-name => "OK_BUTTON",
-text => " Ok ",
-font => $font,
-height => 38,
-width => 68,
);
# my $cncl = $main_window->AddButton(
# -name => "CANCEL_BUTTON",
# -text => "Cancel",
# );
# ----
$w = $main_window->Width(); # Initial 'overlap window' geome
+try
$h = $main_window->Height();
$desk = Win32::GUI::GetDesktopWindow();
$dw = Win32::GUI::Width($desk);
$dh = Win32::GUI::Height($desk);
$x = ($dw - $w) / 2;
$y = ($dh - $h) / 2;
# $main_window->Change(-minsize => [$W_INIT, $H_INIT]);
$main_window->Resize($w, $h);
$main_window->Move($x, $y);
$main_window->Show();
Win32::GUI::Dialog(); # Monitor for events
$W = $X2 - $X1; # Define the position/size in globals
$H = $Y2 - $Y1; # NOTE: '$position_status' contains a truth val
+ue
$X = $X1; # which says the position is valid or not
$Y = $Y1;
return;
} # end Place_Window
# ----------------------------------------------
# Main_Terminate - Event: Exit the main window
# ...Win32::GUI updates
# ----------------------------------------------
sub Main_Terminate {
($X1, $Y1, $X2, $Y2) = # Update globals
Win32::GUI::GetWindowRect($main_window);
-1;
} # end Main_Terminate
# --------------------------------------------
# OK_BUTTON_Click - Event: 'Ok' Button Click
# ...Win32::GUI updates
# --------------------------------------------
sub OK_BUTTON_Click {
$position_status = 1;
Main_Terminate();
} # end OK_BUTTON_Click
# ------------------------------------------------------
# CANCEL_BUTTON_Click - Event: 'Cancel' Button Click
# ...Win32::GUI updates
# ------------------------------------------------------
sub CANCEL_BUTTON_Click {
$position_status = 0;
Main_Terminate();
} # end BTN_Click
# ----------------------------------------------------
# Get_Script_Name - Return the basename of this file
# Returns: script name (no ext.), path to script
# ----------------------------------------------------
sub Get_Script_Name
{
my ($my_proc_ref, $my_path_ref) = @_;
my ($buf);
if (defined $PerlApp::VERSION) {
$$my_proc_ref = PerlApp::exe();
$buf = PerlApp::exe();
} else {
$$my_proc_ref = $0;
$buf = $0;
}
$$my_proc_ref =~ s#\\#\/#g # DOS path to linux path
if ($$my_proc_ref =~ m/\\/);
$$my_proc_ref =~ s{.*/}{}; # removes "/"-delimited path
$$my_proc_ref =~ s{\.[^.]+$}{}; # removes extension
$buf =~ s#\\#\/#g if ($buf =~ m/\\/); # DOS path to linux path
$buf =~ m#(.*)/#;
$$my_path_ref = $1;
return;
} # end Get_Script_Name
# [EOF]
Ultimately, I still hope to work out how to draw a simple outlined rectangle... but this script works Ok.
Again, many thanks for the assistance.
John
| [reply]
[d/l]
[select] |