<html><body><div style="color:#000; background-color:#fff; font-family:times new roman, new york, times, serif;font-size:12pt"><div><span>Custom draw?</span></div><div></div><div> </div><div>Edward Koryagin<br></div> <div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt;"> <div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt;"> <div dir="ltr"> <font size="2" face="Arial"> <hr size="1"> <b><span style="font-weight:bold;">From:</span></b> Vik Vasudev <vikas.image@gmail.com><br> <b><span style="font-weight: bold;">To:</span></b> NZ Borland Developers Group - Delphi List <delphi@delphi.org.nz>; NZ Borland Developers Group - Delphi List <delphi@listserver.123.net.nz> <br> <b><span style="font-weight: bold;">Sent:</span></b> Friday, 15 February 2013 10:30 AM<br> <b><span style="font-weight: bold;">Subject:</span></b> [DUG] Changing Font in a multi line list box
(Firemonkey)<br> </font> </div> <br><div id="yiv1494689784">Hello Everyone <br><div class="yiv1494689784gmail_quote"><div><br></div><div>Is there anyway i can have multiple font for multiline text on a listbox items.</div><div><br></div><div>For instance</div><div><br></div><div>I have text FirsName Last Name</div>
<div> Address</div><div><br></div><div>I want Address to have different font.</div><div><br></div><div>Dummy Code</div><div><br></div><div>//</div><div><div> TClientDetail = Record</div><div> FCln_Ref : Int64;</div>
<div> FCln_FirstName : string;</div><div> FCln_LastName : string;</div><div> FFullName : string;</div><div> FCoName : String;</div><div> FAddress : string;</div><div> end;</div>
</div><div><br></div><div><div> TClientList = class (TListBoxItem)</div><div> public</div><div> FCln_Detail : TClientDetail;</div><div> end;</div></div><div><br></div><div><br></div><div> lClnobj := TClientList.Create (Listbox)</div>
<div> lClnobj.FCln_Detail.FFullName := lClnobj.FCln_Detail.FCln_FirstName</div><div><div> +' '+ lClnobj.FCln_Detail.FCln_LastName;</div><div><br></div><div>
lClnobj.FCln_Detail.FAddress := FGlobalRWqry.FieldByName</div>
<div> (Fld_Address).AsString;</div><div> lClnobj.Text := lName + #13#10 +</div><div> lClnobj.FCln_Detail.FCoName+</div>
<div> #13#10 +</div><div> lClnobj.FCln_Detail.FAddress;</div><div> lClnobj.Height := 40</div><div> lClnobj.EndUpdate;</div>
<div> listbox.AddObject (lClnobj);</div></div><div><br></div><div>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</div><div><br></div><div><br></div><div>
Appreciate your help </div><div><br></div><div>Thanks</div><span><font color="#888888">Vikas</font></span></div>
</div><br>_______________________________________________<br>NZ Borland Developers Group - Delphi mailing list<br>Post: <a ymailto="mailto:delphi@listserver.123.net.nz" 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 ymailto="mailto:delphi-request@listserver.123.net.nz" href="mailto:delphi-request@listserver.123.net.nz">delphi-request@listserver.123.net.nz</a> with Subject: unsubscribe<br><br> </div> </div> </div></body></html>