[perl-win32-gui-users] Change Font color

[Chris <ad...@wi...>]

Okay, after I create a label, with a custom font color, how can I update it
and make it so it will actually display the new color?

 

            $Wmain->AddLabel(

                        -name => "bwl",

                        -foreground => $ucolor,

                        -top  => 1,

                        -text  => $string,

                        -left => 1,

                        -visible => 1,

            );

Then inside of a timer I call this

            if ($bwu == '') {

                        logit ("Unable to recive server update");

                        $string = "Server Error, Please Call 5-1082 For
Help. ";

                        $ucolor = $skin{'errorcolor'};

                        $pbcolor = $skin{'pbecolor'};

            } else { 

                        $string = "You have $bwl megs and $bwl1\% left.
";

                        $ucolor=$skin{'normalcolor'};

                        $pbcolor = $skin{'pbcolor'};

                        logit("MAC Data Recived.");

                        logit ("$bwl megs left for this week $z.\n");

            }

Then after that's ran, I use

            $Wmain->bwl->Text("$string");

            $Wmain->bwl->Change( -foreground => $ucolor );

            $Wmain->Progressbar->SetPos($bwl1);

            Win32::GUI::SendMessage($Wmain->Progressbar, PBM_SETBARCOLOR, 0,
$pbcolor);

$Wmain->Update();

It updates the color of the progressbar, but not the font color

 

Please help