Custom draw?
Edward Koryagin
________________________________
From: Vik Vasudev <[email protected]>
To: NZ Borland Developers Group - Delphi List <[email protected]>; NZ
Borland Developers Group - Delphi List <[email protected]>
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: [email protected]
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to [email protected] with
Subject: unsubscribe
_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: [email protected]
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to [email protected] with
Subject: unsubscribe
