TMS iCL DEVELOPERS GUIDE - TMS Software

More documents

Recommendations

Info

TMS SOFTWARE TMS iCL DEVELOPERS GUIDE As explained, each label has the same color, font and text based on the template control of the item element. To modify these default values dynamically, we will need to implement an event that manages this. The OnApplyItemValue event is called with a section and row parameter and allows you to modify the value of the item. There are also equivalents for the header and footer that will be demonstrated after adding a template control to the header as well. The code below shows how to access the label with a special helper function that is available in the FMX.TMSNativeUICollectionView unit to detect if the template control is a Label control. Each control inherits from the base control and is passed as a parameter of this event. procedure TForm1.TMSFMXNativeUICollectionView1ApplyItemValue(Sender: TObject; AControl: TTMSFMXNativeUICollectionViewTemplateControl; ASection, ARow: Integer); begin if IsLabel(AControl) then AsLabel(AControl).Text := 'Item ' + inttostr(ASection) + ':' + inttostr(ARow); end; 134
TMS SOFTWARE TMS iCL DEVELOPERS GUIDE Now, the header is visible as well, but does not show a template control, so we can use the same approach as like we did with the item, and add a control to the header template and modify its value afterwards through the appropriate event. The same could be done for the footer, but then you would need to set the FooterVisible property to true which is located under the Options property. The complete code for this sample can be found below: procedure TForm1.FormCreate(Sender: TObject); var lbl: TTMSFMXNativeUICollectionViewTemplateLabel; begin lbl := TMSFMXNativeUICollectionView1.AddItemTemplateLabel(10, 10, 100, 25, 'Hello World !'); lbl.Font.Name := 'Helvetica Bold'; lbl.Font.Size := 18; lbl.TextColor := TAlphaColorRec.Red; lbl := TMSFMXNativeUICollectionView1.AddHeaderTemplateLabel(10, 10, 100, 25, ''); lbl.Font.Name := 'Helvetica Bold'; lbl.Font.Size := 22; lbl.TextColor := TAlphaColorRec.Blue; end; 135
Page 1 and 2:
TMS SOFTWARE TMS iCL DEVELOPERS GUI
Page 3 and 4:
Page 5 and 6:
Page 7 and 8:
Page 9 and 10:
Page 11 and 12:
Page 13 and 14:
Page 15 and 16:
Page 17 and 18:
Page 19 and 20:
Page 21 and 22:
Page 23 and 24:
Page 25 and 26:
Page 27 and 28:
Page 29 and 30:
Page 31 and 32:
Page 33 and 34:
Page 35 and 36:
Page 37 and 38:
Page 39 and 40:
Page 41 and 42:
Page 43 and 44:
Page 45 and 46:
Page 47 and 48:
Page 49 and 50:
Page 51 and 52:
Page 53 and 54:
Page 55 and 56:
Page 57 and 58:
Page 59 and 60:
Page 61 and 62:
Page 63 and 64:
Page 65 and 66:
Page 67 and 68:
Page 69 and 70:
Page 71 and 72:
Page 73 and 74:
Page 75 and 76:
Page 77 and 78:
Page 79 and 80:
Page 81 and 82:
Page 83 and 84: TMS SOFTWARE TMS iCL DEVELOPERS GUI
Page 133: TMS SOFTWARE TMS iCL DEVELOPERS GUI
show all

TMS iCL DEVELOPERS GUIDE - TMS Software

Create successful ePaper yourself

Delete template?

Save as template?