[perl-win32-gui-hackers] Commit ExtCreateRgn and GetRgnData function (Tracker: 1469648)

[Robert May]

I just committed 2 new functions for handling windows regions:

New region method:
  my $data = $rgn->GetRgnData();
wraps the win32 API GetRegionData() function

New region constructor:
  my $newrgn = Win32::GUI::Region->ExtCreateRgn($data);
wraps the win32 API ExtCreateRegion() function

Tracker 1469648:
https://sourceforge.net/tracker/index.php?func=detail&aid=1469648&group_id=16572&atid=366572

As a quick test I did the following:

#!perl -w
use strict;
use warnings;

use Win32::GUI();

my $mw = Win32::GUI::Window->new(
    -title => "Region test",
    -size  => [400,300],
);

$mw->Show();
my $DC = $mw->GetDC();

my $rgn = Win32::GUI::Region->CreateRoundRectRgn(0,0,100,100,50,50);
$DC->InvertRgn($rgn);

my $rgndata = $rgn->GetRgnData();
my $newrgn = Win32::GUI::Region->ExtCreateRgn($rgndata);
$newrgn->OffsetRgn(150,150);
$DC->InvertRgn($newrgn);


Win32::GUI::Dialog();
$mw->Hide();
exit(0);
__END__

Regards,
Rob.
--
Robert May
Win32::GUI, a perl extension for native Win32 applications
http://perl-win32-gui.sourceforge.net/