TMS iCL DEVELOPERS GUIDE - TMS Software
TMS iCL DEVELOPERS GUIDE - TMS Software
TMS iCL DEVELOPERS GUIDE - TMS Software
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
<strong>TMS</strong> SOFTWARE<br />
<strong>TMS</strong> <strong>iCL</strong><br />
<strong>DEVELOPERS</strong> <strong>GUIDE</strong><br />
property Unread: Boolean read FUnread write SetUnread;<br />
end;<br />
T<strong>TMS</strong>FMXNativeUITableViewMailItems = class(T<strong>TMS</strong>FMXNativeUITableViewItems)<br />
public<br />
function CreateItemClass: TCollectionItemClass; override;<br />
end;<br />
T<strong>TMS</strong>FMXNativeUITableViewMailSection =<br />
class(T<strong>TMS</strong>FMXNativeUITableViewSection)<br />
public<br />
function CreateItems: T<strong>TMS</strong>FMXNativeUITableViewItems; override;<br />
end;<br />
T<strong>TMS</strong>FMXNativeUITableViewMailSections =<br />
class(T<strong>TMS</strong>FMXNativeUITableViewSections)<br />
public<br />
function CreateItemClass: TCollectionItemClass; override;<br />
end;<br />
[ComponentPlatformsAttribute(pidiOSSimulator or pidiOSDevice)]<br />
T<strong>TMS</strong>FMXNativeUITableViewMail = class(T<strong>TMS</strong>FMXNativeUITableView)<br />
public<br />
constructor Create(AOwner: TComponent); override;<br />
function CreateSections: T<strong>TMS</strong>FMXNativeUITableViewSections; override;<br />
function GetItemHeight(ASection, ARow: Integer): Single; override;<br />
function GetItemStyle(ASection, ARow: Integer):<br />
T<strong>TMS</strong>FMXNativeUITableViewItemStyle; override;<br />
{$IFDEF IOS}<br />
procedure DoItemCreateCell(Sender: TObject; var ACell: UITableViewCell;<br />
AItemStyle: T<strong>TMS</strong>FMXNativeUITableViewItemStyle; ASection, ARow: Integer);<br />
override;<br />
procedure DoItemCustomizeCell(Sender: TObject; ACell: UITableViewCell;<br />
AItemStyle: T<strong>TMS</strong>FMXNativeUITableViewItemStyle; ASection, ARow: Integer);<br />
override;<br />
{$ENDIF}<br />
end;<br />
implementation<br />
{ T<strong>TMS</strong>FMXNativeUITableViewMailItems }<br />
function T<strong>TMS</strong>FMXNativeUITableViewMailItems.CreateItemClass:<br />
TCollectionItemClass;<br />
begin<br />
Result := T<strong>TMS</strong>FMXNativeUITableViewMailItem;<br />
169