Bookmarks

Yahoo Gmail Google Facebook Delicious Twitter Reddit Stumpleupon Myspace Digg

Search queries

WwWXxX, udp high ports, d-link extract firmware dsl-2750u, wwwwxxxxx.2G, yxxxcom, WWWXXX, ftp://192.168.100.100, wwwxxx 100, www.xxxcon, wwwxxx

Links

XODOX
Impressum

#1: Change font in Win32::GUI AddListView items

Posted on 2011-10-14 23:03:01 by Ken Cornetet

--===============0305550752==
Content-Language: en-US
Content-Type: multipart/alternative;
boundary="_000_DF6A68E27C9C734592018E2317E95836070A52045Bnts 532kiikimb_"

--_000_DF6A68E27C9C734592018E2317E95836070A52045Bnts532kiiki mb_
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

Is it possible to change the font (bold, color,etc) when adding items to a =
Win32::GUI AddListView object?

I've tried passing a font object to no avail

my $fb =3D new Win32::GUI::Font(-name =3D> "Courier New", -height =3D> 10, =
-bold =3D> 0);
$lv->InsertItem(-font =3D> $fb, -item =3D> $i, -text =3D> [" $s", "", "", =
"", "", "", ""]);

There are the TextColor and TextBKColor methods, but they appear to be glob=
al to the whole ListView object.

Ken Cornetet 812.482.8499
To err is human - to moo, bovine.


--_000_DF6A68E27C9C734592018E2317E95836070A52045Bnts532kiiki mb_
Content-Type: text/html; charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

<html xmlns:v=3D"urn:schemas-microsoft-com:vml" xmlns:o=3D"urn:schemas-micr=
osoft-com:office:office" xmlns:w=3D"urn:schemas-microsoft-com:office:word" =
xmlns:m=3D"http://schemas.microsoft.com/office/2004/12/omml" xmlns=3D"http:=
//www.w3.org/TR/REC-html40"><head><META HTTP-EQUIV=3D"Content-Type" CONTENT=
=3D"text/html; charset=3Dus-ascii"><meta name=3DGenerator content=3D"Micros=
oft Word 14 (filtered medium)"><style><!--
/* Font Definitions */
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri","sans-serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
span.EmailStyle17
{mso-style-type:personal-compose;
font-family:"Calibri","sans-serif";
color:windowtext;}
..MsoChpDefault
{mso-style-type:export-only;
font-family:"Calibri","sans-serif";}
@page WordSection1
{size:8.5in 11.0in;
margin:1.0in 1.0in 1.0in 1.0in;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext=3D"edit" spidmax=3D"1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext=3D"edit">
<o:idmap v:ext=3D"edit" data=3D"1" />
</o:shapelayout></xml><![endif]--></head><body lang=3DEN-US link=3Dblue vli=
nk=3Dpurple><div class=3DWordSection1><p class=3DMsoNormal>Is it possible t=
o change the font (bold, color,etc) when adding items to a Win32::GUI AddLi=
stView object?<o:p></o:p></p><p class=3DMsoNormal><o:p>&nbsp;</o:p></p><p c=
lass=3DMsoNormal>I&#8217;ve tried passing a font object to no avail<o:p></o=
:p></p><p class=3DMsoNormal><o:p>&nbsp;</o:p></p><p class=3DMsoNormal><span=
style=3D'font-family:"Courier New"'>my $fb =3D new Win32::GUI::Font(-name =
=3D&gt; &quot;Courier New&quot;, -height =3D&gt; 10, -bold =3D&gt; 0);<o:p>=
</o:p></span></p><p class=3DMsoNormal><span style=3D'font-family:"Courier N=
ew"'>$lv-&gt;InsertItem(-font =3D&gt; $fb, -item =3D&gt; $i, -text =3D&gt; =
[&quot;&nbsp; $s&quot;, &quot;&quot;, &quot;&quot;, &quot;&quot;, &quot;&qu=
ot;, &quot;&quot;, &quot;&quot;]);<o:p></o:p></span></p><p class=3DMsoNorma=
l><o:p>&nbsp;</o:p></p><p class=3DMsoNormal>There are the TextColor and Tex=
tBKColor methods, but they appear to be global to the whole ListView object=
..<o:p></o:p></p><p class=3DMsoNormal><o:p>&nbsp;</o:p></p><p class=3DMsoNor=
mal>Ken Cornetet 812.482.8499<o:p></o:p></p><p class=3DMsoNormal>To err is =
human - to moo, bovine.<o:p></o:p></p><p class=3DMsoNormal><o:p>&nbsp;</o:p=
></p></div></body></html>=

--_000_DF6A68E27C9C734592018E2317E95836070A52045Bnts532kiiki mb_--

--===============0305550752==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============0305550752==--

Report this message

#2: Re: Change font in Win32::GUI AddListView items

Posted on 2011-10-15 14:17:36 by Claus Kick

--===============0385655881==
Content-Transfer-Encoding: 7bit
Content-Type: multipart/alternative;
boundary=Apple-Mail-1-1071443038


--Apple-Mail-1-1071443038
Content-Transfer-Encoding: quoted-printable
Content-Type: text/plain;
charset=utf-8

Is there owner-draw set somewhere? If so, then yes


Am 14.10.2011 um 23:03 schrieb Ken Cornetet <Ken.Cornetet@kimball.com>:

> Is it possible to change the font (bold, color,etc) when adding items to a=
Win32::GUI AddListView object?
>=20
> =20
>=20
> Iâ€=99ve tried passing a font object to no avail
>=20
> =20
>=20
> my $fb =3D new Win32::GUI::Font(-name =3D> "Courier New", -height =3D> 10,=
-bold =3D> 0);
>=20
> $lv->InsertItem(-font =3D> $fb, -item =3D> $i, -text =3D> [" $s", "", "",=
"", "", "", ""]);
>=20
> =20
>=20
> There are the TextColor and TextBKColor methods, but they appear to be glo=
bal to the whole ListView object.
>=20
> =20
>=20
> Ken Cornetet 812.482.8499
>=20
> To err is human - to moo, bovine.
>=20
> =20
>=20
> _______________________________________________
> ActivePerl mailing list
> ActivePerl@listserv.ActiveState.com
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

--Apple-Mail-1-1071443038
Content-Transfer-Encoding: quoted-printable
Content-Type: text/html;
charset=utf-8

<html><body bgcolor=3D"#FFFFFF"><div>Is there owner-draw set somewhere? If s=
o, then yes</div><div><br><br>Am 14.10.2011 um 23:03 schrieb Ken Cornetet &l=
t;<a href=3D"mailto:Ken.Cornetet@kimball.com">Ken.Cornetet@kimball.com</a>&g=
t;:<br><br></div><div></div><blockquote type=3D"cite"><div><div class=3D"Wor=
dSection1"><p class=3D"MsoNormal">Is it possible to change the font (bold, c=
olor,etc) when adding items to a Win32::GUI AddListView object?<o:p></o:p></=
p><p class=3D"MsoNormal"><o:p>&nbsp;</o:p></p><p class=3D"MsoNormal">Iâ€=
=99ve tried passing a font object to no avail<o:p></o:p></p><p class=3D"MsoN=
ormal"><o:p>&nbsp;</o:p></p><p class=3D"MsoNormal"><span style=3D"font-famil=
y:&quot;Courier New&quot;">my $fb =3D new Win32::GUI::Font(-name =3D&gt; "Co=
urier New", -height =3D&gt; 10, -bold =3D&gt; 0);<o:p></o:p></span></p><p cl=
ass=3D"MsoNormal"><span style=3D"font-family:&quot;Courier New&quot;">$lv-&g=
t;InsertItem(-font =3D&gt; $fb, -item =3D&gt; $i, -text =3D&gt; ["&nbsp; $s"=
, "", "", "", "", "", ""]);<o:p></o:p></span></p><p class=3D"MsoNormal"><o:p=
>&nbsp;</o:p></p><p class=3D"MsoNormal">There are the TextColor and TextBKCo=
lor methods, but they appear to be global to the whole ListView object.<o:p>=
</o:p></p><p class=3D"MsoNormal"><o:p>&nbsp;</o:p></p><p class=3D"MsoNormal"=
>Ken Cornetet 812.482.8499<o:p></o:p></p><p class=3D"MsoNormal">To err is hu=
man - to moo, bovine.<o:p></o:p></p><p class=3D"MsoNormal"><o:p>&nbsp;</o:p>=
</p></div></div></blockquote><blockquote type=3D"cite"><div><span>__________=
_____________________________________</span><br><span>ActivePerl mailing lis=
t</span><br><span><a href=3D"mailto:ActivePerl@listserv.ActiveState.com">Act=
ivePerl@listserv.ActiveState.com</a></span><br><span>To unsubscribe: <a href=
=3D"http://listserv.ActiveState.com/mailman/mysubs"><a href=3D"http://listse=
rv.ActiveState.com/mailman/mysubs">http://listserv.ActiveSta te.com/mailman/m=
ysubs</a></a></span></div></blockquote></body></html>=

--Apple-Mail-1-1071443038--

--===============0385655881==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============0385655881==--

Report this message

#3: RE: Change font in Win32::GUI AddListView items

Posted on 2011-10-17 16:00:52 by Ken Cornetet

--===============0552330564==
Content-Language: en-US
Content-Type: multipart/alternative;
boundary="_000_DF6A68E27C9C734592018E2317E95836070C580742nts 532kiikimb_"

--_000_DF6A68E27C9C734592018E2317E95836070C580742nts532kiiki mb_
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

To follow up on my own post, I've found several enticing code snippets (lik=
e this one: http://perl-win32-gui.sourceforge.net/cgi-bin/wiki.cgi?Chang e_L=
istview_Item_Color), but still no joy.

I've seen lots of variations on hooking CUSTOMDRAW that end up at this line=
:
substr($lParam, 48, 8, $clrText);

The problem with this is that Win32::GUI (?) throws up an error box that sa=
ys "substr outside of string at xenmong.pl line 172.

If I put in a print length($lParam) it shows that $lParam is 8 bytes, which=
is what I'd expect after finding that lParam is a LONG via google.

I'd love to try what is apparently the "new" method of handling CustomDraw =
discussed here http://www.mail-archive.com/perl-win32-gui-cvscommit@lists.s =
ourceforge.net/msg00053.html, but I can't find Win32::GUI::CustomDraw anywh=
ere.

What am I missing?

Ken Cornetet 812.482.8499
To err is human - to moo, bovine.

From: activeperl-bounces@listserv.ActiveState.com [mailto:activeperl-bounce=
s@listserv.ActiveState.com] On Behalf Of Ken Cornetet
Sent: Friday, October 14, 2011 5:03 PM
To: activeperl@listserv.activestate.com
Subject: Change font in Win32::GUI AddListView items

Is it possible to change the font (bold, color,etc) when adding items to a =
Win32::GUI AddListView object?

I've tried passing a font object to no avail

my $fb =3D new Win32::GUI::Font(-name =3D> "Courier New", -height =3D> 10, =
-bold =3D> 0);
$lv->InsertItem(-font =3D> $fb, -item =3D> $i, -text =3D> [" $s", "", "", =
"", "", "", ""]);

There are the TextColor and TextBKColor methods, but they appear to be glob=
al to the whole ListView object.

Ken Cornetet 812.482.8499
To err is human - to moo, bovine.


--_000_DF6A68E27C9C734592018E2317E95836070C580742nts532kiiki mb_
Content-Type: text/html; charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

<html xmlns:v=3D"urn:schemas-microsoft-com:vml" xmlns:o=3D"urn:schemas-micr=
osoft-com:office:office" xmlns:w=3D"urn:schemas-microsoft-com:office:word" =
xmlns:m=3D"http://schemas.microsoft.com/office/2004/12/omml" xmlns=3D"http:=
//www.w3.org/TR/REC-html40"><head><meta http-equiv=3DContent-Type content=
=3D"text/html; charset=3Dus-ascii"><meta name=3DGenerator content=3D"Micros=
oft Word 14 (filtered medium)"><style><!--
/* Font Definitions */
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
{font-family:Tahoma;
panose-1:2 11 6 4 3 5 4 4 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri","sans-serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
span.EmailStyle17
{mso-style-type:personal;
font-family:"Calibri","sans-serif";
color:windowtext;}
span.EmailStyle18
{mso-style-type:personal-reply;
font-family:"Calibri","sans-serif";
color:#1F497D;}
..MsoChpDefault
{mso-style-type:export-only;
font-size:10.0pt;}
@page WordSection1
{size:8.5in 11.0in;
margin:1.0in 1.0in 1.0in 1.0in;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext=3D"edit" spidmax=3D"1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext=3D"edit">
<o:idmap v:ext=3D"edit" data=3D"1" />
</o:shapelayout></xml><![endif]--></head><body lang=3DEN-US link=3Dblue vli=
nk=3Dpurple><div class=3DWordSection1><p class=3DMsoNormal>To follow up on =
my own post, I&#8217;ve found several enticing code snippets (like this one=
: <a href=3D"http://perl-win32-gui.sourceforge.net/cgi-bin/wiki.cgi?Change_=
Listview_Item_Color">http://perl-win32-gui.sourceforge.net/c gi-bin/wiki.cgi=
?Change_Listview_Item_Color</a>), but still no joy. <o:p></o:p></p><p class=
=3DMsoNormal><o:p>&nbsp;</o:p></p><p class=3DMsoNormal>I&#8217;ve seen lots=
of variations on hooking CUSTOMDRAW that end up at this line:<o:p></o:p></=
p><p class=3DMsoNormal><span style=3D'font-family:"Courier New"'>substr($lP=
aram, 48, 8, $clrText);<o:p></o:p></span></p><p class=3DMsoNormal><span sty=
le=3D'font-family:"Courier New"'><o:p>&nbsp;</o:p></span></p><p class=3DMso=
Normal>The problem with this is that Win32::GUI (?) throws up an error box =
that says &#8220;substr outside of string at xenmong.pl line 172.<o:p></o:p=
></p><p class=3DMsoNormal><o:p>&nbsp;</o:p></p><p class=3DMsoNormal>If I pu=
t in a print length($lParam) it shows that $lParam is 8 bytes, which is wha=
t I&#8217;d expect after finding that lParam is a LONG via google.<o:p></o:=
p></p><p class=3DMsoNormal><o:p>&nbsp;</o:p></p><p class=3DMsoNormal>I&#821=
7;d love to try what is apparently the &#8220;new&#8221; method of handling=
CustomDraw discussed here <a href=3D"http://www.mail-archive.com/perl-win3=
2-gui-cvscommit@lists.sourceforge.net/msg00053.html"><span style=3D'color:w=
indowtext'>http://www.mail-archive.com/perl-win32-gui-cvscom mit@lists.sourc=
eforge.net/msg00053.html</span></a>, but I can&#8217;t find Win32::GUI::Cus=
tomDraw anywhere.<o:p></o:p></p><p class=3DMsoNormal><span style=3D'font-fa=
mily:"Courier New"'><o:p>&nbsp;</o:p></span></p><p class=3DMsoNormal>What a=
m I missing?<o:p></o:p></p><p class=3DMsoNormal><span style=3D'color:#1F497=
D'><o:p>&nbsp;</o:p></span></p><div><p class=3DMsoNormal><span style=3D'col=
or:#1F497D'>Ken Cornetet 812.482.8499<o:p></o:p></span></p><p class=3DMsoNo=
rmal><span style=3D'color:#1F497D'>To err is human - to moo, bovine.<o:p></=
o:p></span></p></div><p class=3DMsoNormal><span style=3D'color:#1F497D'><o:=
p>&nbsp;</o:p></span></p><div><div style=3D'border:none;border-top:solid #B=
5C4DF 1.0pt;padding:3.0pt 0in 0in 0in'><p class=3DMsoNormal><b><span style=
=3D'font-size:10.0pt;font-family:"Tahoma","sans-serif"'>From :</span></b><sp=
an style=3D'font-size:10.0pt;font-family:"Tahoma","sans-serif"' > activeperl=
-bounces@listserv.ActiveState.com [mailto:activeperl-bounces@listserv.Activ=
eState.com] <b>On Behalf Of </b>Ken Cornetet<br><b>Sent:</b> Friday, Octobe=
r 14, 2011 5:03 PM<br><b>To:</b> activeperl@listserv.activestate.com<br><b>=
Subject:</b> Change font in Win32::GUI AddListView items<o:p></o:p></span><=
/p></div></div><p class=3DMsoNormal><o:p>&nbsp;</o:p></p><p class=3DMsoNorm=
al>Is it possible to change the font (bold, color,etc) when adding items to=
a Win32::GUI AddListView object?<o:p></o:p></p><p class=3DMsoNormal><o:p>&=
nbsp;</o:p></p><p class=3DMsoNormal>I&#8217;ve tried passing a font object =
to no avail<o:p></o:p></p><p class=3DMsoNormal><o:p>&nbsp;</o:p></p><p clas=
s=3DMsoNormal><span style=3D'font-family:"Courier New"'>my $fb =3D new Win3=
2::GUI::Font(-name =3D&gt; &quot;Courier New&quot;, -height =3D&gt; 10, -bo=
ld =3D&gt; 0);<o:p></o:p></span></p><p class=3DMsoNormal><span style=3D'fon=
t-family:"Courier New"'>$lv-&gt;InsertItem(-font =3D&gt; $fb, -item =3D&gt;=
$i, -text =3D&gt; [&quot;&nbsp; $s&quot;, &quot;&quot;, &quot;&quot;, &quo=
t;&quot;, &quot;&quot;, &quot;&quot;, &quot;&quot;]);<o:p></o:p></span></p>=
<p class=3DMsoNormal><o:p>&nbsp;</o:p></p><p class=3DMsoNormal>There are th=
e TextColor and TextBKColor methods, but they appear to be global to the wh=
ole ListView object.<o:p></o:p></p><p class=3DMsoNormal><o:p>&nbsp;</o:p></=
p><p class=3DMsoNormal>Ken Cornetet 812.482.8499<o:p></o:p></p><p class=3DM=
soNormal>To err is human - to moo, bovine.<o:p></o:p></p><p class=3DMsoNorm=
al><o:p>&nbsp;</o:p></p></div></body></html>=

--_000_DF6A68E27C9C734592018E2317E95836070C580742nts532kiiki mb_--

--===============0552330564==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============0552330564==--

Report this message

#4: Re: Change font in Win32::GUI AddListView items

Posted on 2011-10-17 23:46:07 by Claus Kick

--===============0297615002==
Content-Transfer-Encoding: 7bit
Content-Type: multipart/alternative;
boundary=Apple-Mail-2--869130679


--Apple-Mail-2--869130679
Content-Transfer-Encoding: quoted-printable
Content-Type: text/plain;
charset=utf-8

Lparam and wparam are the parameters of the send message win32 API Call and m=
ostly Pointers to a Structure. I guess you Need to Look up the msdn info and=
implement custom draw yourself.=20

Am 17.10.2011 um 16:00 schrieb Ken Cornetet <Ken.Cornetet@kimball.com>:

> To follow up on my own post, Iâ€=99ve found several enticing code snip=
pets (like this one: http://perl-win32-gui.sourceforge.net/cgi-bin/wiki.cgi?=
Change_Listview_Item_Color), but still no joy.
>=20
> =20
>=20
> Iâ€=99ve seen lots of variations on hooking CUSTOMDRAW that end up at t=
his line:
>=20
> substr($lParam, 48, 8, $clrText);
>=20
> =20
>=20
> The problem with this is that Win32::GUI (?) throws up an error box that s=
ays â€=9Csubstr outside of string at xenmong.pl line 172.
>=20
> =20
>=20
> If I put in a print length($lParam) it shows that $lParam is 8 bytes, whic=
h is what Iâ€=99d expect after finding that lParam is a LONG via google.=

>=20
> =20
>=20
> Iâ€=99d love to try what is apparently the â€=9Cnewâ€=9D metho=
d of handling CustomDraw discussed here http://www.mail-archive.com/perl-win=
32-gui-cvscommit@lists.sourceforge.net/msg00053.html, but I canâ€=99t fi=
nd Win32::GUI::CustomDraw anywhere.
>=20
> =20
>=20
> What am I missing?
>=20
> =20
>=20
> Ken Cornetet 812.482.8499
>=20
> To err is human - to moo, bovine.
>=20
> =20
>=20
> From: activeperl-bounces@listserv.ActiveState.com [mailto:activeperl-bounc=
es@listserv.ActiveState.com] On Behalf Of Ken Cornetet
> Sent: Friday, October 14, 2011 5:03 PM
> To: activeperl@listserv.activestate.com
> Subject: Change font in Win32::GUI AddListView items
>=20
> =20
>=20
> Is it possible to change the font (bold, color,etc) when adding items to a=
Win32::GUI AddListView object?
>=20
> =20
>=20
> Iâ€=99ve tried passing a font object to no avail
>=20
> =20
>=20
> my $fb =3D new Win32::GUI::Font(-name =3D> "Courier New", -height =3D> 10,=
-bold =3D> 0);
>=20
> $lv->InsertItem(-font =3D> $fb, -item =3D> $i, -text =3D> [" $s", "", "",=
"", "", "", ""]);
>=20
> =20
>=20
> There are the TextColor and TextBKColor methods, but they appear to be glo=
bal to the whole ListView object.
>=20
> =20
>=20
> Ken Cornetet 812.482.8499
>=20
> To err is human - to moo, bovine.
>=20
> =20
>=20
> _______________________________________________
> ActivePerl mailing list
> ActivePerl@listserv.ActiveState.com
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

--Apple-Mail-2--869130679
Content-Transfer-Encoding: quoted-printable
Content-Type: text/html;
charset=utf-8

<html><body bgcolor=3D"#FFFFFF"><div>Lparam and wparam are the parameters of=
the send message win32 API Call and mostly Pointers to a Structure. I guess=
you Need to Look up the msdn info and implement custom draw yourself.&nbsp;=
<br><br>Am 17.10.2011 um 16:00 schrieb Ken Cornetet &lt;<a href=3D"mailto:Ke=
n.Cornetet@kimball.com">Ken.Cornetet@kimball.com</a>&gt;:<br><br></div><div>=
</div><blockquote type=3D"cite"><div><div class=3D"WordSection1"><p class=3D=
"MsoNormal">To follow up on my own post, Iâ€=99ve found several enticing=
code snippets (like this one: <a href=3D"http://perl-win32-gui.sourceforge.=
net/cgi-bin/wiki.cgi?Change_Listview_Item_Color"><a href=3D"http://perl-win3=
2-gui.sourceforge.net/cgi-bin/wiki.cgi?Change_Listview_Item_ Color">http://pe=
rl-win32-gui.sourceforge.net/cgi-bin/wiki.cgi?Change_Listvie w_Item_Color</a>=
</a>), but still no joy. <o:p></o:p></p><p class=3D"MsoNormal"><o:p>&nbsp;</=
o:p></p><p class=3D"MsoNormal">Iâ€=99ve seen lots of variations on hooki=
ng CUSTOMDRAW that end up at this line:<o:p></o:p></p><p class=3D"MsoNormal"=
><span style=3D"font-family:&quot;Courier New&quot;">substr($lParam, 48, 8, $=
clrText);<o:p></o:p></span></p><p class=3D"MsoNormal"><span style=3D"font-fa=
mily:&quot;Courier New&quot;"><o:p>&nbsp;</o:p></span></p><p class=3D"MsoNor=
mal">The problem with this is that Win32::GUI (?) throws up an error box tha=
t says â€=9Csubstr outside of string at xenmong.pl line 172.<o:p></o:p><=
/p><p class=3D"MsoNormal"><o:p>&nbsp;</o:p></p><p class=3D"MsoNormal">If I p=
ut in a print length($lParam) it shows that $lParam is 8 bytes, which is wha=
t Iâ€=99d expect after finding that lParam is a LONG via google.<o:p></o=
:p></p><p class=3D"MsoNormal"><o:p>&nbsp;</o:p></p><p class=3D"MsoNormal">I=E2=
€™d love to try what is apparently the â€=9Cnewâ€=9D method of h=
andling CustomDraw discussed here <a href=3D"http://www.mail-archive.com/per=
l-win32-gui-cvscommit@lists.sourceforge.net/msg00053.html"><span style=3D"co=
lor:windowtext">http://www.mail-archive.com/perl-win32-gui-c vscommit@lists.s=
ourceforge.net/msg00053.html</span></a>, but I canâ€=99t find Win32::GUI=
::CustomDraw anywhere.<o:p></o:p></p><p class=3D"MsoNormal"><span style=3D"f=
ont-family:&quot;Courier New&quot;"><o:p>&nbsp;</o:p></span></p><p class=3D"=
MsoNormal">What am I missing?<o:p></o:p></p><p class=3D"MsoNormal"><span sty=
le=3D"color:#1F497D"><o:p>&nbsp;</o:p></span></p><div><p class=3D"MsoNormal"=
><span style=3D"color:#1F497D">Ken Cornetet 812.482.8499<o:p></o:p></span></=
p><p class=3D"MsoNormal"><span style=3D"color:#1F497D">To err is human - to m=
oo, bovine.<o:p></o:p></span></p></div><p class=3D"MsoNormal"><span style=3D=
"color:#1F497D"><o:p>&nbsp;</o:p></span></p><div><div style=3D"border:none;b=
order-top:solid #B5C4DF 1.0pt;padding:3.0pt 0in 0in 0in"><p class=3D"MsoNorm=
al"><b><span style=3D"font-size:10.0pt;font-family:&quot;Tahoma&quot;,&quot;=
sans-serif&quot;">From:</span></b><span style=3D"font-size:10.0pt;font-famil=
y:&quot;Tahoma&quot;,&quot;sans-serif&quot;"> <a href=3D"mailto:activeperl-b=
ounces@listserv.ActiveState.com">activeperl-bounces@listserv .ActiveState.com=
</a> [mailto:activeperl-bounces@listserv.ActiveState.com] <b>On Behalf Of </=
b>Ken Cornetet<br><b>Sent:</b> Friday, October 14, 2011 5:03 PM<br><b>To:</b=
> <a href=3D"mailto:activeperl@listserv.activestate.com"><a href=3D"mailto:a=
ctiveperl@listserv.activestate.com">activeperl@listserv.acti vestate.com</a><=
/a><br><b>Subject:</b> Change font in Win32::GUI AddListView items<o:p></o:p=
></span></p></div></div><p class=3D"MsoNormal"><o:p>&nbsp;</o:p></p><p class=
=3D"MsoNormal">Is it possible to change the font (bold, color,etc) when addi=
ng items to a Win32::GUI AddListView object?<o:p></o:p></p><p class=3D"MsoNo=
rmal"><o:p>&nbsp;</o:p></p><p class=3D"MsoNormal">Iâ€=99ve tried passing=
a font object to no avail<o:p></o:p></p><p class=3D"MsoNormal"><o:p>&nbsp;<=
/o:p></p><p class=3D"MsoNormal"><span style=3D"font-family:&quot;Courier New=
&quot;">my $fb =3D new Win32::GUI::Font(-name =3D&gt; "Courier New", -height=
=3D&gt; 10, -bold =3D&gt; 0);<o:p></o:p></span></p><p class=3D"MsoNormal"><=
span style=3D"font-family:&quot;Courier New&quot;">$lv-&gt;InsertItem(-font =3D=
&gt; $fb, -item =3D&gt; $i, -text =3D&gt; ["&nbsp; $s", "", "", "", "", "", "=
"]);<o:p></o:p></span></p><p class=3D"MsoNormal"><o:p>&nbsp;</o:p></p><p cla=
ss=3D"MsoNormal">There are the TextColor and TextBKColor methods, but they a=
ppear to be global to the whole ListView object.<o:p></o:p></p><p class=3D"M=
soNormal"><o:p>&nbsp;</o:p></p><p class=3D"MsoNormal">Ken Cornetet 812.482.8=
499<o:p></o:p></p><p class=3D"MsoNormal">To err is human - to moo, bovine.<o=
:p></o:p></p><p class=3D"MsoNormal"><o:p>&nbsp;</o:p></p></div></div></block=
quote><blockquote type=3D"cite"><div><span>_________________________________=
______________</span><br><span>ActivePerl mailing list</span><br><span><a hr=
ef=3D"mailto:ActivePerl@listserv.ActiveState.com">ActivePerl @listserv.Active=
State.com</a></span><br><span>To unsubscribe: <a href=3D"http://listserv.Act=
iveState.com/mailman/mysubs"><a href=3D"http://listserv.ActiveState.com/mail=
man/mysubs">http://listserv.ActiveState.com/mailman/mysubs</a></a></span></d=
iv></blockquote></body></html>=

--Apple-Mail-2--869130679--

--===============0297615002==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============0297615002==--

Report this message

#5: Re: Change font in Win32::GUI AddListView items

Posted on 2011-10-17 23:53:31 by Claus Kick

--===============1809893731==
Content-Transfer-Encoding: 7bit
Content-Type: multipart/alternative;
boundary=Apple-Mail-3--868685948


--Apple-Mail-3--868685948
Content-Transfer-Encoding: quoted-printable
Content-Type: text/plain;
charset=utf-8

This actually explains Pretty well:

http://www.codeguru.com/cpp/controls/listview/customdrawing/ article.php/c419=
5

Am 17.10.2011 um 16:00 schrieb Ken Cornetet <Ken.Cornetet@kimball.com>:

> To follow up on my own post, Iâ€=99ve found several enticing code snip=
pets (like this one: http://perl-win32-gui.sourceforge.net/cgi-bin/wiki.cgi?=
Change_Listview_Item_Color), but still no joy.
>=20
> =20
>=20
> Iâ€=99ve seen lots of variations on hooking CUSTOMDRAW that end up at t=
his line:
>=20
> substr($lParam, 48, 8, $clrText);
>=20
> =20
>=20
> The problem with this is that Win32::GUI (?) throws up an error box that s=
ays â€=9Csubstr outside of string at xenmong.pl line 172.
>=20
> =20
>=20
> If I put in a print length($lParam) it shows that $lParam is 8 bytes, whic=
h is what Iâ€=99d expect after finding that lParam is a LONG via google.=

>=20
> =20
>=20
> Iâ€=99d love to try what is apparently the â€=9Cnewâ€=9D metho=
d of handling CustomDraw discussed here http://www.mail-archive.com/perl-win=
32-gui-cvscommit@lists.sourceforge.net/msg00053.html, but I canâ€=99t fi=
nd Win32::GUI::CustomDraw anywhere.
>=20
> =20
>=20
> What am I missing?
>=20
> =20
>=20
> Ken Cornetet 812.482.8499
>=20
> To err is human - to moo, bovine.
>=20
> =20
>=20
> From: activeperl-bounces@listserv.ActiveState.com [mailto:activeperl-bounc=
es@listserv.ActiveState.com] On Behalf Of Ken Cornetet
> Sent: Friday, October 14, 2011 5:03 PM
> To: activeperl@listserv.activestate.com
> Subject: Change font in Win32::GUI AddListView items
>=20
> =20
>=20
> Is it possible to change the font (bold, color,etc) when adding items to a=
Win32::GUI AddListView object?
>=20
> =20
>=20
> Iâ€=99ve tried passing a font object to no avail
>=20
> =20
>=20
> my $fb =3D new Win32::GUI::Font(-name =3D> "Courier New", -height =3D> 10,=
-bold =3D> 0);
>=20
> $lv->InsertItem(-font =3D> $fb, -item =3D> $i, -text =3D> [" $s", "", "",=
"", "", "", ""]);
>=20
> =20
>=20
> There are the TextColor and TextBKColor methods, but they appear to be glo=
bal to the whole ListView object.
>=20
> =20
>=20
> Ken Cornetet 812.482.8499
>=20
> To err is human - to moo, bovine.
>=20
> =20
>=20
> _______________________________________________
> ActivePerl mailing list
> ActivePerl@listserv.ActiveState.com
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

--Apple-Mail-3--868685948
Content-Transfer-Encoding: quoted-printable
Content-Type: text/html;
charset=utf-8

<html><body bgcolor=3D"#FFFFFF"><div>This actually explains Pretty well:</di=
v><div><br></div><div><a href=3D"http://www.codeguru.com/cpp/controls/listvi=
ew/customdrawing/article.php/c4195">http://www.codeguru.com/ cpp/controls/lis=
tview/customdrawing/article.php/c4195</a><br><br>Am 17.10.2011 um 16:00 schr=
ieb Ken Cornetet &lt;Ken.Cornetet@kimball.com&gt;:<br><br></div><div></div><=
blockquote type=3D"cite"><div><div class=3D"WordSection1"><p class=3D"MsoNor=
mal">To follow up on my own post, Iâ€=99ve found several enticing code s=
nippets (like this one: <a href=3D"http://perl-win32-gui.sourceforge.net/cgi=
-bin/wiki.cgi?Change_Listview_Item_Color"><a href=3D"http://perl-win32-gui.s=
ourceforge.net/cgi-bin/wiki.cgi?Change_Listview_Item_Color"> http://perl-win3=
2-gui.sourceforge.net/cgi-bin/wiki.cgi?Change_Listview_Item_ Color</a></a>), b=
ut still no joy. <o:p></o:p></p><p class=3D"MsoNormal"><o:p>&nbsp;</o:p></p>=
<p class=3D"MsoNormal">Iâ€=99ve seen lots of variations on hooking CUSTO=
MDRAW that end up at this line:<o:p></o:p></p><p class=3D"MsoNormal"><span s=
tyle=3D"font-family:&quot;Courier New&quot;">substr($lParam, 48, 8, $clrText=
);<o:p></o:p></span></p><p class=3D"MsoNormal"><span style=3D"font-family:&q=
uot;Courier New&quot;"><o:p>&nbsp;</o:p></span></p><p class=3D"MsoNormal">Th=
e problem with this is that Win32::GUI (?) throws up an error box that says =E2=
€œsubstr outside of string at xenmong.pl line 172.<o:p></o:p></p><p clas=
s=3D"MsoNormal"><o:p>&nbsp;</o:p></p><p class=3D"MsoNormal">If I put in a pr=
int length($lParam) it shows that $lParam is 8 bytes, which is what Iâ€=99=
d expect after finding that lParam is a LONG via google.<o:p></o:p></p><p cl=
ass=3D"MsoNormal"><o:p>&nbsp;</o:p></p><p class=3D"MsoNormal">Iâ€=99d lo=
ve to try what is apparently the â€=9Cnewâ€=9D method of handling Cu=
stomDraw discussed here <a href=3D"http://www.mail-archive.com/perl-win32-gu=
i-cvscommit@lists.sourceforge.net/msg00053.html"><span style=3D"color:window=
text">http://www.mail-archive.com/perl-win32-gui-cvscommit@l ists.sourceforge=
..net/msg00053.html</span></a>, but I canâ€=99t find Win32::GUI::CustomDr=
aw anywhere.<o:p></o:p></p><p class=3D"MsoNormal"><span style=3D"font-family=
:&quot;Courier New&quot;"><o:p>&nbsp;</o:p></span></p><p class=3D"MsoNormal"=
>What am I missing?<o:p></o:p></p><p class=3D"MsoNormal"><span style=3D"colo=
r:#1F497D"><o:p>&nbsp;</o:p></span></p><div><p class=3D"MsoNormal"><span sty=
le=3D"color:#1F497D">Ken Cornetet 812.482.8499<o:p></o:p></span></p><p class=
=3D"MsoNormal"><span style=3D"color:#1F497D">To err is human - to moo, bovin=
e.<o:p></o:p></span></p></div><p class=3D"MsoNormal"><span style=3D"color:#1=
F497D"><o:p>&nbsp;</o:p></span></p><div><div style=3D"border:none;border-top=
:solid #B5C4DF 1.0pt;padding:3.0pt 0in 0in 0in"><p class=3D"MsoNormal"><b><s=
pan style=3D"font-size:10.0pt;font-family:&quot;Tahoma&quot;,&quot;sans-seri=
f&quot;">From:</span></b><span style=3D"font-size:10.0pt;font-family:&quot;T=
ahoma&quot;,&quot;sans-serif&quot;"> <a href=3D"mailto:activeperl-bounces@li=
stserv.ActiveState.com">activeperl-bounces@listserv.ActiveSt ate.com</a> [mai=
lto:activeperl-bounces@listserv.ActiveState.com] <b>On Behalf Of </b>Ken Cor=
netet<br><b>Sent:</b> Friday, October 14, 2011 5:03 PM<br><b>To:</b> <a href=
=3D"mailto:activeperl@listserv.activestate.com"><a href=3D"mailto:activeperl=
@listserv.activestate.com">activeperl@listserv.activestate.c om</a></a><br><b=
>Subject:</b> Change font in Win32::GUI AddListView items<o:p></o:p></span><=
/p></div></div><p class=3D"MsoNormal"><o:p>&nbsp;</o:p></p><p class=3D"MsoNo=
rmal">Is it possible to change the font (bold, color,etc) when adding items t=
o a Win32::GUI AddListView object?<o:p></o:p></p><p class=3D"MsoNormal"><o:p=
>&nbsp;</o:p></p><p class=3D"MsoNormal">Iâ€=99ve tried passing a font ob=
ject to no avail<o:p></o:p></p><p class=3D"MsoNormal"><o:p>&nbsp;</o:p></p><=
p class=3D"MsoNormal"><span style=3D"font-family:&quot;Courier New&quot;">my=
$fb =3D new Win32::GUI::Font(-name =3D&gt; "Courier New", -height =3D&gt; 1=
0, -bold =3D&gt; 0);<o:p></o:p></span></p><p class=3D"MsoNormal"><span style=
=3D"font-family:&quot;Courier New&quot;">$lv-&gt;InsertItem(-font =3D&gt; $f=
b, -item =3D&gt; $i, -text =3D&gt; ["&nbsp; $s", "", "", "", "", "", ""]);<o=
:p></o:p></span></p><p class=3D"MsoNormal"><o:p>&nbsp;</o:p></p><p class=3D"=
MsoNormal">There are the TextColor and TextBKColor methods, but they appear t=
o be global to the whole ListView object.<o:p></o:p></p><p class=3D"MsoNorma=
l"><o:p>&nbsp;</o:p></p><p class=3D"MsoNormal">Ken Cornetet 812.482.8499<o:p=
></o:p></p><p class=3D"MsoNormal">To err is human - to moo, bovine.<o:p></o:=
p></p><p class=3D"MsoNormal"><o:p>&nbsp;</o:p></p></div></div></blockquote><=
blockquote type=3D"cite"><div><span>________________________________________=
_______</span><br><span>ActivePerl mailing list</span><br><span><a href=3D"m=
ailto:ActivePerl@listserv.ActiveState.com">ActivePerl@listse rv.ActiveState.c=
om</a></span><br><span>To unsubscribe: <a href=3D"http://listserv.ActiveStat=
e.com/mailman/mysubs"><a href=3D"http://listserv.ActiveState.com/mailman/mys=
ubs">http://listserv.ActiveState.com/mailman/mysubs</a></a></span></div></bl=
ockquote></body></html>=

--Apple-Mail-3--868685948--

--===============1809893731==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============1809893731==--

Report this message