Sub View_Top_Changers_Table
Log("Sub: View_Top_Changers_Table")
tbl_TC.Items.Clear
Dim C,V As String
Dim MarketID As Int
Dim Top_Changers_Tally As Int
Top_Changers_Tally = Map_Top_Changers.Size - 1
Log("Map_Top_Changers.Size - 1 = " & Top_Changers_Tally)
tbl_TC.SetColumns(Array As String("Rank", "Coin Pair", "Change", "Volume(BTC)"))
For i = 0 To Top_Changers_Tally
Dim lbl1, lbl2, lbl3, lbl4 As Label
lbl1.Initialize("") : lbl2.Initialize("") : lbl3.Initialize("") : lbl4.Initialize("")
MarketID = Map_Top_Changers.GetKeyAt(i)
C = NumberFormat2(Map_Top_Changers.GetValueAt(i),1,2,2,False)
V = NumberFormat2(Map_Trade_Volumes.Get(MarketID),1,4,2,False)
lbl1.Text = i + 1 : lbl2.Text = Get_CoinPair(MarketID) : lbl3.Text = C & "%" : lbl4.Text = V
tbl_TC.Items.Add(Array As Object(WrapLabel(lbl1,"CENTER"),WrapLabel(lbl2,"CENTER"),WrapLabel(lbl3,"CENTER"),WrapLabel(lbl4,"CENTER")))
Log("Coin " & (i+1) & " : MarketID " & MarketID & " : " & Get_CoinPair(MarketID) & " : Change = " & C & "% : Volume = " & V)
Next
End Sub
Sub WrapLabel(lbl As Label, Alignment As String) As Pane
Dim pn1 As AnchorPane
pn1.Initialize("")
pn1.AddNode(lbl, 0, 0, -1, -1)
pn1.FillHorizontally(lbl, 0, 0)
Dim jo1 = lbl As JavaObject
jo1.RunMethod("setAlignment", Array As Object(Alignment))
Return pn1
End Sub