TMS iCL DEVELOPERS GUIDE - TMS Software

TMS SOFTWARE
TMS iCL
DEVELOPERS GUIDE
date: UILabel;
r: NSRect;
begin
r.origin.x := 5;
r.origin.y := 5;
r.size.width := ACell.frame.size.width - 100;
r.size.height := 15;
senderName :=
TUILabel.Wrap(TUILabel.Wrap(TUILabel.OCClass.alloc).initWithFrame(r));
senderName.setFont(TUIFont.Wrap(TUIFont.OCClass.systemFontOfSize(12)));
senderName.setTextColor(TUIColor.Wrap(TUIColor.OCClass.orangeColor));
senderName.setHighlightedTextColor(TUIColor.Wrap(TUIColor.OCClass.whiteColo
r));
ACell.contentView.addSubview(senderName);
r.origin.x := Acell.frame.size.width - 100;
r.origin.y := 5;
r.size.width := 100;
r.size.height := 15;
date :=
TUILabel.Wrap(TUILabel.Wrap(TUILabel.OCClass.alloc).initWithFrame(r));
date.setFont(TUIFont.Wrap(TUIFont.OCClass.boldSystemFontOfSize(12)));
date.setTextAlignment(UITextAlignmentRight);
date.setTextColor(TUIColor.Wrap(TUIColor.OCClass.blueColor));
date.setHighlightedTextColor(TUIColor.Wrap(TUIColor.OCClass.whiteColor));
ACell.contentView.addSubview(date);
r.origin.x := 5;
r.origin.y := senderName.frame.size.height + senderName.frame.origin.y;
r.size.width := ACell.frame.size.width - 100;
r.size.height := 25;
title :=
TUILabel.Wrap(TUILabel.Wrap(TUILabel.OCClass.alloc).initWithFrame(r));
title.setFont(TUIFont.Wrap(TUIFont.OCClass.boldSystemFontOfSize(16)));
title.setHighlightedTextColor(TUIColor.Wrap(TUIColor.OCClass.whiteColor));
ACell.contentView.addSubview(title);
r.origin.x := 5;
r.origin.y := title.frame.origin.y + title.frame.size.height;
r.size.width := ACell.frame.size.width - 100;
description :=
TUILabel.Wrap(TUILabel.Wrap(TUILabel.OCClass.alloc).initWithFrame(r));
description.setHighlightedTextColor(TUIColor.Wrap(TUIColor.OCClass.whiteCol
or));
171