
Specifies which axis to plot this value against
Member of Bar Chart Value (PRIM_CHRT.BarChartValue)
Data Type - Enumeration
Details
Specifies which axis to plot this value against. Plotting against multiple axes alows for the use of seperate scales to be used allowing data sets of differing proportionality to be displayed for easier recogintion. By default all values will be plotted against the primary axis
Allowed Values
Enum Value | Description |
---|---|
Primary | Values plotted against the primary axis |
Secondary | Values plotted against the secondary axis |
Example
The example below shows a bar chart using a primary and secondary index.
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
See also
LANSA Version 15, April 2020