Instantly share code, notes, and snippets.

Embed
What would you like to do?
LANSA Tour Of Heroes Pt 2 Heroes View Panel
function options(*DIRECT)
begin_com role(*EXTENDS #ViewPanel) style(#Style1) layoutmanager(#Layout1)
define_com class(#PRIM_VS.Style) name(#Style1) borderbottom(1) borderbrush(#Brush1) borderleft(1) borderright(1) bordertop(1)
define_com class(#PRIM_VS.SolidBrush) name(#Brush1) color(0:255:58)
define_com class(#PRIM_TBLO) name(#Layout1)
define_com class(#PRIM_TBLO.Row) name(#LayoutRow1) displayposition(1) parent(#Layout1)
define_com class(#PRIM_TBLO.Column) name(#LayoutColumn1) displayposition(1) parent(#Layout1)
define_com class(#PRIM_TBLO.Item) name(#LayoutItem1) alignment(TopLeft) column(#LayoutColumn1) manage(#Label1) parent(#Layout1) row(#LayoutRow1) sizing(None)
define_com class(#PRIM_LABL) name(#Label1) caption('Heroes') displayposition(1) ellipses(Word) height(25) left(0) parent(#COM_OWNER) tabposition(1) tabstop(False) top(0) verticalalignment(Center) width(120)
end_com
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment