TMS iCL DEVELOPERS GUIDE - TMS Software
TMS iCL DEVELOPERS GUIDE - TMS Software
TMS iCL DEVELOPERS GUIDE - TMS Software
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
<strong>TMS</strong> SOFTWARE<br />
<strong>TMS</strong> <strong>iCL</strong><br />
<strong>DEVELOPERS</strong> <strong>GUIDE</strong><br />
procedure TForm1.<strong>TMS</strong>FMXNativeUICollectionView1ApplyHeaderValue(<br />
Sender: TObject; AControl:<br />
T<strong>TMS</strong>FMXNativeUICollectionViewTemplateControl;<br />
ASection, ARow: Integer);<br />
begin<br />
if IsLabel(AControl) then<br />
AsLabel(AControl).Text := 'Section ' + inttostr(ASection);<br />
end;<br />
procedure TForm1.<strong>TMS</strong>FMXNativeUICollectionView1ApplyItemValue(Sender:<br />
TObject;<br />
AControl: T<strong>TMS</strong>FMXNativeUICollectionViewTemplateControl; ASection,<br />
ARow: Integer);<br />
begin<br />
if IsLabel(AControl) then<br />
AsLabel(AControl).Text := 'Item ' + inttostr(ASection) + ':' +<br />
inttostr(ARow);<br />
end;<br />
procedure<br />
TForm1.<strong>TMS</strong>FMXNativeUICollectionView1GetNumberOfItemsInSection(<br />
Sender: TObject; ASection: Integer; var ANumberOfItems: Integer);<br />
begin<br />
if ASection = 0 then<br />
ANumberOfItems := 5<br />
else<br />
ANumberOfItems := 3;<br />
end;<br />
procedure TForm1.<strong>TMS</strong>FMXNativeUICollectionView1GetNumberOfSections(<br />
Sender: TObject; var ANumberOfSections: Integer);<br />
begin<br />
ANumberOfSections := 2;<br />
end;<br />
136