[DUG] Changing Font in a multi line list box (Firemonkey)

[Vik Vasudev]

Hello Everyone

Is there anyway i can have multiple font for multiline text on a listbox
items.

For instance

I have text   FirsName Last Name
                  Address

I want Address to have different font.

Dummy Code

//
  TClientDetail   = Record
     FCln_Ref        : Int64;
     FCln_FirstName  : string;
     FCln_LastName   : string;
     FFullName       : string;
     FCoName         : String;
     FAddress        : string;
   end;

  TClientList   = class (TListBoxItem)
     public
       FCln_Detail   : TClientDetail;
  end;


  lClnobj                            :=  TClientList.Create (Listbox)
  lClnobj.FCln_Detail.FFullName         :=
lClnobj.FCln_Detail.FCln_FirstName
                                                +' '+
lClnobj.FCln_Detail.FCln_LastName;

  lClnobj.FCln_Detail.FAddress          :=  FGlobalRWqry.FieldByName
                                                    (Fld_Address).AsString;
  lClnobj.Text                                :=  lName + #13#10 +

lClnobj.FCln_Detail.FCoName+
                                                    #13#10 +

lClnobj.FCln_Detail.FAddress;
   lClnobj.Height := 40
   lClnobj.EndUpdate;
   listbox.AddObject (lClnobj);

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


Appreciate your help

Thanks
Vikas
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://listserver.123.net.nz/pipermail/delphi/attachments/20130215/69d64a4d/attachment-0001.html