RE: [perl-win32-gui-users] Setting individual item properties

[Glenn W M. <gw...@fo...>]

Jonathan,

I've been doing a lot of work with ListViews recently, so I decided to
have a look at this. One way to go is to use Steve Pick's Hook method to
grab the NM_CUSTOMDRAW notification (though there may be an easier way).
I got most of the way, but have been tearing my hair out trying to
figure out how to dereference the pointer. I just can't seem to get the
right combination of packs and unpacks; perhaps somebody here can point
out my mistake. I have access to the structure, but it appears to be
only a *copy* of the structure.

If you return the commented CDRF_SKIPDEFAULT instead of CDRF_NEWFONT the
item isn't drawn at all, so I think that shows that the idea is
basically sound.

Here is the code:

####################################

use strict;
use Win32();
use Win32::GUI;

use constant WM_NOTIFY			=> 0x4E;
use constant NM_CUSTOMDRAW		=> -12;
use constant CDRF_DODEFAULT		=> 0;
use constant CDRF_NEWFONT		=> 2;
use constant CDRF_SKIPDEFAULT		=> 4;
use constant CDRF_NOTIFYITEMDRAW	=> 32;
use constant CDDS_PREPAINT		=> 1;
use constant CDDS_ITEMPREPAINT	=> 65537;

my $mw = new Win32::GUI::Window(
	-name  => "mw",
	-text	 => "Colour Test",
	-size  => [ 200, 200 ],
	-pos	 => [ 200, 200 ],
);

sub mw_Terminate { return -1 }

$mw->AddListView(
	-name	  => "lvList",
	-pos    => [ 0, 0 ],
	-size   => [ 190, 125 ],
);

$mw->lvList->InsertColumn(
	-index => 0,
	-text	 => "Item",
);

$mw->lvList->ColumnWidth(0,180);

$mw->lvList->InsertItem(-text => "One");
$mw->lvList->InsertItem(-text => "Two");
$mw->lvList->InsertItem(-text => "Three");
$mw->lvList->InsertItem(-text => "Four");

$mw->lvList->TextColor(hex("0000FF"));

$mw->lvList->Hook(NM_CUSTOMDRAW, \&lvList_CustomDraw);

sub lvList_CustomDraw{
	my ($object, $wParam, $lParam, $type, $msgcode)=@_;
	return 1 if $type!=WM_NOTIFY;

	my $struct=unpack("P52",pack("L",$lParam));
	my ($dwDrawStage, $dwItemSpec, $clrText)=
		unpack("x12Ix20ix8I", $struct);

	if ($dwDrawStage==CDDS_PREPAINT) {
		$object->Result(CDRF_NOTIFYITEMDRAW);
		return;
	}

	if ($dwDrawStage==CDDS_ITEMPREPAINT and $dwItemSpec==1) {
		printf ("%X %d %08X\n", $dwDrawStage, $dwItemSpec,
$clrText);

		$struct=pack("x48I",hex("FF0000"));

		($dwDrawStage, $dwItemSpec, $clrText) = 
			unpack("x12Ix20ix8II",unpack("P52", pack("L",
$lParam)));
		printf ("%X %d %08X\n", $dwDrawStage, $dwItemSpec,
$clrText);
		$object->Result(CDRF_NEWFONT);
#		$object->Result(CDRF_SKIPDEFAULT);
		return;
	}
	$object->Result(CDRF_NOTIFYITEMDRAW);
}


$mw->Show;
$mw->lvList->SetFocus();
Win32::GUI::Dialog();

######################################


Glenn

-----Original Message-----
From: per...@li...
[mailto:per...@li...] On Behalf Of
Jonathan Southwick
Sent: Friday, 20 February, 2004 16:19
To: per...@li...
Subject: [perl-win32-gui-users] Setting individual item properties


Awhile back someone was asking about changing the color of individual
items 
in a ListView control.  It can be done if someone knows if there is a
way 
to set the properties of the items.

What needs to be done is set the item's UseItemStyleForSubItems property
to 
false but am not sure if it can be done using the Win32::GUI module.

Is it possible?  If so, how?

An example where this is used is in Windows 2000 (and maybe XP) when you

have Show All Files enabled and none of the system folders are hidden.
The 
protected system folders are in blue but the rest of the list is black.

Anyway I have a need for this now and was wondering if anyone knows if
the 
properties thing can be done.


Jonathan
========================
Jonathan Southwick
jon...@al...
Technical & Network Services
Allegheny College
Meadville, PA 16335
(814) 332-2755



-------------------------------------------------------
SF.Net is sponsored by: Speed Start Your Linux Apps Now.
Build and deploy apps & Web services for Linux with
a free DVD software kit from IBM. Click Now!
http://ads.osdn.com/?ad_id=1356&alloc_id=3438&op=click
_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users