Android Question GridView of Buttons

josejad

Expert
Licensed User
Longtime User
Hi all:

I'm trying to adapt this B4J sample to B4A

[custom view] GridManager

A simple custom view which creates a grid of panes. You can set the number of columns and rows. The panes are resized automatically when the GridManager is resized, make sure to use anchors in your layouts. In this example the same layout is loaded in each of the panes. You can of course load...
www.b4x.com

as Erel says:

Well I've followed the steps, replacing "Pane" with "Panel", deleting Base_Resize sub.
Not sure, but I've replaced "Base.AddNode(p, 0, 0, 0, 0)" with "Base.AddView(p, 0, 0, 0, 0)"

When I run the app, I get a blank screen, and I get:
B4X: 
Panel size is unknown. Layout may not be loaded correctly.

I get that warning from:
B4X: 
Public Sub GetPanel(Column As Int, Row As Int) As Panel
    Return panels(Column, Row)
End Sub
I guess I should set the panel width and height at some point, I've been searching about this, and I've seen Klaus tip here, but I can't figure it out how to do it.

Next step would be make the base? panel scrollable.

BTW, In the original sample, I can't see how Erel sets the panels position.

See attached a small project.

Thanks
 

Attachments

  • Grid.zip
    11.1 KB · Views: 381
Sort by date Sort by votes

KZero

Active Member
Licensed User
Longtime User
you missed the dimensions (left,top,width,height)
try this
B4X: 
Public Sub DesignerCreateView (Base As Panel, Lbl As Label, Props As Map)
    mBase = Base
    columns = Props.Get("Columns")
    rows = Props.Get("Rows")
    Dim panels(columns, rows) As Panel
    For c = 0 To columns - 1
        For r = 0 To rows - 1
            Dim p As Panel
            p.Initialize("")
            
            panels(c, r) = p
            
        Dim w As Int = Round(200dip / columns)
        Dim h As Int = Round(200dip / rows)
        Dim L,T As Int
        L = r * 200dip
        T = c * 200dip

            p.SetLayout(L, T, w, h)
            
            Base.AddView(p, L,T, 200dip, 200dip)
        Next
    Next
End Sub
 
Upvote 0

josejad

Expert
Licensed User
Longtime User
KZero said:
you missed the dimensions (left,top,width,height)
Click to expand...
Thanks kzero, I've modified to adjust the number of panels to activity.

B4X: 
Public Sub DesignerCreateView (Base As Panel, Lbl As Label, Props As Map)
    mBase = Base
    columns = Props.Get("Columns")
    rows = Props.Get("Rows")
    Dim xscale As Int= mBase.Width / columns
    Dim yscale As Int= mBase.Height / rows
    Dim panels(columns, rows) As Panel
    For c = 0 To columns - 1
        For r = 0 To rows - 1
            Dim p As Panel
            p.Initialize("")
            panels(c, r) = p
            Dim w As Int = Round(xscale)
            Dim h As Int = Round(yscale)
            Dim L,T As Int
            L = r * xscale
            T = c * yscale
            p.SetLayout(L, T, w, h)
            Base.AddView(p, L,T, xscale, yscale)
        Next
    Next
End Sub

Now I will try with the scrollview Panel.
 
Upvote 0

josejad

Expert
Licensed User
Longtime User
Erel said:
There is really no reason to use that code in B4A. It is useful in B4J where the grid can be resized. This is not the case in Android.
Click to expand...
Erel, the code is to create the view, not for the resize event
 
Upvote 0
You must log in or register to reply here.

Similar Threads

P
B4X Buttons grid example
Replies
2
Views
1K
PaulMeuris
P
  • Article
B4A Library [B4X] B4XDrawerAdvanced - Sliding Drawer - Left and Right Panel
Replies
13
Views
7K
Theera
M
  • Question
Android Question Panel in CustomListView not roundable
Replies
4
Views
804
Mike1970
M
M
  • Question
Android Question Button always on top of panel
Replies
2
Views
2K
mindful
M
J
  • Question
Android Question Panel BringToFront still below buttons
Replies
5
Views
3K
Jason Wood
J
Menu
Log in
Register
Cookies are required to use this site. You must accept them to continue using the site. Learn more…