Thanks Jason, <div><br></div><div>I will try this solution.<br><br><div class="gmail_quote">On Fri, Feb 15, 2013 at 10:50 AM, <a href="mailto:jason@software-solutions.co.nz">jason@software-solutions.co.nz</a> <span dir="ltr"><<a href="mailto:jason@software-solutions.co.nz" target="_blank">jason@software-solutions.co.nz</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div lang="EN-NZ" link="#0563C1" vlink="#954F72"><div><p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d">You will have to create a new listbox style, that has two TText objects in it, one aligned to top and one client, then assign this to the StyleLookup of the listitems as you add them. Also create an event handler to the OnApplyStyleLookup event of each item and in this event find the resources (Text objects) and assign the values.<u></u><u></u></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d"><u></u> <u></u></span></p><p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d">I myself subclass the TListBoxItem object, create my own text objects in the create event, and provide properties for the Name and Address, much cleaner, then use this new subclass when creating the listviewitem objects.<u></u><u></u></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d"><u></u> <u></u></span></p><p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d">Jason<u></u><u></u></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d"><u></u> <u></u></span></p><p class="MsoNormal"><b><span lang="EN-US" style="font-size:11.0pt;font-family:"Calibri","sans-serif"">From:</span></b><span lang="EN-US" style="font-size:11.0pt;font-family:"Calibri","sans-serif""> <a href="mailto:delphi-bounces@listserver.123.net.nz" target="_blank">delphi-bounces@listserver.123.net.nz</a> [mailto:<a href="mailto:delphi-bounces@listserver.123.net.nz" target="_blank">delphi-bounces@listserver.123.net.nz</a>] <b>On Behalf Of </b>Vik Vasudev<br>
<b>Sent:</b> Friday, 15 February 2013 10:31 a.m.<br><b>To:</b> NZ Borland Developers Group - Delphi List; NZ Borland Developers Group - Delphi List</span></p><div class="im"><br><b>Subject:</b> [DUG] Changing Font in a multi line list box (Firemonkey)<u></u><u></u></div>
<p></p><p class="MsoNormal"><u></u> <u></u></p><p class="MsoNormal">Hello Everyone <u></u><u></u></p><div><div class="h5"><div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal">Is there anyway i can have multiple font for multiline text on a listbox items.<u></u><u></u></p>
</div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal">For instance<u></u><u></u></p></div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal">I have text FirsName Last Name<u></u><u></u></p>
</div><div><p class="MsoNormal"> Address<u></u><u></u></p></div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal">I want Address to have different font.<u></u><u></u></p></div><div>
<p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal">Dummy Code<u></u><u></u></p></div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal">//<u></u><u></u></p></div><div><div><p class="MsoNormal">
TClientDetail = Record<u></u><u></u></p></div><div><p class="MsoNormal"> FCln_Ref : Int64;<u></u><u></u></p></div><div><p class="MsoNormal"> FCln_FirstName : string;<u></u><u></u></p></div><div><p class="MsoNormal">
FCln_LastName : string;<u></u><u></u></p></div><div><p class="MsoNormal"> FFullName : string;<u></u><u></u></p></div><div><p class="MsoNormal"> FCoName : String;<u></u><u></u></p></div><div><p class="MsoNormal">
FAddress : string;<u></u><u></u></p></div><div><p class="MsoNormal"> end;<u></u><u></u></p></div></div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><div><p class="MsoNormal"> TClientList = class (TListBoxItem)<u></u><u></u></p>
</div><div><p class="MsoNormal"> public<u></u><u></u></p></div><div><p class="MsoNormal"> FCln_Detail : TClientDetail;<u></u><u></u></p></div><div><p class="MsoNormal"> end;<u></u><u></u></p></div></div><div>
<p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal"> lClnobj := TClientList.Create (Listbox)<u></u><u></u></p></div><div>
<p class="MsoNormal"> lClnobj.FCln_Detail.FFullName := lClnobj.FCln_Detail.FCln_FirstName<u></u><u></u></p></div><div><div><p class="MsoNormal"> +' '+ lClnobj.FCln_Detail.FCln_LastName;<u></u><u></u></p>
</div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal"> lClnobj.FCln_Detail.FAddress := FGlobalRWqry.FieldByName<u></u><u></u></p></div><div><p class="MsoNormal"> (Fld_Address).AsString;<u></u><u></u></p>
</div><div><p class="MsoNormal"> lClnobj.Text := lName + #13#10 +<u></u><u></u></p></div><div><p class="MsoNormal"> lClnobj.FCln_Detail.FCoName+<u></u><u></u></p>
</div><div><p class="MsoNormal"> #13#10 +<u></u><u></u></p></div><div><p class="MsoNormal"> lClnobj.FCln_Detail.FAddress;<u></u><u></u></p>
</div><div><p class="MsoNormal"> lClnobj.Height := 40<u></u><u></u></p></div><div><p class="MsoNormal"> lClnobj.EndUpdate;<u></u><u></u></p></div><div><p class="MsoNormal"> listbox.AddObject (lClnobj);<u></u><u></u></p>
</div></div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal">I am using #13#10 to make it look like Multiline but i am not sure how to i change the font of text in multiline<u></u><u></u></p></div>
<div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal">Appreciate your help <u></u><u></u></p></div><div><p class="MsoNormal"><u></u> <u></u></p></div>
<div><p class="MsoNormal">Thanks<u></u><u></u></p></div><p class="MsoNormal"><span style="color:#888888">Vikas</span><u></u><u></u></p></div></div></div></div></div><br>_______________________________________________<br>
NZ Borland Developers Group - Delphi mailing list<br>
Post: <a href="mailto:delphi@listserver.123.net.nz">delphi@listserver.123.net.nz</a><br>
Admin: <a href="http://delphi.org.nz/mailman/listinfo/delphi" target="_blank">http://delphi.org.nz/mailman/listinfo/delphi</a><br>
Unsubscribe: send an email to <a href="mailto:delphi-request@listserver.123.net.nz">delphi-request@listserver.123.net.nz</a> with Subject: unsubscribe<br></blockquote></div><br><br clear="all"><div><br></div>-- <br> vikas
</div>