Bubble Chart (PRIM_CHRT.BubbleChart)

Ancestors - Chart (PRIM_CHRT)Control (PRIM_CTRL)Object (PRIM_OBJT)

...

     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(#Chart) Parent(#Layout1) Row(#Layout1Row1) Marginbottom(17) Marginleft(17) Marginright(17) Margintop(17) 

        Define_Com Class(#PRIM_CHRT.BubbleChart) Name(#Chart) Displayposition(1) Height(766) Parent(#COM_OWNER) Tabposition(1) Tabstop(False) Width(1166) Legendposition(Bottom) Borderwidth(0) Minsize(1) Left(17) Top(17) Maxsize(100) 

        Define_Com Class(#PRIM_CHRT.BubbleChartCategory) Name(#BubbleChartCategory) Parent(#Chart) Themedrawstyle('DarkSuccess')
        Define_Com Class(#PRIM_CHRT.BubbleChartValue) Name(#BubbleChartValueX) Displayposition(1) Parent(#Chart) Description('Horizontal Position')
        Define_Com Class(#PRIM_CHRT.BubbleChartValue) Name(#BubbleChartValueY) Displayposition(2) Parent(#Chart) Description('Vertical Position')
        Define_Com Class(#PRIM_CHRT.BubbleChartValue) Name(#BubbleChartValueR) Displayposition(3) Parent(#Chart) Description('Bubble Size') 

        Evtroutine Handling(#Com_owner.Initialize) 

           #BubbleChartCategory := 'Category 1'
           #BubbleChartCategory.ThemeDrawStyle := 'DarkAccent'
     #BubbleChartValueX := 5
     #BubbleChartValueY#BubbleChartValueX := 105
           #BubbleChartValueY := 10
           #BubbleChartValueR := 15
           Add_Entry To_List(#Chart) 

           #BubbleChartValueX := -15
           #BubbleChartValueY := -10
           #BubbleChartValueR := 5
           Add_Entry To_List(#Chart) 

           #BubbleChartCategory := 'Category 2'
           #BubbleChartCategory.ThemeDrawStyle := 'Theme500'
= 'Theme500'
           #BubbleChartValueX := 20
           #BubbleChartValueY := 25
           #BubbleChartValueR := 30
           Add_Entry To_List(#Chart) 

           #BubbleChartValueX := -30
           #BubbleChartValueY := -25
           #BubbleChartValueR := 20
           Add_Entry To_List(#Chart) 
 
   
           #BubbleChartCategory := 'Category 3'
           #BubbleChartCategory.ThemeDrawStyle := 'DarkSuccess'
           #BubbleChartValueX := 10
           #BubbleChartValueY := 15
           #BubbleChartValueR := 25
           Add_Entry To_List(#Chart) 

           #BubbleChartValueX := -15
           #BubbleChartValueY := -5
           #BubbleChartValueR := 30
           Add_Entry To_List(#Chart) 

        Endroutine 

     End_Com

Properties

...

See also

All Component Classes

Technical Reference