B4J Question dynamic TabPage resize

[madru]

Hi,

I am creating TabPage's dynamically like in the attached code, question is how can I resize those when the Form is resized?

THX

    For Each v As JavaObject In MainForm.RootPane.GetAllViewsRecursive

        If v Is TabPane Then
   
            Dim t As TabPane = v
       
            Private tp1 As TabPage
            tp1 = addTabPage(v,"Tab A")

            tp1.Tag=1
            Dim tv As TableView
            tv.Initialize("")
            Dim cols As List

            cols.Initialize
            cols.AddAll(Array As String("a","b","c","d","e"))
            tv.SetColumns(cols)
            tv.SetColumnWidth(0,100)
            tv.SetColumnWidth(1,100)
            tv.SetColumnWidth(2,100)
            tv.SetColumnWidth(3,100)
            tv.SetColumnWidth(4,100)
            tv.Tag="dummy"
   
            tp1.Content.AddNode(tv,0,0,t.Width,t.Height)
        End If
   
    Next

 

[EnriqueGonzalez]

I think it may be better to have a layout with its controls anchors set manually.

But for your example.

    Dim tb As TabPage
    tb.Initialize
    tb.Text = "First"
   
    Dim ap As AnchorPane
    ap.Initialize("")
   
    tb.Content = ap
   
    Dim tv As TableView
    tv.Initialize("")
    Dim cols As List

    cols.Initialize
    cols.AddAll(Array As String("a","b","c","d","e"))
    tv.SetColumns(cols)
    tv.SetColumnWidth(0,100)
    tv.SetColumnWidth(1,100)
    tv.SetColumnWidth(2,100)
    tv.SetColumnWidth(3,100)
    tv.SetColumnWidth(4,100)
    tv.Tag="dummy"
   
    ap.AddNode(tv,0,0,-1,1)
    ap.setanchors(tv,5,5,5,5)
   
    TabPane1.Tabs.Add(tb)

 

[madru]

man sens to have an anchor...

THX

 

[Erel]

The best way is to add all layouts with the designer and set the anchors there.

 

[madru]

yes, will use the designer to generate the layout