Bookmarks

Yahoo Gmail Google Facebook Delicious Twitter Reddit Stumpleupon Myspace Digg

Search queries

sqldatasource dal, wwwxxxenden, convert raid5 to raid 10 mdadm, apache force chunked, nrao wwwxxx, xxxxxdup, procmail change subject header, wwwXxx not20, Wwwxxx.doks sas, linux raid resync after reboot

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