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

[Reini Urban]

why not Win32::GUI::Region->ExtCreateRegion() and
Win32::GUI::Region->GetRegionData() ?

Rgn != Region

2006/6/24, Robert May <[EMAIL PROTECTED]>:

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.

--
Reini Urban
http://phpwiki.org/              http://murbreak.at/
http://spacemovie.mur.at/   http://helsinki.at/