perl-win32-gui-users

[perl-win32-gui-users] color change (lable)...

[Webmaster C. <web...@cy...>]

Hi !

I would like to change the background - color from my main-window :

#####
$bgWindow = $Window->AddLabel(
   -name      => "bgWindow",
   -left      => 0,
   -top       => 0,
   -width  => $screensize_width,
   -height => $screensize_height,
   -background => "#".$BackgroundRed.$BackgroundGreen.$BackgroundBlue,
);
######

But how i can now the color chnage ???

Thing's like:
##########
$BackgroundRed = "59";
$BackgroundGreen = "12";
$BackgroundBlue = "00";

[....]

$bgWindow->InvalidateRect(1);
#########

... not working ...

#####
$bgWindow->Background("#$BackgroundRed$BackgroundGreen$BackgroundBlue");
#####

work's not too ...

####
$bgWindow->Change( -background =>
"#$BackgroundRed$BackgroundGreen$BackgroundBlue");
####

... is the same ... work's nothing ...

I don't know ... how can I change it ???
Please help me, thx !!!

cu
Thorsten Sommer

Re: [perl-win32-gui-users] color change (lable)...

[Webmaster C. <web...@cy...>]

I have it found:

I write the *init code* into a ...:

#######

&init_background();

sub init_background {
    $bgWindow = $Window->AddLabel(
         -name      => "bgWindow",
         -left      => 0,
         -top       => 0,
         -width  => $screensize_width,
         -height => $screensize_height,
         -background => "#".$BackgroundRed.$BackgroundGreen.$BackgroundBlue,
    );
}
#########

and now i say anywhere

######
$BackgroundRed = "59";
$BackgroundGreen = "12";
$BackgroundBlue = "00";

&init_background();
######

and it's work fine until now ;-)

cu

Thorsten Sommer