[Perl-win32-gui-cvscommit] Win32-GUI/Win32-GUI-AxWindow/demos DHtmlEdit.pl, NONE, 1.1 InfoControl.p

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 454-5900

Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-AxWindow/demos
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22088/demos

Added Files:
	DHtmlEdit.pl InfoControl.pl MShtml.pl Movie.avi 
	MovieControl.pl MsFlexGrid.pl SCGrid.pl TestOLE.pl 
	WMPControl.pl WebBrowser.pl WebBrowser2.pl 
Log Message:
Merge AxWindow into core distribution

--- NEW FILE: MsFlexGrid.pl ---
#!perl -w
use strict;
use warnings;

#
# Hosting MsFlexGrid : Test Indexed properties
# You need a computer with a registered version of MSFlxgrd.ocx
# (e.g. with a VC++ installation) to run this demo
#
# Sadly if you don't have a registered version of msflxgrd.ocx
# you don't get a control creation failure, but an IE window
# showing an error, as the underlying framework assumes that
# "MSFlexGridLib.MSFlexLib" is a URL to try any load!
#

use Win32::GUI qw(WS_CLIPCHILDREN);
use Win32::GUI::AxWindow();

# main Window
my $Window = new Win32::GUI::Window (
    -title    => "Win32::GUI::AxWindow test",
    -pos      => [100, 100],
    -size     => [400, 400],
    -name     => "Window",
    -addstyle => WS_CLIPCHILDREN,
) or die "new Window";

# Create AxWindow
my $Control = new Win32::GUI::AxWindow  (
    -parent  => $Window,
    -name    => "Control",
    -pos     => [0, 0],
    -size    => [400, 400],
    -control => 'MSFlexGridLib.MSFlexGrid',
 ) or die "new Control";

# Test Enum property set by string value
# $Control->SetProperty("ScrollBars", "flexScrollBarNone");
# $Control->SetProperty("GridLines", "flexGridInset");

$Control->SetProperty("Rows", 5);
$Control->SetProperty("Cols", 5);

#$Control->SetProperty("TextMatrix", 1, 2, "Hello!!!");

#my $r = $Control->GetProperty("Rows");
#my $c = $Control->GetProperty("Cols");
#my $t = $Control->GetProperty("TextMatrix", 1, 2);
#print "Rows = $r, Cols = $c, TextMatrix(1,2) = $t\n";

# Event loop
$Window->Show();
Win32::GUI::Dialog();
$Window->Hide();
exit(0);

# Main window event handler

sub Window_Resize {
    if (defined $Window) {
        my ($width, $height) = ($Window->GetClientRect)[2..3];
        $Control->Resize ($width, $height);
    }
}

--- NEW FILE: Movie.avi ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: WebBrowser.pl ---
#!perl -w
use strict;
use warnings;

#
#  Hosting a WebBrowser
#    Create a WebBrowser and register an event.
#    Enumerate Property, Methods and Events and create a Html file.
#    Load Html file in WebBrowser.
#

use File::Temp();
use Win32::GUI qw(WS_CLIPCHILDREN);
use Win32::GUI::AxWindow();

# main Window
my $Window = Win32::GUI::Window->new(
    -title => "Win32::GUI::AxWindow WebBrowser",
    -pos   => [100, 100],
    -size  => [400, 400],
    -name  => "Window",
    -pushstyle => WS_CLIPCHILDREN,
) or die "new Window";

# Create AxWindow
my $Control = new Win32::GUI::AxWindow  (
    -parent  => $Window,
    -name    => "Control",
    -pos     => [0, 0],
    -size    => [400, 400],
    -control => "Shell.Explorer.2",
#   -control => "{8856F961-340A-11D0-A96B-00C04FD705A2}",
 ) or die "new Control";

# Register Event

$Control->RegisterEvent("StatusTextChange",
        sub {
            my($self,$id, @args) = @_;
            print "Event : ", @args, "\n";
        }
);

# Enum Property info

my $tmp = File::Temp->new(SUFFIX => ".html");
print "writing to file: $tmp\n";

print $tmp "<html>\n";
print $tmp "<head><title>AxWindow WebBrowser Properties</title></head>\n";
print $tmp "<body><hr /><h1>Properties</h1><hr />\n";

foreach my $id ($Control->EnumPropertyID()) {
    my %property = $Control->GetPropertyInfo ($id);

    print $tmp "<p>\n";
    foreach my $key (keys %property) {
        print $tmp "<b>$key</b> = $property{$key}<br />\n";
    }
    print $tmp "</p>\n";
}

# Enum Method info

print $tmp "<hr /><h1>Methods</h1><hr />\n";

foreach my $id ($Control->EnumMethodID()) {
    my %method = $Control->GetMethodInfo ($id);

    print $tmp "<p>\n";
    foreach my $key (keys %method) {
        print $tmp "<b>$key</b> = $method{$key}<br />\n";
    }
    print $tmp "</p>\n";
}

# Enum Event info

print $tmp "<hr /><h1>Events</h1><hr />\n";

foreach my $id ($Control->EnumEventID()) {
    my %event = $Control->GetEventInfo ($id);

    print $tmp "<p>\n";
    foreach my $key (keys %event) {
        print $tmp "<b>$key</b> = $event{$key}<br />\n";
    }
    print $tmp "</p>\n";
}

print $tmp "</body></html>\n";

# Method call
my $path = "file://$tmp";

# print $path, "\n";
$Control->CallMethod("Navigate", $path);

# Event loop
$Window->Show();
Win32::GUI::Dialog();
$Window->Hide();
exit(0);

# Main window event handler

sub Window_Resize {
    if (defined $Window) {
        my ($width, $height) = ($Window->GetClientRect)[2..3];
        $Control->Resize ($width, $height);
    }
}

--- NEW FILE: DHtmlEdit.pl ---
#!perl -w
use strict;
use warnings;

#
#  Hosting DHtmlEdit basic 
# You can't do much with it!  See DHtmlEditor.pl
# for a better sample (using Win32::GUI::DHtmlEdit)
#

use Win32::GUI qw(WS_CLIPCHILDREN);
use Win32::GUI::AxWindow();

# main Window
my $Window = new Win32::GUI::Window(
    -name     => "Window",
    -title    => "Win32::GUI::AxWindow test",
    -pos      => [100, 100],
    -size     => [400, 400],
    -addstyle => WS_CLIPCHILDREN,
) or die "new Window";

# Create AxWindow
my $Control = new Win32::GUI::AxWindow(
    -parent  => $Window,
    -name    => "Control",
    -pos     => [0, 0],
    -size    => [400, 400],
    -control => "DHTMLEdit.DHTMLEdit",
   #-control => "{2D360200-FFF5-11D1-8D03-00A0C959BC0A}",
) or die "new Control";

# Method call
$Control->CallMethod("NewDocument");

# Event loop
$Window->Show();
Win32::GUI::Dialog();
$Window->Hide();
exit(0);

# Main window event handler

sub Window_Terminate {
    # Print Html Text
    print $Control->GetProperty("DocumentHTML");

    return -1;
}

sub Window_Resize {
    if (defined $Window) {
        my ($width, $height) = ($Window->GetClientRect)[2..3];
        $Control->Move(0, 0);
        $Control->Resize($width, $height);
    }
}

--- NEW FILE: MovieControl.pl ---
#!perl -w
use strict;
use warnings;

#
#  Hosting Movie Control (A movie player control see
#  http://www.viscomsoft.com/movieplayer.htm)
#
# A 30-day trial licence of the control is available from
# the above site.
#

use FindBin();
use Win32::GUI qw(WS_CLIPCHILDREN);
use Win32::GUI::AxWindow();

# main Window
my $Window = new Win32::GUI::Window (
    -title    => "Movie Control Test",
    -pos      => [100, 100],
    -size     => [200, 200],
    -name     => "Window",
    -addstyle => WS_CLIPCHILDREN,
) or die "new Window";

# Add a play button
$Window->AddButton(
	-name => "Button",
	-text => 'Play',
	-pos  => [10,10],
);

# Create AxWindow
my $Control = new Win32::GUI::AxWindow  (
    -parent  => $Window,
    -name    => "Control",
    -pos     => [0, $Window->Button->Height()+20],
    -width   => $Window->ScaleWidth(),
    -height  => $Window->ScaleHeight()-$Window->Button->Height()-20,
#   -control => "{F4A32EAF-F30D-466D-BEC8-F4ED86CAF84E}",
    -control => "MOVIEPLAYER.MoviePlayerCtrl.1",
) or die "new Control";

# Load Avi file
$Control->SetProperty("FileName", "$FindBin::Bin/movie.avi");

# Event loop
$Window->Show();
Win32::GUI::Dialog();
$Window->Hide();
exit(0);

# Main window event handler

sub Window_Resize {
  if (defined $Window) {
      my ($width, $height) = ($Window->GetClientRect)[2..3];
      $height = $height - $Window->Button->Height() - 20;
      #$Control->Resize ($width, $height);
      $Control->CallMethod("ResizeControl", $width, $height);
  }
}

sub Button_Click {
    # Start Avi player
    $Control->CallMethod("Play");
}

--- NEW FILE: SCGrid.pl ---
#!perl -w
use strict;
use warnings;

#
# Hosting SCGrid (A freeware Grid ActiveX see : http://www.scgrid.com/)
# Download SCGridLite from http://www.scgrid.com/
# - Extract SCGrid.ocx and put it somewhere
# - from the command prompt: regsvr32 <path_to>\SCGrid.ocx
# - (uninstall regsvr32 /u <path_to>\SCGrid.ocx, and delete SCGrid.ocx)
#

use Win32::GUI qw(WS_CLIPCHILDREN);
use Win32::GUI::AxWindow();

# main Window
my $Window = new Win32::GUI::Window (
    -title    => "Win32::GUI::AxWindow test",
    -pos      => [100, 100],
    -size     => [400, 400],
    -name     => "Window",
    -addstyle => WS_CLIPCHILDREN,
) or die "new Window";

# Create AxWindow
my $Control = new Win32::GUI::AxWindow  (
    -parent  => $Window,
    -name    => "Control",
    -pos     => [0, 0],
    -size    => [400, 400],
    -control => "prjSCGrid.SCGrid",
 ) or die "new Control";

# Redraw Off
$Control->SetProperty("Redraw", 0);

# Create 1 Fixed col and Row
$Control->SetProperty("FixedRows", 1);
$Control->SetProperty("FixedCols", 1);
# Create 5 col and Row
$Control->SetProperty("Rows", 5);
$Control->SetProperty("Cols", 5);
# Adjust grid on column
$Control->SetProperty("AdjustLast", "scColumn");
# Add Resize column mode
$Control->SetProperty("ResizeMode", "scColumn");

# Fill Cell
for my $C (0..4)
{
    for my $R (0..4)
    {
        $Control->SetProperty("Text", $R, $C, "Cell ($R, $C)");
    }
}

# Fill Fixed Rows
$Control->SetProperty("Text", -1, -1, "    ");
for my $R (0..4)
{
    $Control->SetProperty("Text", $R, -1, "$R");
}
#$Control->CallMethod("AdjustWidth", -1, -32767);  # Force optional value

# Fill Fixed Cols and adjust size
for my $C (0..4)
{
    $Control->SetProperty("Text", -1, $C, "FixedCol($C)");
    #$Control->CallMethod("AdjustWidth", $C, -32767); # Force optional value
}

# Enable draw mode
$Control->SetProperty("Redraw", 1);

# Some property get
my $r = $Control->GetProperty("Rows");
my $c = $Control->GetProperty("Cols");
my $t = $Control->GetProperty("Text", 1, 2);
print "Rows = $r, Cols = $c, Text(1,2) = $t\n";

# Event loop
$Window->Show();
Win32::GUI::Dialog();

# Main window event handler

sub Window_Resize {
    if (defined $Window) {
        my ($width, $height) = ($Window->GetClientRect)[2..3];
        $Control->Move   (0, 0);
        $Control->Resize ($width, $height);
    }
}

--- NEW FILE: TestOLE.pl ---
#!perl -w
use strict;
use warnings;

#
#  Host with AxWindow and manipulate with Win32::OLE
#  - Use GetOLE
#  - Call method
#  - Write in a HTML document
#

use Win32::GUI qw(WS_CLIPCHILDREN);
use Win32::OLE();
use Win32::GUI::AxWindow();

# main Window
my $Window = new Win32::GUI::Window (
    -title    => "Win32::GUI::AxWindow and Win32::OLE",
    -pos      => [100, 100],
    -size     => [600, 600],
    -name     => "Window",
    -addstyle => WS_CLIPCHILDREN,
) or die "new Window";

# A button
my $Button = $Window->AddButton (
    -name => "Button",
    -pos  => [0, 25],
    -size => [600, 50],
    -text => "Click me !!!",
    );

# Create AxWindow
my $Control = new Win32::GUI::AxWindow  (
    -parent  => $Window,
    -name    => "Control",
    -pos     => [0, 100],
    -size    => [600, 500],
    -control => "Shell.Explorer.2",
 ) or die "new Control";

# Get Ole object
my $OLEControl = $Control->GetOLE();

# $OLEControl->Navigate("about:blank");  # Clear control
$OLEControl->Navigate("http://www.google.com/");

# Event loop
$Window->Show();
Win32::GUI::Dialog();
$Window->Hide();
exit(0);

# Button Event
sub Button_Click {
    $OLEControl->{Document}->{body}->insertAdjacentHTML("BeforeEnd","Click !!!");
    #print "HTML = ", $OLEControl->{Document}->{body}->innerHTML, "\n";
    return 0;
}

# Main window event handler

sub Window_Resize {
    if (defined $Window) {
        my ($width, $height) = ($Window->GetClientRect)[2..3];
        $Button->Width($width);
        $Control->Resize($width, $height-100);
    }
}

--- NEW FILE: WebBrowser2.pl ---
#!perl -w
use strict;
use warnings;

#
#  Hosting a WebBrowser
#    Create a WebBrowser and register an event.
#    Enumerate Property, Methods and Events and display in WebBrowser.
#  Same demo as WebBrowser.pl, but using OLE to avoid the temp file.
#

use Win32::GUI qw(WS_CLIPCHILDREN);
use Win32::GUI::AxWindow();
use Win32::OLE();

# main Window
my $Window = Win32::GUI::Window->new(
    -title => "Win32::GUI::AxWindow WebBrowser",
    -pos   => [100, 100],
    -size  => [400, 400],
    -name  => "Window",
    -pushstyle => WS_CLIPCHILDREN,
) or die "new Window";

# Create AxWindow
my $Control = new Win32::GUI::AxWindow  (
    -parent  => $Window,
    -name    => "Control",
    -pos     => [0, 0],
    -size    => [400, 400],
    -control => "Shell.Explorer.2",
 ) or die "new Control";

# Enum Property info

my $html = "";
$html .= "<html>\n";
$html .= "<head><title>AxWindow WebBrowser Properties</title></head>\n";
$html .= "<body><hr /><h1>Properties</h1><hr />\n";

foreach my $id ($Control->EnumPropertyID()) {
    my %property = $Control->GetPropertyInfo ($id);

    $html .= "<p>\n";
    foreach my $key (keys %property) {
        $html .= "<b>$key</b> = $property{$key}<br />\n";
    }
    $html .= "</p>\n";
}

# Enum Method info

$html .= "<hr /><h1>Methods</h1><hr />\n";

foreach my $id ($Control->EnumMethodID()) {
    my %method = $Control->GetMethodInfo ($id);

    $html .= "<p>\n";
    foreach my $key (keys %method) {
        $html .= "<b>$key</b> = $method{$key}<br />\n";
    }
    $html .= "</p>\n";
}

# Enum Event info

$html .= "<hr /><h1>Events</h1><hr />\n";

foreach my $id ($Control->EnumEventID()) {
    my %event = $Control->GetEventInfo ($id);

    $html .= "<p>\n";
    foreach my $key (keys %event) {
        $html .= "<b>$key</b> = $event{$key}<br />\n";
    }
    $html .= "</p>\n";
}

$html .= "</body></html>\n";

# Load blank page
$Control->CallMethod("Navigate", "about:blank");
# write the HTML to the page
$Control->GetOLE()->{Document}->write($html);

# free memory
undef $html;

# Event loop
$Window->Show();
Win32::GUI::Dialog();
$Window->Hide();
exit(0);

# Main window event handler

sub Window_Resize {
    if (defined $Window) {
        my ($width, $height) = ($Window->GetClientRect)[2..3];
        $Control->Resize ($width, $height);
    }
}

--- NEW FILE: InfoControl.pl ---
#!perl -w
use strict;
use warnings;

#
# Application to display control information, demosntrating AxWindow
# usage for Webbrowser, as well as providing useful information for
# anyone wanting to use other controls
#
# If you're randomly browsing controls, don't be surprised to find some
# that crash perl.
#
# Select an AxtiveX Object from the dropdown ...
#
# Author: Robert May
#

use Win32::GUI qw(WS_CLIPCHILDREN WS_EX_CLIENTEDGE);
use Win32::GUI::AxWindow();
use Win32::OLE();
use Win32::TieRegistry();

# Info about the currently inspected control
my %INFO;

# main Window
my $mw = new Win32::GUI::Window (
    -name     => "MW",
    -title    => "Win32::GUI::AxWindow Control Navigator",
    -size     => [600,400],
    -addstyle => WS_CLIPCHILDREN,
    -onResize => \&mwResize,
) or die "new Window";
$mw->Center();

$mw->AddLabel(
    -name   => "PROGID_Prompt",
    -pos    => [10,13],
    -height => 20,
    -text   => "Select PROGID :",
) or die "new Label";

$mw->AddCombobox(
    -name     => "PROGID",
    -top      => 10,
    -left     => $mw->PROGID_Prompt->Left()+$mw->PROGID_Prompt->Width()+10,
    -size     => [300,200],
    -vscroll  => 1,
    -onChange => \&loadInfo,
    -dropdownlist => 1,
) or die "new Combobox";

$mw->AddTreeView(
    -name        => 'TV',
    -top         => $mw->PROGID_Prompt->Height()+20,
    -width       => 180,
    -height      => $mw->ScaleHeight()-$mw->PROGID_Prompt->Height()-20,
    -rootlines   => 1,
    -lines       => 1,
    -buttons     => 1,
    -onNodeClick => \&dispInfo,
) or die "new TreeView";

Win32::GUI::AxWindow->new(
    -parent     => $mw,
    -control    => "Shell.Explorer",
    -name       => 'BW',
    -left       => $mw->TV->Left() + $mw->TV->Width()+5,
    -top        => $mw->PROGID_Prompt->Height()+20,
    -width      => $mw->ScaleWidth()-$mw->TV->Width()-5,
    -height     => $mw->ScaleHeight()-$mw->PROGID_Prompt->Height()-20,
    -addexstyle => WS_EX_CLIENTEDGE,
) or die "new AxWindow";

# Load a blank page
$mw->BW->CallMethod("Navigate", "about:blank");

$mw->Show();
$mw->Disable();

# Ref to list of controls
my $controls = getInstalledControls();
exit(0) if not defined $controls;  # Abort

#Populate combo selection
$mw->PROGID->Add(sort {lc $a cmp lc $b} @{$controls});

$mw->Enable();
$mw->BringWindowToTop();
Win32::GUI::Dialog();
$mw->Hide();
undef $mw;
exit(0);

sub mwResize {
    my $win = shift;
    my ($width, $height) = ($win->GetClientRect())[2..3];

    $win->TV->Height($height-$win->TV->Top());

    $win->BW->Width($width-$win->BW->Left());
    $win->BW->Height($height-$win->BW->Top());

    return 1;
}

sub loadInfo {
    Update_Treeview($mw->TV);
    return 1;
}

sub Update_Treeview {
    my $tv = shift;

    # reset information
    %INFO = ();
    $tv->DeleteAllItems();
    Display("");

    $INFO{progid} = $mw->PROGID->Text();
    $INFO{progid} =~ s/\s.*$//;

    # Determine if we can create the object:
    # This is pretty heavy handed, but I can't think of a better
    # way to prevent us falling back on Shell.Explorer if we can't
    # load the requested ActiveX object
    {
        my $oleobj;
        {
            local $SIG{__WARN__} = sub {};
            $oleobj = Win32::OLE->new($INFO{progid});
        }
        if (not defined $oleobj) {
            Display("<p style='color:red;'>ERROR creating $INFO{progid} (OLE)</p>");
            return 0;
        }
    }

    # Create invisible AxWindow control
    my $C = new Win32::GUI::AxWindow(
        -parent  => $mw,
        -name    => "Control",
        -control => $INFO{progid},
    );
    if (not defined $C) {
        Display("<p style='color:red;'>ERROR creating $INFO{progid} (Control)</p>");
        return 0;
    }

    # Get Property info
    foreach my $id ($C->EnumPropertyID()) {
        my %property = $C->GetPropertyInfo($id);
        $INFO{Properties}->{$property{-Name}} = \%property;
    }

    # Get Method info
    foreach my $id ($C->EnumMethodID()) {
        my %method = $C->GetMethodInfo($id);
        $INFO{Methods}->{$method{-Name}} = \%method;
    }

    # Get Event info

    foreach my $id ($C->EnumEventID()) {
        my %event = $C->GetEventInfo ($id);
        $INFO{Events}->{$event{-Name}} = \%event;
    }

    # Update the tree view

    # Insert the nodes
    for my $pnode_text qw(Properties Methods Events) {
        next if not defined $INFO{$pnode_text};

        my $pnode = $tv->InsertItem(-text => $pnode_text);

        for my $prop_name (sort keys %{$INFO{$pnode_text}}) {
            $tv-> InsertItem(
                -parent => $pnode,
                -text   => $prop_name,
            );
        }
    }

    return 1;
}

sub dispInfo {
    my ($tv, $node) = @_;

    my $pnode = $tv->GetParent($node);

    # Don't do anything for the top level nodes
    return 1 if $pnode == 0;

    my %pitem_info = $tv->GetItem($pnode);
    my $type = $pitem_info{-text};

    my %item_info = $tv->GetItem($node);
    my $name = $item_info{-text};

    my $info = $INFO{$type}->{$name};

    my $html;
    if ($type eq "Properties") {
       $html = property_html($info);
    }
    elsif ($type eq "Methods") {
       $html = method_html($info);
    }
    elsif ($type eq "Events") {
       $html = event_html($info);
    }
    else {
       $html = "<p>Unknown type: $type (you shouldn't see this)</p>";
    }

    Display($html);

    return 1;
}

sub Display{
    my $html = shift;

    # Clear the document window and send the new contents
    # Ask Microsoft why they don't support the
    # document.clear method
    $mw->BW->GetOLE()->{Document}->open("about:bank", "_self");
    $mw->BW->GetOLE()->{Document}->write($html);
    $mw->BW->GetOLE()->{Document}->close();
}

sub property_html {
    my $prop = shift;

    my $html = "<h2>Property: $prop->{-Name}</h2>";
    $html .= "<p>$prop->{-Description}</p>";
    $html .= "<table>";
    $html .= "<tr><td>Name:</td><td>$prop->{-Name}</td></tr>";
    $html .= "<tr><td>Prototype:</td><td>$prop->{-Prototype}</td></tr>";
    $html .= "<tr><td>VarType:</td><td>$prop->{-VarType}</td></tr>";
    $html .= "<tr><td>Readonly:</td><td>".($prop->{-ReadOnly}?"Yes":"No")."</td></tr>";
    $html .= "<tr><td>ID:</td><td>$prop->{-ID}</td></tr>";
    $html .= "</table>";

    my $enumstr = $prop->{-EnumValue};
    if (length($enumstr) > 0) {
        $html .= "<h3>Enumerated values</h3>";
        $html .= "<table border='1' cellspacing='0'>";
        for my $pair (split /,/, $enumstr) {
            my ($name, $value) = split /=/, $pair;
            $html .= "<tr><td>$name</td><td>$value</td></tr>";
        }
        $html .= "</table>";
    }

    return $html;
}

sub method_html {
    my $prop = shift;

    my $html = "<h2>Method: $prop->{-Name}</h2>";
    $html .= "<p>$prop->{-Description}</p>";
    $html .= "<table>";
    $html .= "<tr><td>Name:</td><td>$prop->{-Name}</td></tr>";
    $html .= "<tr><td>Prototype:</td><td>$prop->{-Prototype}</td></tr>";
    $html .= "<tr><td>ID:</td><td>$prop->{-ID}</td></tr>";
    $html .= "</table>";

    return $html;
}

sub event_html {
    my $prop = shift;

    my $html = "<h2>Event: $prop->{-Name}</h2>";
    $html .= "<p>$prop->{-Description}</p>";
    $html .= "<table>";
    $html .= "<tr><td>Name:</td><td>$prop->{-Name}</td></tr>";
    $html .= "<tr><td>Prototype:</td><td>$prop->{-Prototype}</td></tr>";
    $html .= "<tr><td>ID:</td><td>$prop->{-ID}</td></tr>";
    $html .= "</table>";

    return $html;
}

# Enumerate registry key HKCR\CLSID.  All classes with a 'Control'
# subkey are ActiveX controls
sub getInstalledControls {
    my $abort = 0;
    LoadingWindow::Show($mw);

    my @controls = ();

    my $clsidkey = Win32::TieRegistry->new(
        "HKEY_CLASSES_ROOT/CLSID/",
        { Access => "KEY_READ", Delimiter => '/', }
    );
    my $r = $clsidkey->TiedRef();

    LoadingWindow::SetRange(scalar keys %$r);

    while(my ($key, $value) = each %$r) {
       $abort = LoadingWindow::Step();
       last if $abort;

       # next, unless we have an ActiveX control
       next unless ref($value) and exists $value->{Control};

       my $ProgID = $value->{ProgID}->{'/'};

       # Some controls appear to have an empty name
       next unless defined $ProgID and length $ProgID > 0;

       my $VIProgID = $value->{VersionIndependentProgID}->{'/'};
       $ProgID .= " ($VIProgID)" if defined $VIProgID and length $VIProgID > 0;

       push @controls, $ProgID;
    }

    LoadingWindow::Close();
    return $abort ? undef : \@controls;
}

# package to wrap the progress bar that we show while
# loading stuff from the registry
package LoadingWindow;
our ($win,$terminate);

# Initialise and show the progress bar mini-window
sub Show {
    my $parent = shift;

    $terminate = 0;

    $win = Win32::GUI::Window->new(
        -parent      => $parent,        
        -title       => "Loading ...",
        -size        => [200,50],
        -toolwindow  => 1,
        -onTerminate => sub {$terminate = 1; 1;},
    ) or die "new Lwindow";
    $win->Center($parent);

    $win->AddProgressBar(
        -name => 'PB',
        -size => [$win->ScaleWidth(),$win->ScaleHeight()],
        -smooth => 1,
    ) or die "new Lprogress";
    $win->PB->SetStep(1);

    $win->Show();
    Win32::GUI::DoEvents();

    return 1;
}

# Set the max ranges of the progress bar
# (to the number of itertations of the
# loop we will do)
sub SetRange {
    $win->PB->SetRange(0, shift) if $win;
    return 1;
}

# Step the progress bar.  Return 1 if we expect
# the caller to abort
sub Step {
    return 1 if $terminate;

    $win->PB->StepIt() if $win;
    Win32::GUI::DoEvents();
    return 0;
}

# Hide the min-window, and free any resources
# it is using;  prepare for it to be used again
sub Close {
    if($win) {
        Win32::GUI::DoEvents();
        $win->Hide();
        Win32::GUI::DoEvents();
        undef $win;
        undef $terminate;
    }
    return 1;
}

--- NEW FILE: WMPControl.pl ---
#!perl -w
use strict;
use warnings;

#
#  Hosting Windows Media Player
#  Needs WMP 7 and above (different object model to WMP 6.4)
#

use FindBin();
use Win32::GUI qw(WS_CLIPCHILDREN);
use Win32::GUI::AxWindow();
use Win32::OLE();

# main Window
my $Window = new Win32::GUI::Window (
    -title    => "Movie Control Test",
    -pos      => [100, 100],
    -size     => [200, 200],
    -name     => "Window",
    -addstyle => WS_CLIPCHILDREN,
) or die "new Window";

# Add a play button
$Window->AddButton(
	-name => "Button",
	-text => 'Play',
	-pos  => [10,10],
);

# Create AxWindow
my $Control = new Win32::GUI::AxWindow  (
    -parent  => $Window,
    -name    => "Control",
    -pos     => [0, $Window->Button->Height()+20],
    -width   => $Window->ScaleWidth(),
    -height  => $Window->ScaleHeight()-$Window->Button->Height()-20,
    -control => "WMPlayer.OCX",
) or die "new Control";

# Don't autostart the video clip when we load it
$Control->GetOLE()->settings->{autoStart} = 0;

# Remove all ui widgets - just have the video window
# For some reason SetProperty doesn't seem to wrok - use OLE instead
#$Control->SetProperty("uiMode", "none");
$Control->GetOLE()->{uiMode} = "none";

# Stretch Video to video window
#$Control->GetOLE()->{stretchToFit} = 1;
$Control->SetProperty("stretchToFit", 1);

# Load the Avi file
$Control->SetProperty("URL", "$FindBin::Bin/Movie.avi");

# Event loop
$Window->Show();
Win32::GUI::Dialog();
$Window->Hide();
exit(0);

# Main window event handler

sub Window_Resize {
  if (defined $Window) {
      my ($width, $height) = ($Window->GetClientRect)[2..3];
      $height = $height - $Window->Button->Height() - 20;
      $Control->Resize ($width, $height);
  }
}

sub Button_Click {
    # Play the AVI file
    $Control->GetOLE()->{controls}->play();
    return 1;
}

--- NEW FILE: MShtml.pl ---
#!perl -w
use strict;
use warnings;

#
#  MSHTML : Load static HTML data
#
#

use Win32::GUI qw(WS_CLIPCHILDREN);
use Win32::GUI::AxWindow();

# main Window
my $Window = new Win32::GUI::Window (
    -title => "Win32::GUI::AxWindow MSHTML demo",
    -pos   => [100, 100],
    -size  => [400, 400],
    -name  => "Window",
    -addstyle => WS_CLIPCHILDREN,
) or die "new Window";

# Create AxWindow
my $Control = new Win32::GUI::AxWindow  (
    -parent  => $Window,
    -name    => "Control",
    -pos     => [0, 0],
    -size    => [400, 400],
    -control => "MSHTML:<body>This is a line of text</body>",
) or die "new Control";

# Event loop
$Window->Show();
Win32::GUI::Dialog();
$Window->Hide();
exit(0);

# Main window event handler

sub Window_Resize {
    if (defined $Window) {
        my ($width, $height) = ($Window->GetClientRect)[2..3];
        $Control->Resize ($width, $height);
    }
}