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

[ramy]

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