Skip to content

Instantly share code, notes, and snippets.

@jyoung
Last active March 12, 2018 16:55
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jyoung/faa7313da202e3e5f00cc413aeb131f9 to your computer and use it in GitHub Desktop.
Save jyoung/faa7313da202e3e5f00cc413aeb131f9 to your computer and use it in GitHub Desktop.
LANSA Tour Of Heroes Web Page
begin_com role(*EXTENDS #PRIM_WEB) layoutmanager(#MainPanelLayout)
* =====================================================================================
* STYLES
* =====================================================================================
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(2:255:30)
* =====================================================================================
* LAYOUTS
* =====================================================================================
define_com class(#PRIM_TBLO) name(#MainPanelLayout)
define_com class(#PRIM_TBLO.Row) name(#LayoutRow1) displayposition(1) parent(#MainPanelLayout)
define_com class(#PRIM_TBLO.Column) name(#LayoutColumn1) displayposition(1) parent(#MainPanelLayout)
define_com class(#PRIM_TBLO.Item) name(#LayoutItem1) alignment(TopLeft) column(#LayoutColumn1) manage(#HeaderPanel) parent(#MainPanelLayout) row(#LayoutRow1) sizing(FitToWidth) flow(Down) marginleft(10)
define_com class(#PRIM_TBLO.Item) name(#LayoutItem2) alignment(TopLeft) column(#LayoutColumn1) manage(#NavigationBarPanel) parent(#MainPanelLayout) row(#LayoutRow1) sizing(FitToWidth) flow(Down) marginleft(10)
define_com class(#PRIM_TBLO.Item) name(#LayoutItem3) alignment(TopLeft) column(#LayoutColumn1) manage(#ViewContainerPanel) parent(#MainPanelLayout) row(#LayoutRow1) sizing(ContentHeightFitToWidth) flow(Down) marginleft(10)
define_com class(#PRIM_TBLO) name(#ViewContainerPanelLayout)
define_com class(#PRIM_TBLO.Column) name(#Column1) displayposition(1) parent(#ViewContainerPanelLayout)
define_com class(#PRIM_TBLO.Row) name(#Row1) displayposition(1) parent(#ViewContainerPanelLayout)
define_com class(#PRIM_TBLO.Item) name(#ViewContainerLayoutItem) alignment(TopLeft) column(#Column1) parent(#ViewContainerPanelLayout) row(#Row1) sizing(None)
* =====================================================================================
* UI COMPONENTS
* =====================================================================================
define_com class(#HeaderPanel) name(#HeaderPanel) parent(#COM_OWNER) tabstop(False) width(1190) left(10)
define_com class(#NavigationBarPanel) name(#NavigationBarPanel) displayposition(2) parent(#COM_OWNER) tabposition(2) tabstop(False) width(1190) top(65) height(50) left(10)
define_com class(#PRIM_PANL) name(#ViewContainerPanel) displayposition(3) parent(#COM_OWNER) tabposition(3) tabstop(False) top(115) width(1190) height(52) style(#Style1) layoutmanager(#ViewContainerPanelLayout)
* =====================================================================================
* ROUTINES
* =====================================================================================
evtroutine handling(#Com_owner.Initialize)
endroutine
end_com
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment