Page History
...
Begin_Com Role(*EXTENDS #PRIM_WEB) Theme(#SYS_THEME) Layoutmanager(#Layout1)
Define_Com Class(#PRIM_TBLO) Name(#Layout1)
Define_Com Class(#PRIM_TBLO.Row) Name(#Layout1Row1) Displayposition(1) Parent(#Layout1)
Define_Com Class(#PRIM_TBLO.Column) Name(#Layout1Column1) Displayposition(1) Parent(#Layout1)
Define_Com Class(#PRIM_TBLO.Item) Name(#Layout1Item1) Alignment(TopCenter) Column(#Layout1Column1) Manage(#BarChart) Parent(#Layout1) Row(#Layout1Row1) Marginbottom(25) Marginleft(25) Marginright(25) Margintop(25)
Define_Com Class(#PRIM_CHRT.BarChart) Name(#BarChart) Displayposition(1) Gridlines(None) Height(750) Left(25) Parent(#COM_OWNER) Tabposition(1) Tabstop(False) Top(25) Width(1150) Barpercentage(80) Categorypercentage(90)
Define_Com Class(#PRIM_CHRT.BarChartCaption) Name(#BarChartCaption) Parent(#BarChart)
Define_Com Class(#PRIM_CHRT.BarChartValue) Name(#BarChartValue1) Displayposition(1) Parent(#BarChart) Themedrawstyle('Theme500+BorderTheme700') Borderwidth(2) Description('Item 1 - I am on the Primary Axis')
Define_Com Class(#PRIM_CHRT.BarChartValue) Name(#BarChartValue2) Displayposition(2) Parent(#BarChart) Themedrawstyle('BorderThemeAccentDark+MediumAccent') Borderwidth(2) Description('Item 2 - I am on the Primary Axis')
Define_Com Class(#PRIM_CHRT.BarChartValue) Name(#BarChartValue3) Displayposition(3) Parent(#BarChart) Themedrawstyle('Border(136,14,79,1)+Back(233,30,99,1)') Borderwidth(2) Axis(Secondary) Description('Item 3 - I am on the Secondary Axis')
Evtroutine Handling(#COM_OWNER.Initialize)
Begin_Loop Using(#STD_NUM) To(6)
#BarChartValue1 := #STD_NUM + 10
#BarChartValue2 := #STD_NUM + 25
#BarChartValue3 := #BarChartValue1 * #BarChartValue2
#BarChartCaption := 'Category ' + #STD_NUM.AsString
Add_Entry To_List(#BarChart)
End_Loop
Endroutine
Evtroutine Handling(#BarChart.FormatTick) Value(#Value) Label(#Label) Axis(#Axis)
If (#Axis = 'PRIMARY')
#Label := #Value.AsString + '%'
Else
#Label := '$' + #Value.AsString
Endif
Endroutine
End_Com