For example, here is a part that exposes a "MarginLeft" to set the margin left of its own controls.
Code: Select all
* ================================================================================
* PROPERTIES
* ================================================================================
define_pty name(MarginLeft) get(GetMarginLeft) set(SetMarginLeft) access(*PUBLIC) category(Other)
ptyroutine name(SetMarginLeft)
define_map for(*INPUT) class(#STD_INT) name(#margin)
#OFOFID.MarginLeft := #margin
#OFOFIN.MarginLeft := #margin
endroutine
ptyroutine name(GetMarginLeft)
define_map for(*OUTPUT) class(#STD_INT) name(#margin)
* just set it to something right now
#margin := 100
endroutine
When this component is dragged onto the design surface You can see the MarginLeft values out of place with the field in the component (OFOFID [Office Number] and OFOFIN [Office Name]).
This works really well and I can programmaticaly set the properties and everything works fine.
Code: Select all
#OfficeNumberLookupPanel.MarginLeft := 100
Is there any way to make properties of a reusable part show up in the Properties Tab?