[perl-win32-gui-users] Transparent label, with a transparent Icon

[Roelof B. <ro...@ni...>]

Hi,

I am trying to create a Transparent label, with a transparent image on =
it. I
figured out how to create a transparent image on a label; by using an =
Icon.
I am also able to create a transparent label with -addstyle =3D> 11
But, If I combine the two, my label won't show up.

Anyone an idea? It is not neccesairy for me to use a Label(), anything =
else
would be fine, as long as I am able to show a transparent image (I have =
two
images layered over each other).

Here's some code examples:

# this works (label is transparent):
my $label =3D $window->AddLabel (
    -name =3D> "thename",
    -text =3D> "Bla bla",
    -size =3D> [16,16],
    -pos  =3D> [$x,$y],
    -visible =3D> 1,
    -addstyle =3D> 11,
);
$label->Show();

# this works (image is transparent but label is not):
my $label =3D $window->AddLabel (
    -name =3D> "thename",
    -icon =3D> 1,
    -size =3D> [16,16],
    -pos  =3D> [$x,$y],
    -visible =3D> 1,
);
$label->SetIcon($MyIcon);
$label->Show();

# this doesn't work (label doesn't show):
my $label =3D $window->AddLabel (
    -name =3D> "thename",
    -icon =3D> 1,
    -size =3D> [16,16],
    -pos  =3D> [$x,$y],
    -visible =3D> 1,
    -addstyle =3D> 11,
);
$label->SetIcon($MyIcon);
$label->Show();


Regards and thanks in advance,

Roelof Bos
=20