Re: [perl-win32-gui-hackers] Setting the background of a window - broken?

[Jez W. <je...@je...>]

Hi,

I was assuming that there was a way to change the background color of the=
=20
window during runtime? As for using a class, I had already tried that:

use Win32::GUI;
use strict;
my $WC =3D new Win32::GUI::Class(
    -name =3D> "Background",
   # -style =3D> 0,
    -background =3D> [208,187,255],
);

my $win =3D new Win32::GUI::Window (
    -pos         =3D> [100, 100],
    -size        =3D> [550, 235],
    -name        =3D> "Window",
    -text        =3D> "testing",
    -class       =3D> $WC,
);

$win->Show();

Win32::GUI::Dialog();

No joy - but running the FetchURL.pl example in loft did bring up a windo=
w=20
with a different window (then crashed on exit - that DC issue).

Cheers,

jez.
----- Original Message -----=20
From: "Johan Lindstrom" <jo...@Da...>
To: "guihackers" <per...@li...>
Sent: Tuesday, October 26, 2004 4:40 PM
Subject: Re: [perl-win32-gui-hackers] Setting the background of a window =
-=20
broken?


> At 17:26 2004-10-26, Jez White wrote:
>>For the life of me I can't seem to be able to set the background color =
of=20
>>a window - I know you could in previous versions.
>>
>>Surely -background =3D> [255,0,0] should work just like with controls?
>
> I don't think that ever worked, but I'm not sure. You need to create a=20
> Win32::GUI::Class and assign a background color to it and assign the cl=
ass=20
> to the window.
>
> There's a TGL demo program that does this.
>
>
> /J
>
> -------- ------ ---- --- -- --  --  -     -     -        -          -
> Johan Lindstr=F6m    Sourcerer @ Boss Casinos   johanl AT DarSerMan.com
>
> Latest bookmark: "TCP Connection Passing"
> http://tcpcp.sourceforge.net/
> dmoz: /Computers/Programming/Languages/JavaScript/ 12
>
>
>
> -------------------------------------------------------
> This SF.net email is sponsored by: IT Product Guide on ITManagersJourna=
l
> Use IT products in your business? Tell us what you think of them. Give =
us
> Your Opinions, Get Free ThinkGeek Gift Certificates! Click to find out=20
> more
> http://productguide.itmanagersjournal.com/guidepromo.tmpl
> _______________________________________________
> Perl-Win32-GUI-Hackers mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-hackers=20