Hello Everyone <br><div class="gmail_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>