[perl-win32-gui-users] Style Option Bug?

[Erick J. Bourgeois]

When I create a label and/or combobox, give them color attributes and then try 
and use the -style option, the colors are completely ignored. That is, if I 
just use the control without the -style option, then the colors work. For 
example, the following works great:

use Win32::GUI;

$MainWin = new Win32::GUI::Window(
    -name => "MainWin",
    -text => "Style Option",
    -size => [200, 200],
    -pos => [70, 70],
);
$MainWin->AddLabel(
    -text => "Hello World!",
    -size => [$MainWin->Width, $MainWin->Height],
    -pos => [0, 0],
    -background => [0,51,102],
    -foreground => [255,255,255],
);
$MainWin->Show();
Win32::GUI::Dialog();

sub MainWin_Terminate {
    $MainWin->Hide();
    return -1;
}
#--------------EOF---------------#

However, this ignores the color option altogether:

use Win32::GUI;

$MainWin = new Win32::GUI::Window(
    -name => "MainWin",
    -text => "Style Option",
    -size => [200, 200],
    -pos => [70, 70],
);
$MainWin->AddLabel(
    -text => "Hello World!",
    -size => [$MainWin->Width, $MainWin->Height],
    -pos => [0, 0],
    -style => ES_CENTER | WS_VISIBLE,
    -background => [0,51,102],
    -foreground => [255,255,255],
);
$MainWin->Show();
Win32::GUI::Dialog();

sub MainWin_Terminate {
    $MainWin->Hide();
    return -1;
}
#--------------EOF---------------#



erick
never stop questioning
www.jeb.ca