Object - ComponentPatternName Property
ComponentPatternName is used to qualify the class of the component.
Member of Object (PRIM_OBJT)
Data Type - String
Details
ComponentPatternName is the name of the component's class or the class of which it is a member.
For classes defined in LANSA as a member of another class, otherwise known as a Pattern e.g. PRIM_VS.Style, the ComponentPatternName is "PRIM_VS".
Unless the application requires complex generic programming, ComponentPatternName is unlikely to be required for most development purposes.
Example
This simple form demonstrates the difference between ComponentPatternName, ComponentClassName and ComponentTypeName
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Clientwidth(861) Clientheight(404) Componentversion(2) Top(227) Left(222)
Define_Com Class(#PRIM_VS.Style) Name(#Style1) Backgroundbrush(#Brush1)
Define_Com Class(#PRIM_VS.SolidBrush) Name(#Brush1) Color(154:212:255)
Define_Com Class(#PRIM_LABL) Name(#Label1) Caption('Label1') Displayposition(1) Ellipses(Word) Height(25) Left(272) Parent(#COM_OWNER) Tabposition(1) Tabstop(False) Top(19) Verticalalignment(Center) Width(265) Style(#Style1) Marginleft(4)
Define_Com Class(#PRIM_LABL) Name(#Label2) Caption('Label2') Displayposition(2) Ellipses(Word) Height(25) Left(272) Parent(#COM_OWNER) Tabposition(2) Tabstop(False) Top(54) Verticalalignment(Center) Width(265) Style(#Style1) Marginleft(4)
Define_Com Class(#PRIM_LABL) Name(#Label3) Caption('Label3') Displayposition(3) Ellipses(Word) Height(25) Left(272) Parent(#COM_OWNER) Tabposition(3) Tabstop(False) Top(88) Verticalalignment(Center) Width(265) Style(#Style1) Marginleft(4)
Evtroutine Handling(#COm_owner.CreateInstance)
#Label1 := "ClassName" + " - " + #Style1.ComponentClassName
#Label2 := "PatternName" + " - " + #Style1.ComponentPatternName
#Label3 := "TypeName" + " - " + #Style1.ComponentTypeName
Endroutine
End_Com