RE: [perl-win32-gui-users] Listview Background color change code available

[Stephen Pick]

Cheers Ramy, just added the ability to set the listview background using the 
standard -background option to CVS.
 
Steve

-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of [EMAIL PROTECTED]
Sent: 17 February 2004 14:05
To: perl-win32-gui-users@lists.sourceforge.net
Subject: [perl-win32-gui-users] Listview Background color change code available


 
Hello all
 
Here is a code to change the background for the ListView
 
I still need to change the background color for ComboBox
if any one knows how let me know.
 
#Set the ListView Background Color
sub LVM_FIRST               (){0x1000} #   ListView messages
sub LVM_SETBKCOLOR (){(&LVM_FIRST + 1)}
sub LV_SetBkColor{
my ($Handle, $Color) = @_;
 $Handle or return undef;
 defined $Color or return;
 return Win32::GUI::SendMessage($Handle, &LVM_SETBKCOLOR, 0, $Color);
}

# Test 
#Call as &LV_SetBkColor($Listview, $Color);
&LV_SetBkColor($LV, 0x00ff00);
 
Just remember to use these 2 functions to set the foreground and background
of the listview text color when using the above function:
 
$LV->TextBkColor($BkColor);
$LV->TextColor($Color);
 
or when listview scrolls it will wipe out the background color you set
 

Ramy