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

[Edward Koryagin]

Custom draw?
 
Edward Koryagin


________________________________
 From: Vik Vasudev <vikas.image at gmail.com>
To: NZ Borland Developers Group - Delphi List <delphi at delphi.org.nz>; NZ Borland Developers Group - Delphi List <delphi at listserver.123.net.nz> 
Sent: Friday, 15 February 2013 10:30 AM
Subject: [DUG] Changing Font in a multi line list box (Firemonkey)
 

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 

ThanksVikas
_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: delphi at listserver.123.net.nz
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to delphi-request at listserver.123.net.nz with Subject: unsubscribe
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://listserver.123.net.nz/pipermail/delphi/attachments/20130214/00070668/attachment.html