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
_______________________________________________
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
