B4J Tutorial [ABMaterial] Creating the diagram..

Mashiane · Apr 17, 2018

Turning the Grid on, shows the grid and the AddNumbers methods puts the RCs. These can be circles / squares.

joulongleu · Apr 18, 2018

Hi:Mashian:wow very good,Can add click event ? thank you.

Mashiane · Apr 18, 2018

joulongleu said:
Hi:Mashian:wow very good,Can add click event ? thank you.

Will try, but cannot promise, so far the interactive property is faulty directly from the source.

Mashiane · Apr 18, 2018

Grid Refresher Source Code

Code: Copy

Sub SmallGrid
    'intro
    Dim intro As MashSimpleDiagram
    intro.Initialize(page,"intro",1,1,62,False)
    page.Cell(2,1).AddComponent(intro.ABMComp)
    
    'small 62
    'large 97
    'medium 81
    Dim small As MashSimpleDiagram
    small.Initialize(page,"small",12,12,62,True)
    'row 1
    small.AddBox(1,1,12,1)
    small.AddLabel1(1,1,$".AddCells12(1,"")"$)
    
    'row 2
    small.AddBox(2,1,6,1)
    small.AddBox(2,7,6,1)
    small.AddLabel1(2,1,$".AddCellOS(2,0,0,0,6,6,6,"")"$)
    small.AddLabel1(2,7,$" [OR] .AddCellOS(1,0,0,0,6,6,6,"") X 2"$)
    
    'row 3
    small.AddBox(3,1,5,1)
    small.AddBox(3,6,7,1)
    small.AddLabel1(3,1,$".AddCellOS(1,0,0,0,5,5,5,"")"$)
    small.AddLabel1(3,6,$".AddCellOS(1,0,0,0,7,7,7,"")"$)
    'row 4
    small.AddBox(4,1,4,1)
    small.AddBox(4,5,8,1)
    'row 5
    small.AddBox(5,1,3,1)
    small.AddBox(5,4,9,1)
    
    'row 6
    small.AddCellOS(6,1,0,2)
    small.AddCellOS(6,3,0,10)
    small.AddLabel1(6,3,$".AddCellOS(1,0,0,0,2,2,2,"").AddCellOS(1,0,0,0,10,10,10,"")"$)
    
    'row 7
    small.AddCellOS(7,1,0,1)
    small.AddCellOS(7,2,0,9)
    small.AddCellOS(7,11,0,2)
    small.AddLabel1(7,2,$".AddCellOS(1,0,0,0,1,1,1,"").AddCellOS(1,0,0,0,9,9,9,"").AddCellOS(1,0,0,0,2,2,2,"")"$)
    
    'row 8
    small.AddCellOS(8,1,0,11)
    small.AddCellOS(8,12,0,1)
    
    'row 9
    small.AddCellOS(9,1,0,10)
    small.AddCellOS(9,11,0,2)
    
    'row 10
    small.AddCellOS(10,1,0,9)
    small.AddCellOS(10,10,0,3)
    
    'row 11
    small.AddCellOS(11,1,0,8)
    small.AddCellOS(11,9,0,4)
    small.AddLabel1(11,1,$".AddCellOS(1,0,0,0,8,8,8,"").AddCellOS(1,0,0,0,4,4,4,"")"$)
    
    
    'row 12
    small.AddCellOS(12,1,0,7)
    small.AddCellOS(12,8,0,5)
    
    page.Cell(2,1).AddComponent(small.ABMComp)
End Sub

joulongleu · Apr 18, 2018

Hi: @Mashiane:AddCellOS not in MashSimpleDiagram.bas

Mashiane · Apr 19, 2018

joulongleu said:
Hi: @Mashiane:AddCellOS not in MashSimpleDiagram.bas

To avoid confusion even with myself I renamed the method to AddCellRCOS for Row,Cell,Offset,Size. Here is the updated source code..

Explaining Offsets

Code: Copy

Sub Offsets
    Dim offset As MashSimpleDiagram
    offset.Initialize(page,"offset",12,12,62,True)
   
    offset.AddBox(1,1,12,1)
    offset.AddLabel1(1,1,$".AddCells12(1,"") i.e. 1R=12C"$)
   
    offset.AddCellRCOS(2,1,1,11)
    offset.AddLabel1(2,2,$".AddCellOS(1,1,1,1,11,11,11,"") i.e. 1+11=12"$)

    offset.AddCellRCOS(3,1,2,10)
    offset.AddLabel1(3,3,$".AddCellOS(1,2,2,2,10,10,10,"") i.e. 2+10=12"$)

    offset.AddCellRCOS(4,1,0,2)
    offset.AddCellRCOS(4,3,8,2)
    offset.AddLabel1(4,3,$".AddCellOS(1,0,0,0,2,2,2,"").AddCellOS(1,8,8,8,2,2,2,"")"$)
   
    offset.AddLabel1(5,4,$"i.e. 2+8+2=12"$)
   
    page.Cell(2,1).AddComponent(offset.ABMComp)
   
End Sub

joulongleu · Apr 19, 2018

Yes,very good Thank you,How to change theme?

Mashiane · Apr 19, 2018

joulongleu said:
Yes,very good Thank you,How to change theme?

I didnt go that far my friend. It it is has some style properties but I havent been able to figure out how to make them work yet. It's a not so perfect component anyway, thus the willingness not to explore it any further. I will see what I can achieve tonight, perhaps will be lucky...

joulongleu · Apr 19, 2018

Hi Mashiane: Thank you all,I find the SimpleDiagram-0.2.css , can change color
as follows:
svg.simple-diagram .box {
fill: rgb(255, 255, 255);
fill-opacity: 0.5;
stroke: #FFF;
stroke-width: 0px;
shape-rendering: crispEdges;
}

B4J Tutorial [ABMaterial] Creating the diagram..

Attachments

Mashiane

Expert

joulongleu

Active Member

Mashiane

Expert

Mashiane

Expert

joulongleu

Active Member

Mashiane

Expert

Attachments

joulongleu

Active Member

Mashiane

Expert

joulongleu

Active Member

Similar Threads