TMS iCL DEVELOPERS GUIDE - TMS Software

TMS SOFTWARE
TMS iCL
DEVELOPERS GUIDE
end;
{ TTMSFMXNativeUITableViewMailSection }
function TTMSFMXNativeUITableViewMailSection.CreateItems:
TTMSFMXNativeUITableViewItems;
begin
Result := TTMSFMXNativeUITableViewMailItems.Create(OwnerTableView, Self);
end;
{ TTMSFMXNativeUITableViewMailSections }
function TTMSFMXNativeUITableViewMailSections.CreateItemClass:
TCollectionItemClass;
begin
Result := TTMSFMXNativeUITableViewMailSection;
end;
{ TTMSFMXNativeUITableViewMail }
constructor TTMSFMXNativeUITableViewMail.Create(AOwner: TComponent);
begin
inherited;
if (csDesigning in ComponentState) and not
((csReading in Owner.ComponentState) or (csLoading in
Owner.ComponentState)) then
begin
Options.Header := 'Mail';
Options.ToolBar := True;
end;
end;
function TTMSFMXNativeUITableViewMail.CreateSections:
TTMSFMXNativeUITableViewSections;
begin
Result := TTMSFMXNativeUITableViewMailSections.Create(Self);
end;
{$IFDEF IOS}
procedure TTMSFMXNativeUITableViewMail.DoItemCreateCell(Sender: TObject;
var ACell: UITableViewCell; AItemStyle:
TTMSFMXNativeUITableViewItemStyle;
ASection, ARow: Integer);
var
title: UILabel;
senderName: UILabel;
description: UILabel;
170