This code demonstrates how you can use your TraRTTI descendants to provide support for Set type properties without using Sets.

Version 1.0 of RAP does not support Set types. However, it is possible, using RTTI, to supply support for Set type properties.  Take, for instance, TFont’s Style property which is of type TFontStyles – a set. In order to support this property via RAP, we have added some boolean properties to TFont in the TraTFontRTTI
class, a TraRTTI descendant. Since TFontStyles is a set of fsBold, fsItalic, fsUnderline and fsStrikeout, we have added Bold, Italic, Underline and Strikeout to TFont. In this manner, you can set the boolean properties in RAP and the TraFontRTTI class handles transferring these values to and from the Style property in Delphi’s TFont. The following code demonstrates this.

Note: If you are unfamiliar with registering classes with RAP via TraRTTI descendants, you should aquaint yourself with the process by completing the Extending the RAP RTTI tutorial in the RAP help file.

First we declare a new TraRTTI descendant, TraTFontRTTI, to provide the new properties.

In GetPropList and GetPropRec, we add the new properties.

In GetPropValue, we transfer values from Delphi’s TFont.Style property to the boolean properties:

In TraTFontRTTI.SetPropValue, we transfer values from our new properties to Delphi’s TFont.Style property: